• 时事博文
  • 文化时尚
  • 潮流娱乐
  • 生活常识
  • 健康生活
  • 旅游攻略
  • 体育风云
  • 财经博文
  • 汽车频道
  • 科技
  • 游戏
  • 女人
  • 互联网
  • 军事博览
  • 个性推荐
  • 当前位置: 精彩博文网 > 体育风云 > 正文

    DHCP获取IP_用通ASP直接获取用户真实IP地址

    时间:2018-08-15 16:42:56 来源:精彩博文网 本文已影响 精彩博文网手机站

    通用FUNCTION,如果不能取真实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

    • 时事博文
    • 文化时尚
    • 潮流娱乐
    • 科技
    • 游戏
    • 女人
    • 个性推荐