[转]ASP常用函数:TimeZone

　　<%

　　Function TimeZone()

　　Set oShell = CreateObject("WScript.Shell")

　　atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _

　　"Control\TimeZoneInformation\ActiveTimeBias"

　　TimeZone = - oShell.RegRead(atb) / 60

　　End Function

　　%>