Asp获取用户真实IP函数(对代理地址仍然有效)

最新推荐文章于 2025-07-07 15:35:24 发布

谈笑有白丁

最新推荐文章于 2025-07-07 15:35:24 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/weixin_44385859/article/details/86698972

本文介绍了一个ASP函数GetUserTrueIP()，用于在考虑到代理服务器的情况下获取用户的真实IP地址。该函数通过检查HTTP_X_FORWARDED_FOR和REMOTE_ADDR变量来实现这一目标。

本文原创自news.mkq.online
版权声明：本文为原创文章，版权牛站新闻所有
转载请注明http://www.niuzhan.com/Bago/
1
<%
02
'******************************
03
'函数：GetUserTrueIP()
04
'参数：无
05
'描述：取得用户真实IP，对代理地址仍然有效；返回值：文本类型的IP地址
06
'示例：GetUserTrueIP()
07
'******************************
08
Function GetUserTrueIP()
09
dim strIPAddr
10
If Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) = “” OR InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “unknown”) > 0 Then
11
strIPAddr = Request.ServerVariables(“REMOTE_ADDR”)
12
ElseIf InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “,”) > 0 Then
13
strIPAddr = Mid(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), 1, InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “,”)-1)
14
ElseIf InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “;”) > 0 Then
15
strIPAddr = Mid(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), 1, InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “;”)-1)
16
Else
17
strIPAddr = Request.ServerVariables(“HTTP_X_FORWARDED_FOR”)
18
End If
19
GetUserTrueIP = Trim(Mid(strIPAddr, 1, 30))
20
End Function
21
%>