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