gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 29 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp 取得用户真实IP,对代理地址仍然有效的函数由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. <%  
  2. '******************************  
  3. '函数:GetUserTrueIP()  
  4. '参数:无  
  5. '作者:阿里西西  
  6. '日期:2007/7/13  
  7. '描述:取得用户真实IP,对代理地址仍然有效;返回值:文本类型的IP地址  
  8. '示例:<%=GetUserTrueIP()%>  
  9. '******************************  
  10. Function GetUserTrueIP()  
  11.    dim strIPAddr  
  12.    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then   
  13.       strIPAddr = Request.ServerVariables("REMOTE_ADDR")   
  14.    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then   
  15.       strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)   
  16.    ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then   
  17.       strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)   
  18.    Else   
  19.       strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")   
  20.    End If   
  21.    GetUserTrueIP = Trim(Mid(strIPAddr, 1, 30))   
  22. End Function  
  23. %> 

最后此篇关于asp 取得用户真实IP,对代理地址仍然有效的函数的文章就讲到这里了,如果你想了解更多关于asp 取得用户真实IP,对代理地址仍然有效的函数的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com