在ASP中，获取服务器和客户端的IP地址是常见需求，本文将详细介绍如何在ASP环境中获取这些信息，并提供相关代码示例。

获取服务器IP地址的方法

在ASP中，获取服务器的IP地址可以通过多种方式实现，以下是一个常见的方法：

<%
    Dim serverIP
    serverIP = Request.ServerVariables("LOCAL_ADDR")
    Response.Write("Server IP Address: " & serverIP)
%>

上述代码使用Request.ServerVariables("LOCAL_ADDR")来获取服务器的本地IP地址，这种方法可能会返回IPv6地址（::1），因此需要进行进一步处理以确保获得的是IPv4地址，以下是改进后的代码：

<%
    Dim serverIP, IPA
    serverIP = ""
    For Each IPA In Dns.GetHostAddresses(HttpContext.Current.Request.ServerVariables.Get("LOCAL_ADDR").ToString())
        If IPA.AddressFamily.ToString() = "InterNetwork" Then
            serverIP = IPA.ToString()
            Exit For
        End If
    Next
    If serverIP <> "" Then
        Response.Write("Server IP Address: " & serverIP)
    Else
        Response.Write("Unable to determine the server IP address.")
    End If
%>

获取客户端IP地址的方法

获取客户端的IP地址相对复杂一些，因为客户端可能通过代理服务器访问，以下是几种常用方法：

方法一：使用REMOTE_ADDR

<%
    Dim clientIP
    clientIP = Request.ServerVariables("REMOTE_ADDR")
    Response.Write("Client IP Address (REMOTE_ADDR): " & clientIP)
%>

方法二：使用HTTP_X_FORWARDED_FOR

如果客户端通过代理服务器访问，可以使用HTTP_X_FORWARDED_FOR获取真实的客户端IP地址：

<%
    Dim clientIP
    clientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If clientIP = "" Then
        clientIP = Request.ServerVariables("REMOTE_ADDR")
    End If
    Response.Write("Client IP Address (HTTP_X_FORWARDED_FOR): " & clientIP)
%>

方法三：结合两种方法

为了确保获取到真实的客户端IP地址，可以结合上述两种方法：

<%
    Dim clientIP
    clientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If clientIP = "" Then
        clientIP = Request.ServerVariables("REMOTE_ADDR")
    End If
    Response.Write("Client IP Address: " & clientIP)
%>

表格对比不同方法

常见问题解答（FAQs）

Q1: 为什么有时候获取到的客户端IP地址不准确？

A1: 当客户端通过代理服务器访问时，REMOTE_ADDR只会显示代理服务器的IP地址，而不是真正的客户端IP地址，为了获取真实的客户端IP地址，需要使用HTTP_X_FORWARDED_FOR，需要注意的是，并不是所有代理服务器都会正确设置这个头部信息，因此有时可能需要结合其他方法来确保准确性。

Q2: 如果客户端没有通过代理服务器访问，获取到的客户端IP地址会是什么？

A2: 如果客户端没有通过代理服务器访问，那么HTTP_X_FORWARDED_FOR的值将是空的，此时应使用REMOTE_ADDR来获取客户端的IP地址，这样可以确保无论是否通过代理服务器访问，都能正确地获取到客户端的IP地址。