asp下比较全面的获取IP地址的代码

　　最简单的用以下语句:

　　ip=request.ServerVariables("REMOTE_ADDR")

　　response.Write(ip)

　　但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:

复制代码代码如下:

　　<%Private Function getIP()

　　Dim strIPAddr

　　If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then

　　strIPAddr = Request.ServerVariables("REMOTE_ADDR")

　　ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then

　　strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)

　　ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then

　　strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)

　　Else

　　strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

　　End If

　　getIP = Trim(Mid(strIPAddr, 1, 30))

　　End Function

　　ip=getIP()

　　response.write(ip)

　　%>