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

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛https://bbs.txwb.com

关注天下网吧微信,了解网吧网咖经营管理，安装维护: