【总结】ASP如何获取访客真实的IP地址
来源:asp之家 时间:2007-08-15 13:43:00
asp之家注:学习asp,无论是做企业网站还是做个人网站一般都需要用到IP地址。如留言要记录留言者IP,用户登录也经常记录登录的IP,还有站长常用的统计,更是离不开统计IP情况。本文对使用asp来记录访客IP的方法做了总结。
最简单的方法是:
userip = Request.ServerVariables("REMOTE_ADDR")
一句代码搞定,当然只能获取普通的访客IP,对于使用 * 的访客就无能为力了。
要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事,并不是每个代理服务器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取客户端的真实 IP,有些用此方法读取到的仍然是代理服务器的IP。
还有一点需要注意的是:如果客户端没有通过代理服务器来访问,那么用 Request.ServerVariables ("HTTP_X_FORWARDED_FOR") 取到的值将是空的。因此,如果要在程序中使用此方法,可以这样处理:
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
即:如果客户端通过代理服务器,则取 HTTP_X_FORWARDED_FOr 的值,如果没通过代理服务器,就取 REMOTE_ADDR 的值。
通用函数:如果不能取客户端真实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
标签:IP,ASP,IP地址
0
投稿
猜你喜欢
如何取得所有的Session变量
2008-06-08 13:59:00
关于文件命名
2009-09-18 16:29:00
IE7的web标准之道 Ⅰ
2008-08-13 12:42:00
SQL server高级应用 收藏版
2012-10-07 11:04:06
DD_belatedPNG,解决IE6不支持PNG绝佳方案
2009-04-27 16:30:00
像数艺术
2010-02-08 12:33:00
JavaScript获取事件对象的注意点
2009-07-29 18:36:00
sql函数:去掉html代码
2008-04-07 12:44:00
正则表达式字面量在ECMAScript5中的变化
2012-04-26 16:23:16
HTML5 Canvas 起步(1) - 基本概念
2009-04-21 13:14:00
ASP 统计某字符串中“A”出现过的次数
2010-08-12 10:17:00
js截取字符串的方法
2008-04-20 17:06:00
给展示性图片增加提示工具条(黑白效果)
2007-10-20 14:21:00
CSS灵活运行注释带来的益处
2008-04-21 13:51:00
ASP编码问题的深入研究与解决方案(MSDN)
2007-10-25 11:54:00
XHTML1.0与HTML兼容指引16条[译]
2009-06-10 14:45:00
CSS Expression 的优化
2009-09-24 13:27:00
一个sql查询器,自动画表格填字段
2011-04-10 10:58:00
CSS样式和JavaScript脚本是否放置于外部文件的探讨
2008-08-08 12:39:00
SQL点滴24 监测表的变化
2011-09-30 11:38:41