功能:获取服务器所在时区
复制代码代码如下:
<%
Function TimeZone()
Set oShell = CreateObject("WScript.Shell")
atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _
"Control\TimeZoneInformation\ActiveTimeBias"
TimeZone = - oShell.RegRead(atb) / 60
End Function
%>
