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

汗,我也写多一点,给你一段功能更全面的代码,自己去试一试就知道了,决对自己写的代码.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")%>就行了,这里面还有其他功能,你看注解吧!

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

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

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

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

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

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