<%
Function Getip()
Dim Ip
If Request.ServerVariables("HTTP_X_ForWARDED_For")="" Then
Ip=Request.ServerVariables("REMOTE_ADDR")
Else
Ip=Request.ServerVariables("HTTP_X_ForWARDED_For")
End If
Getip=Ip
End Function
response.write Getip '输出ip地址
%>
建立上面的函数,或者放到一个公共文件下,通过调用Getip即可取得用户的ip地址。
本文介绍了一个简单的ASP函数Getip,该函数能够根据HTTP头部信息获取客户端的真实IP地址。如果HTTP_X_ForWARDED_For字段存在且非空,则使用该字段的值作为IP地址;否则,使用REMOTE_ADDR字段的值。

被折叠的 条评论
为什么被折叠?



