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  
%>