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