站长资源网络编程

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

复制代码 代码如下:
<% 
Function TimeZone() 
    Set oShell = CreateObject("WScript.Shell") 
    atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _ 
         "Control\TimeZoneInformation\ActiveTimeBias" 
    TimeZone = - oShell.RegRead(atb) / 60 
End Function 
%>