ASP如何得到访客真实的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
%>