功能:获取服务器所在时区

复制代码 代码如下:

<%

FunctionTimeZone()

SetoShell=CreateObject("WScript.Shell")

atb="HKEY_LOCAL_MACHINESystemCurrentControlSet"&_

"ControlTimeZoneInformationActiveTimeBias"

TimeZone=-oShell.RegRead(atb)/60

EndFunction

%>