<%
'把标准时间转换为UNIX时间戳
Function tounix(strTime)
    intTimeZone=+8
    If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
    If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
    tounix = DateAdd("h",-intTimeZone,strTime)
    tounix = DateDiff("s","1970-01-01 00:00:00", tounix)
End Function


'把UNIX时间戳转换为标准时间
Function totime(intTime)
    intTimeZone=+8
    If IsEmpty(intTime) or Not IsNumeric(intTime) Then
        totime = Now()
        Exit Function
    End If         
    If IsEmpty(intTime) or Not IsNumeric(intTimeZone) Then intTimeZone = 0
    totime = DateAdd("s", intTime, "1970-01-01 00:00:00")
    totime = DateAdd("h", intTimeZone, totime)
End Function


'调用方法：
'示例：tounix("2009-12-05 12:52:25")，返回值为1259988745 
'response.Write tounix("2009-12-05 12:52:25")
'示例：totime("1259988745", +8)，返回值2009-12-05 12:52:25 
'response.Write totime("1259988745")
%>