asp 取得用户真实IP，对代理地址仍然有效的函数

　　<%

　　'******************************

　　'函数：GetUserTrueIP()

　　'参数：无

　　'作者：阿里西西

　　'日期：2007/7/13

　　'描述：取得用户真实IP，对代理地址仍然有效；返回值：文本类型的IP地址

　　'示例：<%=GetUserTrueIP()%>

　　'******************************

　　Function GetUserTrueIP()

　　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

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

　　End Function

　　%>