获取客户端IP、浏览器和操作系统信息的几种方法

<p align=center>获取客户端浏览器和操作系统信息的几种方法</p>
<Script language=Vbscript>
'=首先---穷举法：用VBS中的Navigator.appVersion(或者.UserAgent)属性=
'=此种方法可以在客户端显示,但是不可以保存到服务器端数据库里=
Document.write Navigator.appVersion&"<p>"
Function Browser(Info)
Info=Navigator.appVersion '在这里初始化了Info,在实际应用中可以作为其他变量赋值
If InStr(Info,"MSIE 6")>0 Then
Browser="Internet Explorer 6.0"
ElseIf InStr(Info,"MSIE 5.5")>0 Then
Browser="Internet Explorer 5.5"
ElseIf InStr(Info,"MSIE 5.0")>0 Then
Browser="Internet Explorer 5.0"
ElseIf InStr(Info,"MSIE 4")>0 Then
Browser="Internet Explorer 4.0"
Else
Browser="未知的浏览器!"
End if
Document.Write "您的浏览器是:"&Browser&"<p>"
End Function
Function System(Info)
Info=Navigator.appVersion
If InStr(Info,"NT 5.1")>0 Then
System="Windows XP"
ElseIf InStr(Info,"NT 5.0")>0 Then
System="Windows 2000"
ElseIf InStr(Info,"NT 4")>0 Then
System="Windows NT"
ElseIf InStr(Info,"98")>0 Then
System="Windows 98"
ElseIf InStr(Info,"Me")>0 Then
System="Windows Me"
ElseIf InStr(Info,"95")>0 Then
System="Windows 95"
Else
System="未知的操作系统!"
End if
Document.Write "您的操作系统是:"&System&"<p>"
End Function
Call Browser(Info)
Call System(Info)
</Script>
------------------------------------------------------------<p>
<%
'=其次：用Request.ServerVariables("Http_User_Agent")=
Response.Write Request.ServerVariables("Http_User_Agent")&"<p>"