繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何用ASP来获取客户端真实IP的地址？
- ASP
- 一个查ASP木马的小东东
- eWebEditor：网站中的隐形炸弹
- 跨站脚本执行漏洞详解与防护
- XSS测试语句大全
- Mssql高级注入笔记II
- 在MsSql、Access两种数据库中插入记录后马上得到自动编号的ID值
- asp存储过程使用大全
- 生成静态页大全[ASP/PHP/ASPX]
- 显示在线人数
- ASP 类 Class入门
- 一个ACCESS数据库访问的类
- ASP操作Excel技术总结
- 几个常用的ASP函数
- 如何编写一个ASP类
- 数组显示菜单效果
- 创建一个ASP通用分页类
- 利用Split函数进行多关键字检索
- asp实现表格3列5行
- 一句话木马入侵EASYNEWS新闻管理系统
- ASP编程实用20例
如何用ASP来获取客户端真实IP的地址？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 113 ::
收藏到网摘: n/a
要想透过代理服务器取得客户端的真实IP地址，就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事，并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP，有些用此方法读取到的仍然是代理服务器的IP。还有一点需要注意的是：如果客户端没有通过代理服务器来访问，那么用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的值将是空的。因此，如果要在程序中使用此方法，可以这样处理：
即：如果客户端通过代理服务器，则取 HTTP_X_FORWARDED_FOR 的值，如果没通过代理服务器，就取 REMOTE_ADDR 的值。
'通用函数：如果不能取客户端真实IP，就会取客户端的代理IP
| Private Function getIP() 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 = Trim(Mid(strIPAddr, 1, 30)) End Function |
评论 (0) All
