一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

取得用户操作系统信息

时间:2022-07-02 23:04:50 编辑:袖梨 来源:一聚教程网

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())

热门栏目