得到真实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