获取用户操作系统信息的ASP函数

Function GetCurrOS()
  Dim Info
  Info = navigator.appVersion
  If Instr(info,”NT 5.1″)>0 Then
  GetCurrOS = “Windows XP”
  ElseIf Instr(info,”Tel”)>0 Then
  GetCurrOS = “Telport”
  ElseIf Instr(info,”webzip”)>0 Then
  GetCurrOS = “webzip”
  ElseIf Instr(info,”flashget”)>0 Then
  GetCurrOS = “flashget”
  ElseIf Instr(info,”offline”)>0 Then
  GetCurrOS = “offline”
  ElseIf Instr(info,”NT 5″)>0 Then
  GetCurrOS = “Windows 2000”
  ElseIf Instr(info,”NT 4″)>0 Then
  GetCurrOS = “Windows NT4”
  ElseIf Instr(info,”98″)>0 Then
  GetCurrOS = “Windows 98”
  ElseIf Instr(info,”95″)>0 Then
  GetCurrOS = “Windows 95”
  Else
  GetCurrOS = “UnKnow”
  End If
  End Function