在asp下获得IP地址的更全面的代码

以下语句的最简单用法：

IP = request.servervariables（remote_addr ）
响应（写）
但是这种方法不允许替代代理服务器，因此使用以下方法更全面：

复制代码代码如下所示：
＜%的私有函数getip（）
昏暗的stripaddr
如果Request.ServerVariables（http_x_forwarded_for ）=或仪器（request.servervariables（http_x_forwarded_for ），未知）> 0
stripaddr = request.servervariables（remote_addr ）
ElseIf InStr（request.servervariables（， http_x_forwarded_for ）
stripaddr =中（request.servervariables（http_x_forwarded_for ），1，（request.servervariables工具（， http_x_forwarded_for ）
ElseIf InStr（request.servervariables（http_x_forwarded_for ），；）> 0
stripaddr =中（request.servervariables（http_x_forwarded_for ），1，（request.servervariables仪器（http_x_forwarded_for ），；）- 1）
其他的
stripaddr = request.servervariables（http_x_forwarded_for ）
最后如果
getip =装饰（MID（stripaddr，1, 30））
端功能
IP = getip（）
response.write（IP）
%>