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

 

文章的版权

洪哥写文章很苦逼,如果本文对您略有帮助,点击感兴趣的广告支持洪哥!万分感谢!本文属于“洪哥笔记”原创文章,转载请注明来源地址:ASP获取客户端IP地址:http://www.splaybow.com/post/asp-get-client-ip.html

关注与收藏

如果您在服务器运维、网络管理、网站或系统开发过程中有任何疑问,洪哥以此为饭碗,请加QQ:115085382!
了解更多好文章,请关注我们的新浪微博和腾讯微博
亲,先存起来,方便以后再看啊!加入收藏夹的话,按Ctrl+D


« ASP获取最新插入行的ID(标识) ASP中Null,Empty,Nothing的区别 »

相关文章: