收录日期:2019/10/18 22:05:18 时间: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

关于JS取struts标签Select的值 关于日报表的问题 请问怎么修改cxgrid的日期中的中文为英文??谢谢! QQ 素材 谁有啊 自定义标签输出JSON数据 d友们帮忙改错 高手帮我看看这个winform中空间名的引用错误出在哪里? 手机视频采集如何做到边录制边写文件? error CS0103: 当前上下文中不存在名称“previousnews” oracle 性能监控工具,sql工具(经典) 如何在程序中让tmail收取邮件 CASS安装后很多问题。 <%# Container.ItemIndex+1%>楼 怎么让他翻页继续往后加?? 如何将编写好的JSP项目发布到服务器中? win7 x64 设置程序默认安装路径 继承后设计器无法打开 问一些问题 可旋转的文字输入实现,重造轮子 Unicode换行 跪求一道RIP网络的问题!我没搞懂!头都快炸了!! wm6下绿色免安装程序是用什么语言编的? 要删除wm6启动项某一程序的程序,应该如何选择路径? Character.valueOf(\'1\') 传值到hql语句中 的值编程了乱码 怎么解决? 【求教】可以递归的构造拷贝(复制)构造函数么? VC2010的win32程序 向导里面生成的 helloworld 程序的选项没有了 请教关于子接口单臂路由的一个小问题 请教关于VTP的一个小问题!!!!!!!!!! 从《父爱》到《民国》看硬朗小生赵会南的锐变 如何减少冗余的记录? [已处理] 剛開的博客進不去