‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[转载]使用ASP网页获得客户端的IP地址

EvilOctal

团队执行官

Rank: 8Rank: 8

E.S.T社区执行帐号

帖子
9833 
精华
769 
积分
40415 
阅读权限
200 
性别
男 
在线时间
3978 小时 
注册时间
2004-7-4 
最后登录
2008-10-11 
楼主 大 中 小 发表于 2005-8-2 18:11  只看该作者

[转载]使用ASP网页获得客户端的IP地址

文章作者：Siqi Wu

我们可以使用asp通过Request.ServerVariables("REMOTE_ADDR")来获取客户端的IP地址，假设这是一张asp网页，我们可以通过以下代码来实现：

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>这是一个获取IP地址的实例</title>
</head>

<body>
……………………
……………………
……………………
<% Ip_address=Request.ServerVariables ("REMOTE_ADDR")
    Response IP_address
%>
……………………
……………………
……………………
</body>

</html>
曾几何时，有人对我说：装B遭雷劈。我说：去你妈的。于是，这个人又对我说：如果再说脏话，上帝会惩罚你的。我说：我操上帝。结论：彪悍的人生不需要上帝。

TOP

yezhan

荣誉会员

Rank: 6Rank: 6Rank: 6

帖子
146 
精华
0 
积分
471 
阅读权限
100 
性别
男 
在线时间
35 小时 
注册时间
2005-6-14 
最后登录
2008-5-10 
沙发 大 中 小 发表于 2005-8-2 18:40  只看该作者
ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")

获取 使用代理的客户的真实ip,客户未使用代理时这个值为空

ip=Request.ServerVariables("REMOTE_ADDR")

获取 未使用代理的客户的真实ip

if Request.ServerVariables("HTTP_X_FORWARDED_FOR")

=empty then
remoteaddr=Request.ServerVariables("REMOTE_ADDR")

else
remoteaddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if

response.write remoteaddr

读取用户地址
如果用了代理，则读出用户的实际地址
觉得你够三八吗？ 觉得你有资格和我挑吗？ 那就到八里街XX洗头店找 老板娘单挑吧 活着回来的找我 http://Www.OkHtm.Com ---------------------------------------------------------- 不要看俺了，俺只是来学习的 学习你们的三八精神的.

TOP

snailsor

晶莹剔透§烈日灼然

Rank: 1

帖子
46 
精华
0 
积分
184 
阅读权限
40 
在线时间
74 小时 
注册时间
2005-6-30 
最后登录
2008-6-27 
椅子 大 中 小 发表于 2005-8-2 19:11  只看该作者
下面是一个限制用的程序，限制允许的地区访问，不允许使用代理服务器访问：


<%
IP = Request.ServerVariables("REMOTE_ADDR")
Function cacuIp(ip)
On Error Resume Next
Dim srIp, aIp
srIp=0
aIp = Split(ip,".")
If UBound(aIP)<>3 Then
cacuIP=0
Exit Function
End If
For i=0 To 3
srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
cacuIp=srIp-1
If Err Then cacuIp=0
End Function
Set CONN=Server.CreateObject("ADODB.Connection")
CONN.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("ip.mdb")
iIp=cacuIp(IP)
SQL = "SELECT country,city FROM IP_SoftYes WHERE ip1<=" & iIp & " AND ip2>=" & iIp
Set rs = CONN.Execute ( SQL )
If rs.Eof Then
sPlace="查无记录"
Else
sPlace=rs(0)&" "&rs(1)
End If
Set rs=Nothing
If not((InStr(sPlace,"北京")<>0) or (InStr(sPlace,"上海")<>0)) Then
Response.Write "错误的物理地址，你将不能访问。"
Response.End
End If
Set CONN=Nothing
If Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" Then  
Response.Write "本页不允许使用代理服务器访问。"
Response.End
End If
%>

另外需要一个IP数据库在同目录下支持。这个程序可以直接被include到其他程序内被使用。
原来我什么都不懂。

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题