获取用户操作系统信息的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