取得客户端IP的完美用法

最新推荐文章于 2026-04-25 10:04:31 发布

原创最新推荐文章于 2026-04-25 10:04:31 发布 · 664 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#function

收录于

ASP 专栏收录该内容

27 篇文章

订阅专栏

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

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