拨开迷雾　学会寻找到真实IP地址的方法

众所周知，得到IP地址的方法是


<%=Request.ServerVariables("REMOTE_ADDR")%>


可如果客户使用的代理服务器，那么用这个方法得到了就是代理服务器的IP了，下面是穿透服务器得到真实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