日期:2010-03-13  浏览次数:20822 次

众所周知,得到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