ASP获取客户端IP通用函数(HTTP_X_FORWARDED_FOR)
2008-04-09 13:01
357 查看
'获取客户端IP
Private Function getClientIP()
Dim strIPAddr, XFOR, REMOTE_ADDR
XFOR = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
REMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR")
If XFOR = "" OR InStr(XFOR, "unknown") > 0 Then
strIPAddr = REMOTE_ADDR
ElseIf InStr(XFOR, ",") > 0 Then
strIPAddr = Mid(XFOR, 1, InStr(XFOR, ",")-1)
ElseIf InStr(XFOR, ";") > 0 Then
strIPAddr = Mid(XFOR, 1, InStr(XFOR, ";")-1)
Else
strIPAddr = XFOR
End If
getClientIP = Trim(Mid(strIPAddr, 1, 30))
End Function
Private Function getClientIP()
Dim strIPAddr, XFOR, REMOTE_ADDR
XFOR = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
REMOTE_ADDR = Request.ServerVariables("REMOTE_ADDR")
If XFOR = "" OR InStr(XFOR, "unknown") > 0 Then
strIPAddr = REMOTE_ADDR
ElseIf InStr(XFOR, ",") > 0 Then
strIPAddr = Mid(XFOR, 1, InStr(XFOR, ",")-1)
ElseIf InStr(XFOR, ";") > 0 Then
strIPAddr = Mid(XFOR, 1, InStr(XFOR, ";")-1)
Else
strIPAddr = XFOR
End If
getClientIP = Trim(Mid(strIPAddr, 1, 30))
End Function
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- 利用HTTP_X_FORWARDED_FOR获取客户端IP(http代理的相关知识)
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- HttpServletRequest getHeader("x-forwarded-for")获取真实客户端IP
- 利用HTTP_X_FORWARDED_FOR获取客户端IP(http代理的相关知识)
- HttpServletRequest getHeader("x-forwarded-for")获取真实客户端IP
- 使用HTTP_X_FORWARDED_FOR获取客户端IP的严重后果
- X-Forwarded-For 负载均衡 7 层 HTTP 模式获取来访客户端真实 IP 的方法（IIS/Apache/Nginx/Tomcat）
- 转:利用HTTP_X_FORWARDED_FOR获取客户端IP(http代理的相关知识)
- 转:利用HTTP_X_FORWARDED_FOR获取客户端IP(http代理的相关知识)
- 获取用户Ip地址通用方法与常见安全隐患(HTTP_X_FORWARDED_FOR)
- 获取用户Ip地址通用方法与常见安全隐患(HTTP_X_FORWARDED_FOR)
- 获取客户端IP x-forwarded-for
- 获取用户IP地址的三个属性的区别(HTTP_X_FORWARDED_FOR,HTTP_VIA,REMOTE_ADDR)
- php中$_SERVER参数HTTP_X_FORWARDED_FOR & REMOTE_ADDR与获取IP