GetCurrOS = "Windows XP"
  ElseIf Instr(info,"Tel">

获取用户操作系统信息的ASP函数实例代码

80酷酷网    80kuku.com

  函数  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

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: