文档&支持

网站获取真实IP地址的方法

作者：美云 发布日期：2010/12/20 12:27:28 浏览次数：8353 复制

ASP篇

写了下asp取真实IP的代码，搭环境测试无代理、一级或多级代理的情况，可以正常获取

function   checkip(checkstring)'用正则判断IP是否合法
dim   re1
set   re1=new   RegExp
re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
re1.global=false
re1.Ignorecase=false
checkip=re1.test(checkstring)
set   re1=nothing
end   function


function   get_cli_ip()'取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDR
dim client_ip
if checkip(Request.ServerVariables("HTTP_CLIENT_IP"))=true then
         get_cli_ip = checkip(Request.ServerVariables("HTTP_CLIENT_IP"))
else
         MyArray = split(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),",")
         if ubound(MyArray)>=0 then
                   client_ip = trim(MyArray(0))
                   if checkip(client_ip)=true then
                            get_cli_ip = client_ip
                            exit function
                   end if
         end if
         get_cli_ip = Request.ServerVariables("REMOTE_ADDR")
end if
end   function

---------------------------------------------------------------------

aspx vb.net篇

aspx vb.net获取真实IP的函数如下：

<script runat="server">
    Public Function CheckIp(ByVal ip As String) As Boolean
        Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
        Dim reg As Regex = New Regex(pat)
        if ip = "" Then
            CheckIp = False
            exit Function
        end if
        CheckIp = reg.IsMatch(ip)
    End Function
   
    Public Function get_cli_ip() As String
        If ( Not(  System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") Is Nothing) And CheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")) = True) Then
            get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")
            Exit Function
        ElseIf Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR") Is Nothing) Then
            Dim ips() As String = Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")
            For i As Integer = 0 To ips.Length - 1
                If CheckIp(Trim(ips(i))) = True Then
                    get_cli_ip = Trim(ips(i))
                    Exit Function
                End If
            Next
        End If
        get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
    End Function
</script>

完整的测试页面：

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    Public Function CheckIp(ByVal ip As String) As Boolean
        Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
        Dim reg As Regex = New Regex(pat)
        if ip = "" Then
            CheckIp = False
            exit Function
        end if
        CheckIp = reg.IsMatch(ip)
    End Function
   
    Public Function get_cli_ip() As String
        If ( Not(  System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") Is Nothing) And CheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")) = True) Then
            get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")
            Exit Function
        ElseIf Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR") Is Nothing) Then
            Dim ips() As String = Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")
            For i As Integer = 0 To ips.Length - 1
                If CheckIp(Trim(ips(i))) = True Then
                    get_cli_ip = Trim(ips(i))
                    Exit Function
                End If
            Next
        End If
        get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
    End Function
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
<% 
    Dim client_ip As String = get_cli_ip()
    System.Web.HttpContext.Current.Response.Write(client_ip)
 %>
</body>
</html>

------------------------------------------------------------------------

PHP篇

取真实IP的php代码

if ($_SERVER["HTTP_X_FORWARDED_FOR"]) {
      if ($_SERVER["HTTP_CLIENT_IP"]) {
            $proxy = $_SERVER["HTTP_CLIENT_IP"];
      } else {
           $proxy = $_SERVER["REMOTE_ADDR"];
      }
     $ip = $_SERVER["HTTP_X_FORWARDED_FOR"];
} else {
     if ($_SERVER["HTTP_CLIENT_IP"]) {
            $ip = $_SERVER["HTTP_CLIENT_IP"];
      } else {
           $ip = $_SERVER["REMOTE_ADDR"];
      }
}
echo "Your IP $ip";
if (isset($proxy)) {
echo "Your proxy IP is $proxy";
}