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

鉴于大家对ASP十分关注，我们编辑小组在此为大家搜集整理了“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
%>