Question

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

Answer 1

p align=center获取客户端浏览器和操作系统信息的几种方法/p Script language=VBscript '=首先---穷举法：用VBS中的Navigator.appVersion(或者.UserAgent)属性= '=此种方法可以在客户端显示,但是不可以保存到服务器端数据库里= Document.write Navigator.appVersionp 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 您的浏览器是:Browserp 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 您的操作系统是:Systemp End Function Call Browser(Info) Call System(Info) /Script ------------------------------------------------------------p % '=其次：用Request.ServerVariables(Http_User_Agent)= Response.Write Request.ServerVariables(Http_User_Agent)p Function Browser(Info) Info=Request.ServerVariables(Http_User_Agent) '在这里初始化了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 Response.Write 您的浏览器是:Browserp End Function Function System(Info) Info=Request.ServerVariables(Http_User_Agent) 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 Response.Write 您的操作系统是:Systemp End Function Call Browser(Info) Call System(Info) % ===========================================================p % '第三种方法：在appVersion/UserAgent或Request.ServerVariables(Http_User_Agent) '=之中截取固定的字符串，把有关浏览器和操作系统的字符串截取出并显示= '=显然问题在于，如果某一天Microsoft把浏览器版本的格式改变了，那么此方法会出错 '=格式：浏览器版本-左数第31个字符起3个字符，系统版本-左数第44个字符起6个字符 Response.Write Request.ServerVariables(Http_User_Agent)p Function Browser2(Info) Info=Request.ServerVariables(Http_User_Agent) If InStr(Info,MSIE)0 Then '判断当前浏览器是否是Microsoft IE类型 Version=Mid(Info,31,3) IE=Internet Explorer Response.Write 您的浏览器是:IE Versionp Else Response.Write 您的浏览器是:未知的浏览器 End if End Function Function System2(Info) Info=Request.ServerVariables(Http_User_Agent) If InStr(Info,Windows)0 Then '判断当前操作系统是否是Windows平台 Version=Mid(Info,44,6) Plat=Windows '下面还要进行判断版本,以供显示具体的平台 If InStr(Version,NT 5.1)0 Then Plat=Windows XP ElseIf InStr(Version,NT 5.0)0 Then Plat=Windows 2000 ElseIf InStr(Version,NT 4)0 Then Plat=Windows NT ElseIf InStr(Version,98)0 Then Plat=Windows 98 ElseIf InStr(Version,Me)0 Then Plat=Windows Me ElseIf InStr(Version,95)0 Then Plat=Windows 95 Else Plat=未知的操作系统! End if Response.Write 您的操作系统是:Platp Else Response.Write 您的操作系统是:未知的操作系统 End if End Function Call Browser2(Info) Call System2(Info) % ----------------------------------------------------------p Script Language=VBscript Document.Write Navigator.appVersionp Function Browser2(Info) Info=Navigator.appVersion If InStr(Info,MSIE)0 Then '判断当前浏览器是否是Microsoft IE类型 Version=Mid(Info,23,3) IE=Internet Explorer Document.Write 您的浏览器是:IE Versionp Else Document.Write 您的浏览器是:未知的浏览器 End if End Function Function System2(Info) Info=Navigator.appVersion If InStr(Info,Windows)0 Then '判断当前操作系统是否是Windows平台 Version=Mid(Info,36,6) Plat=Windows '下面还要进行判断版本,以供显示具体的平台 If InStr(Version,NT 5.1)0 Then Plat=Windows XP ElseIf InStr(Version,NT 5.0)0 Then Plat=Windows 2000 ElseIf InStr(Version,NT 4)0 Then Plat=Windows NT ElseIf InStr(Version,98)0 Then Plat=Windows 98 ElseIf InStr(Version,Me)0 Then Plat=Windows Me ElseIf InStr(Version,95)0 Then Plat=Windows 95 Else Plat=未知的操作系统! End if Document.Write 您的操作系统是:Platp Else Document.Write 您的操作系统是:未知的操作系统 End if End Function Call Browser2(Info) Call System2(Info) /Script =============================================p % '========另外,有人提出利用ASP的ActiveX组件MSWC.BrowserType的属性来实现========== '========现在问题是，IE 6.0以上版本的这个组件还没有更新，因此随意使用会出错===== '========我们不提倡这种方法===================================================== Dim BT Set BT=Server.CreateObject(MSWC.BrowserType) Response.Write BT.Browserbr Response.Write BT.Versionbr Response.Write BT.PlatFormbr % p align=center获得客户端IP的方法/p % '此参数是取得透过代理服务器的客户端IP IP=Request.ServerVariables(Http_X_ForWarded_For) If Len(IP)=0 Then Response.write 非代理服务器:空p '直接取得客户端的IP IP=Request.ServerVariables(Remote_Addr) Response.write 代理服务器:IP Else Response.write 非代理服务器:IPp End If %