ASP 时间戳转换函数

<%
'参数：strTime:要转换的时间；intTimeZone：该时间对应的时区 
'返回值：strTime相对于1970年1月1日午夜0点经过的秒数 
'示例：ToUnixTime("2008-5-2310:51:0",+8)，返回值为1211511060 
Function ToUnixTime(strTime,intTimeZone) 
	If IsEmpty(strTime) or Not IsDate(strTime) Then strTime =Now 
	If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone =0 
	ToUnixTime = DateAdd("h",-intTimeZone,strTime) 
	ToUnixTime = DateDiff("s","1970-1-10:0:0",ToUnixTime) 
End Function

'把UNIX时间戳转换为标准时间 
'参数：intTime:要转换的UNIX时间戳；intTimeZone：该时间戳对应的时区 
'返回值：intTime所代表的标准时间 
'示例：FromUnixTime("1211511060",+8)，返回值2008-5-2310:51:0 
Function FromUnixTime(intTime,intTimeZone) 
	If IsEmpty(intTime) Or Not IsNumeric(intTime) Then
		FromUnixTime =Now() 
		Exit Function
	End If
	If IsEmpty(intTime) Or Not IsNumeric(intTimeZone)Then intTimeZone =0 
	FromUnixTime = DateAdd("s", intTime,"1970-1-10:0:0") 
	FromUnixTime = DateAdd("h", intTimeZone,FromUnixTime) 
End Function
%>