登录123 | 账号: 密码: 商铺贴吧

今天是：


供应求购	免费商铺	商业资讯	库存二手	黄页大全		生活贴吧	房屋租售	招聘求职	婚恋交友	自助广告

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

发布时间：2010/10/11 17:02:16 发布人：网络游民点击：158

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

<Script language=Vbscript>

'=首先---穷举法：用VBS中的Navigator.appVersion(或者.UserAgent)属性=
'=此种方法可以在客户端显示,但是不可以保存到服务器端数据库里=

Document.write Navigator.appVersion&""

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&""
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&""
End Function

Call Browser(Info)
Call System(Info)

</Script>

------------------------------------------------------------

<%
'=其次：用Request.ServerVariables("Http_User_Agent")=

Response.Write Request.ServerVariables("Http_User_Agent")&""

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 "您的浏览器是:"&Browser&""
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 "您的操作系统是:"&System&""
End Function

Call Browser(Info)
Call System(Info)

%>

===========================================================

<%
'第三种方法：在appVersion/UserAgent或Request.ServerVariables("Http_User_Agent")
'=之中截取固定的字符串，把有关浏览器和操作系统的字符串截取出并显示=
'=显然问题在于，如果某一天Microsoft把浏览器版本的格式改变了，那么此方法会出错
'=格式：浏览器版本-左数第31个字符起3个字符，系统版本-左数第44个字符起6个字符

Response.Write Request.ServerVariables("Http_User_Agent")&""

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&" "&Version&""
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 "您的操作系统是:"&Plat&""
Else
Response.Write "您的操作系统是:未知的操作系统"
End if
End Function

Call Browser2(Info)
Call System2(Info)

%>

----------------------------------------------------------

<Script Language=VBscript>

Document.Write Navigator.appVersion&""

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&" "&Version&""
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 "您的操作系统是:"&Plat&""
Else
Document.Write "您的操作系统是:未知的操作系统"
End if
End Function

Call Browser2(Info)
Call System2(Info)

</Script>

=============================================

<%
'========另外,有人提出利用ASP的ActiveX组件MSWC.BrowserType的属性来实现==========
'========现在问题是，IE 6.0以上版本的这个组件还没有更新，因此随意使用会出错=====
'========我们不提倡这种方法=====================================================
Dim BT
Set BT=Server.CreateObject("MSWC.BrowserType")
Response.Write BT.Browser&" "
Response.Write BT.Version&" "
Response.Write BT.PlatForm&" "
%>

获得客户端IP的方法

<%
'此参数是取得透过代理服务器的客户端IP
IP=Request.ServerVariables("Http_X_ForWarded_For")
If Len(IP)=0 Then
Response.write "非代理服务器:空"
'直接取得客户端的IP
IP=Request.ServerVariables("Remote_Addr")
Response.write "代理服务器:"&IP
Else
Response.write "非代理服务器:"&IP&""
End If

%>

回复此帖

#1楼回复： 好消息！金凯二手车低价出售各种轿车

jinkai998 [2010/10/11 19:21:59]

大量经营九成新长安面包/0.6万，捷达春天/0.8万，雨燕1.3/0.98万，比亚迪F3/0.98万，东风标志307/1.8万，奥迪Q7越野车3.2/6.8万，本田雅阁2.0/2.2万，飞度1.3/1.2万，桑塔纳2000/1.2万，本田思域1.8/1.68万，本田CRV2.4/2.8万，丰田锐志2.5/2.5万，丰田霸道2700/3.6万,花冠1.6万，皇冠3.0/2.8万，凯美瑞2.0/2.2万，伊兰特1.6/1.28万,途胜2.6万,帕萨特1.8/1.98万，酷派2.0/2万，宝来1.8/1.5万，捷达王1.4万，别克凯越1.6/1.5万，君威2.5/2.2万，奥迪A6L2.0T/3.2万，宝马530Li/6.8万，X5/8.8万，奔驰S600/12.8万，质量保证，手续齐全，确保你无后顾之忧!欢迎各位新老客户来电咨询及定车购买。介绍朋友买车你可得10%的回扣。王经理电话：132-0319-4888-----全国各大城市都有仓库更多2手车。
http://www.jinkai998.com

页次：1/1 每页10 总记录数1　

分页： 1

※

发布回复

↓请遵循123发布网同城生活贴吧/论坛发帖规则；↓寻一夜情、包养、招嫖类信息的一律全部删除，并报公安备案↓

回复标题：
回复内容：
上传图片：
验证码：