收录日期:2020/06/02 08:22:41 时间:2016/06/06 10:24:36 标签:ASP
好多网站一进去的时候,都会显示访问客户的真实ip地址,请问这个是怎么实现的?
function GetIp()
dim realip,proxy
realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if realip = "" then
GetIp = proxy
else
GetIp = realip
end if
end function
同上
Function getIP()
Dim strIPAddr 
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
Else 
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
End If 
getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function

========================================
http://peipei3000.jishuqi.com/reg.asp
http://www.goofar.com/?ID=634664011139
========================================
楼上的请解释一下行吗??俺不知道。。
其实用 Request.ServerVariables("REMOTE_ADDR")就可以得到代理的ip
如果客户不用其它代理服务器,那么就是它本身的ip
主要就是下面两个参数:
Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Request.ServerVariables("REMOTE_ADDR")

如果Request.ServerVariables("HTTP_X_FORWARDED_FOR")为空那么就是真实地址直接取Request.ServerVariables("REMOTE_ADDR")地址,如果不为空那么就是用代理连接的。
楼上说的对
先判断是否使用真实地址,如果真实地址不为空的就直接取真实地址,否则取代理地址
http://www.adjyc.com/?4577091
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
if userip = "" then 
userip = Request.ServerVariables("REMOTE_ADDR")
end if
itzhiren,最近怎么很少见到你?
<%


Function getIP()
Dim strIPAddr 
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
Else 
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
End If 
getIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function

response.write getip()
%>
最近在学习JSP,所以很少到asp这里来了。
studying
见楼上或楼下的N多正解!!!
rem ---得到真实的客户端IP--- 
CODE Copy ... 
Public Function GetClientIP() 
dim uIpAddr 
' 本函数参考webcn.Net/AspHouse 文献<取真实的客户IP> 
uIpAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If uIpAddr = "" Then uIpAddr = Request.ServerVariables("REMOTE_ADDR") 
GetClientIP = uIpAddr 
uIpAddr = "" 
End function

一个WINSOCK通讯的高难度问题,非高手莫入! PB8中如何加入一个PBL 使用Dreamweaver做网页,怎样调整每行文字的间距? 请问高程什么时候报名 给自己的公司建个邮件服务器 在pb中分页怎样实现? 50分请教为什么用pos()取出的的字符串(如:45.6)用strtofloat转换时老是提醒不是有效的浮点值? 如何注册串口控件mscomm32? 这两段代码为什么会互相影响,我真搞糊涂了? 怎样判断返回的数据集为空? 有安徽的朋友?? 请帮帮忙??小第万分感激!! 有谁知道SoftICE 4.05 for Windows NT/2000 的License? 奇怪的问题! 财务软件 如何在sql server2000中创建数据库? 如何制作网络协议的安装程序 在RichTextBox控件里面怎么让输入光标移到末尾? 请问那位老乡有mpeg4压缩标准的源代码,或者是哪个网站上有 msgbox的一点问题! 简单问题,高手请进 exchange除了作为邮件服务器以外,还可以做些什么? dos下如何修改ip地址? 有什么类似listview的控件,请推荐您觉得最好的 急,斑竹怎么将图片(最好是JPG文件)的一部分裁剪后存在文件中 一定给分 XML求救: 怎樣用OpenXML生成一個紀錄集? XML求救: 怎樣用OpenXML生成一個紀錄集? 请问VB的资源文件该怎样打开? 如何不补全信息而添加新记录(就是允许有的字段的值为空)? 可有在DB2 UDB中数据仓库管理器中使用自定义程序或转换器的? 我的表某列为idtity,如何得知我将要插入的行sql server会给我哪个id呢,