01
<%
02
'=========================================================
03
'把標准時間轉換為UNIX時間戳
04
'參數：strTime:要轉換的時間；intTimeZone：該時間對應的時區
05
'返回值：strTime相對於1970年1月1日午夜0點經過的秒數
06
'示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值為1211511060
07
'=========================================================
08
09
Function ToUnixTime(strTime, intTimeZone)
10
If IsEmpty(strTime) Or Not IsDate(strTime) Then strTime = Now
11
If IsEmpty(intTimeZone) Or Not IsNumeric(intTimeZone) ThenintTimeZone = 0
12
ToUnixTime = DateAdd("h", - intTimeZone, strTime)
13
ToUnixTime = DateDiff("s", "1970-1-1 0:0:0", ToUnixTime)
14
End Function
15
16
'=========================================================
17
'把UNIX時間戳轉換為標准時間
18
'參數：intTime:要轉換的UNIX時間戳；intTimeZone：該時間戳對應的時區
19
'返回值：intTime所代表的標准時間
20
'示例：FromUnixTime("1211511060", +8)，返回值2008-5-23 10:51:0
21
'=========================================================
22
23
Function FromUnixTime(intTime, intTimeZone)
24
If IsEmpty(intTime) Or Not IsNumeric(intTime) Then
25
FromUnixTime = Now()
26
Exit Function
27
End If
28
If IsEmpty(intTime) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0
29
FromUnixTime = DateAdd("s", intTime, "1970-1-1 0:0:0")
30
FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)
31
End Function
32
%>(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)
