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 %> |
