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

% ''****************************** ''函数:GetUserTrueIP() ''参数:无 ''作者:阿里西西 ''日期:2007/7/13 ''描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址 ''示例:%=GetUserTrueIP()% ''****************************** FunctionGetUserTrueIP() dimstrIPAddr IfRequest.ServerVariables('HTT

作者: 来源: 时间: 17-11-23 15:26:48

<%
''******************************
''函数: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
%>
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们