取用户真实的IP地址

关键词：IP，客户端IP，获取客户端IP，客户真实IP

<%

Response.Write "<center>如何获取用户真实的IP地址</center><P>"

Dim UserIP

UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If UserIP = "" Then

UserIP = Request.ServerVariables("REMOTE_ADDR")

End If

Response.Write "用户真实的IP是"&UserIP

%>