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

获取用户操作系统信息的ASP函数实例代码_ASP教程_编程技术

2013-12-20 09:03:44 [小大] 已经帮助：人解决问题

函数

　　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

（责任编辑：）