asp 判断用户浏览器类型程序

Thesoft=Request.ServerVariables("HTTP_USER_AGENT")
If instr(thesoft,"Windows NT 5.0") Then
 vOS="Win2000"
ElseIf instr(thesoft,"Windows NT 5.2") Then
 vOs="Win2003"
ElseIf instr(thesoft,"Windows NT 5.1") Then
 vOs="WinXP"
ElseIf instr(thesoft,"Windows NT") Then
 vOs="WinNT"
ElseIf instr(thesoft,"Windows 9") Then
 vOs="Win9x"
ElseIf instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") Then
 vOs="类Unix"
ElseIf instr(thesoft,"Mac") Then
 vOs="Mac"
Else
 vOs="Other"
End If
Loginip=Request.serverVariables("REMOTE_ADDR")