• 文章导航绿软下载站软件下载安卓资源苹果资源专题

    您当前所在位置:首页网络编程Asp编程 → 如何用ASP来获取客户端真实IP的地址

    如何用ASP来获取客户端真实IP的地址

    时间:2015/6/28来源:IT猫扑网作者:网管联盟我要评论(0)

    要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事,并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP,有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是:如果客户端没有通过代理服务器来访问,那么用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的?#21040;?#26159;空的。因此,如果要在程序中使用此方法,可以这样处理:

    以下为引用的内容:
      ......

      userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

      If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

      ......

     
    即:如果客户端通过代理服务器,则取 HTTP_X_FORWARDED_FOR 的值,如果没通过代理服务器,就取 REMOTE_ADDR 的值。   

    '通用函数:如果不能取客户端真实IP,就会取客户端的代理IP
      

    以下为引用的内容:
    Private Function getIP()
      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

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

      End Function

    关键词标签:地址,真实,客户端,获取

    相关阅读

    文章评论
    发表评论

    热门文章 Active Server Pages 错误 'ASP 0131'解决方Active Server Pages 错误 'ASP 0131'解决方

    相关软件

    人气排行 ASP下标越界的解决方法ASP代码中如何屏蔽ip地址 禁止某IP段访问网站“文件共享锁定数溢出” 原因及解决方法ASP常用函数列表无法写入数据库的解决方法ASP彻底实现伪静态化htmlASP用FSO生成HTML简单实例+详解[原创]数据库生成xml的两个方法

    11选五开奖结果