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