28,409
社区成员




Public Function GetTime(ByVal value)
GetTime = DateDiff("s", "1970-01-01 08:00:00", value)
End Function
Public Function GetDate(ByVal value)
GetDate = DateAdd("s", value, "1970-01-01 08:00:00")
End Function
Dim timeval
timeval = GetTime(dateNow())
Response.Write timeval & "<br/>"
Response.Write GetDate(timeval) & "<br/>"