原创函数代码如下，用做服务端调试用。

<%
times = Now()
For i = 0 To 23
If i <= 9 Then i = "0"&i
For ii = 0 To 55
If ii Mod 5 = 0 Then
If ii <= 9 Then ii = "0"&ii
arrString = arrString&""&Year(times)&"/"&Month(times)&"/"&Day(times)&" "&i&":"&ii&":00"
End If
Next
Next
arrString=arrString&DateAdd("d", 1, " "&Formatdatetime(times,2)&"")
'response.Write arrString&"<br/><br/>"

myArray = Split(arrString,"")
For o = 0 to UBound(myArray)
gametime = myArray(o)
id = o + 1
If Datediff("s",times,gametime) > 1 Then Exit For
Next
'response.Write gametime&"======="&id
%>