Function: Get the server's time zone
The code copy is as follows:
<%
FunctionTimeZone()
SetoShell=CreateObject("WScript.Shell")
atb="HKEY_LOCAL_MACHINE/System/CurrentControlSet/"&_
"Control/TimeZoneInformation/ActiveTimeBias"
TimeZone=-oShell.RegRead(atb)/60
EndFunction
%>