【www.gdgbn.com--系统相关】
Public Function GetServerSystem()
Dim iisVersion
iisVersion = Request.ServerVariables("SERVER_SOFTWARE")
GetServerSystem = Request.ServerVariables("SERVER_OS")
If GetServerSystem = "" And iisVersion = "Microsoft-IIS/6.0" then
GetServerSystem = "Windows 2003"
ElseIf GetServerSystem = "" And iisVersion = "Microsoft-IIS/5.1" then
GetServerSystem = "Windows XP"
ElseIf GetServerSystem = "" And iisVersion = "Microsoft-IIS/5.0" then
GetServerSystem = "Windows 2000"
ElseIf GetServerSystem = "" And iisVersion = "Microsoft-IIS/7.0" then
GetServerSystem = "Windows Vista/Longhorn"
End if
End Function
"使用方法
response.Write(GetServerSystem())