Question

asp获取真实IP地址的代码是什么？

发代码前看是不是能用的！不要网上COPY一些不能用的，获取真实的IP地址的ASP代码，比如我用了一层代理，仍显示我本机的IP！如果同时能显示真实IP与代理IP的更好！

Answer 1

汗,我也写多一点,给你一段功能更全面的代码,自己去试一试就知道了,决对自己写的代码.Function RSV(Types)'ServerVariables常用
select case Types
case "Method"'提交方式
RSV=request.ServerVariables("Request_Method")
case "HOST"'服务器地址，取得域名
RSV=request.ServerVariables("HTTP_HOST")
case "ComeUrl"'URL来源
RSV=request.ServerVariables("HTTP_REFERER")
case "IP"'发出请求的远程主机的IP地址
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
RSV = Request.ServerVariables("REMOTE_ADDR")
Else
RSV = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
end select

end Function 调用只需要用<%=RSV("IP")%>就行了,这里面还有其他功能,你看注解吧!

Answer 2

asp 做不到这一步的！
你只能获取到公网IP，就进行不下去了。即使改变对象计算机的IE默认设置也不行！

需要获得对象的真实IP地址（内网的），只能借助于对象计算机发送数据，就是做客户端。像联机游戏！网游都有客户端，通过客户端检查、发送、判断你附近的人。

单单ASP真的实现不了的，cookies也不行！

Answer 3

ASP使用Request.ServerVariables("HTTP_X_FORWARDED_FOR") 在很多代理后是没有办法取得IP的，常用的ISA2004(2006)都是没有办法获取到真实IP的。所以在使用ASP的时候还是放弃使用获取真实IP的想法吧。直接用Request.ServerVariables("REMOTE_ADDR")获取IP就可以了。

Answer 4

<% Ip_address=Request.ServerVariables ("HTTP_X_FORWARDED_FOR")
If Ip_address="" Then
Ip_address= Request.ServerVariables ("REMOTE_ADDR")
end if
response.Write("你当前的IP地址为："&"<font color='red'>"&Ip_address&"</font>") %>

Answer 5

GetIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if GetIP= "" then GetIP=Request.ServerVariables("REMOTE_ADDR") end if
response.write GetIP