取得客户端IP的完美用法

最新推荐文章于 2025-03-18 22:44:26 发布

anwell

最新推荐文章于 2025-03-18 22:44:26 发布

阅读量644

点赞数

分类专栏： ASP 文章标签： function

本文链接：https://blog.youkuaiyun.com/anwell/article/details/328200

版权

ASP 专栏收录该内容

27 篇文章

订阅专栏

博客展示了一个名为GetIP的Function函数，用于获取客户端IP。函数通过判断Request.ServerVariables的不同情况，如HTTP_X_FORWARDED_FOR的值是否为空、是否包含逗号或分号等，来确定最终的客户端IP地址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function GetIP()'取得客户端IP
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=strIPaddr
End Function