ASP获取客户端IP地址

关键词

ASP 客户端 IP地址

摘要

本文介绍在ASP编程时，如何获取客户的端的IP地址。这里面需要使用Request.ServerVariables变量集。

我们知道，在ASP中，可以通过Request.ServerVariables("REMOTE_ADDR")来获取客户端的IP地址。但是，这个IP地址并不一定就是真实的客户端IP地址。

那么怎么判断获取的IP是否是真实的IP地址呢？而真实的客户端IP地址又应该怎么样获取呢？洪哥把获取客户端真实IP地址的功能封装成了一个函数，方便大家调用。

'--------------------------
'
'函数：GetClientIp()
'用途：获取客户端IP地址
'输入：无
'输出：客户端IP地址
'
'--------------------------
Function GetClientIp()
    Dim hAddr, hForward, strIPAddr
    hAddr = Request.ServerVariables("REMOTE_ADDR")
    hForward = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If hForward = "" Or InStr(hForward, "unknown") > 0 Then
        strIPAddr = hAddr
    ElseIf InStr(hForward, ",") > 0 Then
        strIPAddr = Mid(hForward, 1, InStr(hForward, ",") - 1)
    ElseIf InStr(hForward, ";") > 0 Then
        strIPAddr = Mid(hForward, 1, InStr(hForward, ";") - 1)
    Else
        strIPAddr = hForward
    End If
    GetClientIp = Trim(Mid(strIPAddr, 1, 30))
End Function