怎样获得访客的IP，系统，IE版本等信息并显示在IE代码

最新推荐文章于 2021-03-19 01:15:15 发布
最新推荐文章于 2021-03-19 01:15:15 发布
阅读量157 收藏
点赞数
文章标签： 操作系统 数据库

获取客户端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>"

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&"<p>"

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&"<p>"

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&" "&Version&"<p>"

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&"<p>"

Else

Response.Write "您的操作系统是:未知的操作系统"

End if

End Function

Call Browser2(Info)

Call System2(Info)

%>

----------------------------------------------------------<p>

<Script Language=VBscript>

Document.Write Navigator.appVersion&"<p>"

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&"<p>"

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&"<p>"

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.Browser&"<br>"

Response.Write BT.Version&"<br>"

Response.Write BT.PlatForm&"<br>"

%>

<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 "非代理服务器:"&IP&"<p>"

End If

%>

hepeng_8
关注
利用PHP获取访客IP、地区位置、浏览器及来源页面等信息
10-19
主要介绍了利用PHP获取访客IP、地区位置、浏览器及来源页面等信息的相关资料，文中给出了详细的示例代码供大家参考学习，对大家具有一定的参考借鉴价值，需要的朋友们下面来一起看看吧。
访客统计PHP代码
BUG制造者:图图 <p>这是一个P标签</p>
09-18 2476
最简单的方法便是使用平台的统计功能，比如cnzz，百度统计等等平台，但这篇文章的重点是自己写代码实现统计功能 一、文件方式简单统计 用php实现一个简单的访客统计功能，统计网站的总访问量是多少，简单实用。php通过每次打开文本文件，获取文本中的数字，进行加1再写入到文本中。所以只要每次有访问就会进行累加pv数量来实现的简单访客次数的统计。 <?php ...
网站中显示访客ip及所在地区的代码
WH3t的博客
05-22 7482
摘取自：http://ip.chinaz.com/获取代码：把下面一小段代码加到你的主页中即可在您的网页上中显示来访用户的IP及其地区！&lt;script type="text/javascript" src="http://ip.chinaz.com/getip.aspx"&gt;&lt;/script&gt;...
记录访客的（ip，浏览器，ip归属地，操作系统代码）并记录在文件中
诺言在心的博客
02-02 7234
1.Windows操作系统的版本号一览 操作系统 PlatformID 主版本号 副版本号 Windows2000 2 5 0 WindowsXP 2 5 1 Windows2003
获取网站访客IP、地区位置信息、浏览器、来源页面等信息类
滴水石穿
03-13 4449
&lt;?php //这个类似用来获取访客信息的 //方便统计 classvisitorInfo { //获取访客ip publicfunctiongetIp() { $ip=false; if(!empty($_SERVER["HTTP_CLIENT_IP"])){ $ip=$_SERV...
JavaScript使用cookie记录临时访客信息的方法
01-21
本文实例讲述了JavaScript使用cookie记录临时访客信息的方法。分享给大家供大家参考。具体分析如下： 这里用户第一次访问网页时会提示用户输入一个昵称，然后写入cookie，当用户再次来到时会读取cookie信息，提取...
PHP基于cookie与session统计网站访问量并输出显示的方法
12-18
这里通过字符串长度处理确保数字前面的零得到正确展示，并根据数字值匹配对应的图像文件名，最后在页面上显示这些图像，形成访问量的可视化表示。 总的来说，这个例子展示了如何结合Cookie和Session来跟踪和统计...
JScript中调用ActiveX获取访客网卡MAC地址实现代码
10-25
JScript是微软公司推出的一种基于ECMAScript标准的脚本语言，主要运行在微软的产品中，如Internet Explorer浏览器和早期版本的Windows操作系统。ActiveX是微软公司提出的一个概念，用于在Internet Explorer浏览器上...
php 来访者ip,PHP实现网站访客来访显示访客IP&浏览器&操作系统
weixin_35712036的博客
03-19 236
代码function GetOs() {if (!empty($_SERVER['HTTP_USER_AGENT'])) {$OS = $_SERVER['HTTP_USER_AGENT'];if (preg_match('/win/i', $OS)) {$OS = 'Windows';} elseif (preg_match('/mac/i', $OS)) {$OS = 'MAC';} else...
获取访问Ip常用方法
weixin_33788244的博客
04-14 101
public static String getIpAddr(HttpServletRequest request) { final String xRealip = request.getHeader("X-Real-IP"); if (StringUtils.isNotEmpty(xRealip)) { return xRealip; } final Stri...
获取访问者IP
百年槐
07-29 445
/** * 获取访问者IP *  * 在一般情况下使用Request.getRemoteAddr()即可，但是经过nginx等反向代理软件后，这个方法会失效。 *  * 本方法先从Header中获取X-Real-IP，如果不存在再从X-Forwarded-For获得第一个IP(用,分割)， * 如果还不存在则调用Request .getRemoteAddr()。 *  * @par
获取系统cpu,gpu,主板等信息（仅IE）
Forever.Sun
06-20 770
<html> <head> <style type='text/css'> body{font-size:12px;} body table tr td{font-size:12px;} </style> <script> ...
取得ie详细版本信息.及其它版本信息的两种方法. (转)
csd3176的博客
08-16 159
取得ie详细版本信息.及其它版本信息的两种方法. (转)[@more@]第一种方法: //通过读取注册表的信息的方法.//HKEY_LOCAL_MACHINESoftwaremicrosoftInte.NET Explorer...
HTML代码- 显示访问者的IP地址
热门推荐
王骕的专栏
02-20 3万+
1. 2.
如何在MFC访客信息管理系统中添加人员时增加对已有黑名单筛查功能代码
最新发布
09-07
在MFC（Microsoft Foundation Classes）的访客信息管理系统中添加黑名单筛查功能，通常涉及以下几个步骤： 1. **数据库设计**：首先，在数据库设计阶段，你需要为黑名单字段添加一个列，比如`is_blacklisted`，其值可以是布尔类型，表示该人员是否在黑名单中。 2. **获取黑名单列表**：在添加人员之前，从数据库中加载已有的黑名单列表，并将其存储在一个集合（如std::vector<bool>或CArray）或其他适当的数据结构中。 3. **添加筛选检查**：在添加新访客到系统时，编写一个函数，接收新的访客信息以及黑名单列表。这个函数会检查新访客的信息（如姓名、ID等），如果发现匹配现有黑名单中的记录，则标记为非法添加。 示例代码（C++ MFC）： ```cpp void AddVisitor(CString visitorName, int visitorID, CDatabase* db) { // 获取黑名单列表 std::vector<bool> blackListedUsers = GetBlackList(db); // 检查是否在黑名单 if (IsInBlackList(visitorName, visitorID, blackListedUsers)) { MessageBox("Visitor is on the blacklist, cannot add."); return; } // 添加访客到系统... } bool IsInBlackList(const CString& name, int id, const std::vector<bool>& blackListed) { for (int i = 0; i < blackListed.size(); ++i) { if (name.CompareNoCase(blackListed[i].GetName()) && blackListed[i].GetID() == id) return true; } return false; } ``` 4. **保存到数据库**：如果通过了黑名单筛查，将新访客信息添加到数据库中。 请注意，这只是一个基本的示例，实际代码可能需要处理更复杂的情况，例如数据库连接错误、并发控制等。同时，MFC的具体用法可能会因版本和项目的具体情况有所不同。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值