主题:  第一次来,请教一个IP和地域一一对应的问题!谢谢

billyjoe

职务:普通成员
等级:1
金币:0.0
发贴:9
注册:2002/8/2 13:50:29
#12002/11/19 10:13:44
我想实现用户进入我网站的时候判断他在什么地方,然后跳到相关网页中!可以吗?
我的思路是这样的:首先取得全国IP与地域对应列表,做一个表,然后将用户IP和表中的IP进行比较,符合就跳转,不符合就error
不过我没有对应列表,也不知道该怎么写IP和表中的IP判断的语句,谁能帮帮我?



billyjoe

职务:普通成员
等级:1
金币:0.0
发贴:9
注册:2002/8/2 13:50:29
#22002/11/20 14:11:21
哪位哥们帮帮我啊!?



Such a lovely place

职务:普通成员
等级:2
金币:10.0
发贴:573
注册:2001/11/4 21:15:56
#32002/11/20 14:17:14
request.ServerVariables("REMOTE_ADDR")获得ip地址,然后判断,判断的语句有点复杂(本人水平有限,嘿嘿),大致思路是用函数取出ip的不同段来比较,然后转向……你可用搜索查查,看有没有类似文章。

关于ip地址表,你可以下载一个“追捕”最新版,把里面的一个dll文件后缀改为foxpro数据库的后缀(记不清了),然后用access导入即可得到数据库……



billyjoe

职务:普通成员
等级:1
金币:0.0
发贴:9
注册:2002/8/2 13:50:29
#42002/11/21 10:23:38
对,我就是不知道判断的思路是怎样的,哪位高手能给个详细的思路?谢谢啦



Such a lovely place

职务:普通成员
等级:2
金币:10.0
发贴:573
注册:2001/11/4 21:15:56
#52002/11/21 19:05:37
写个范例,你自己参考一下。
"简单的"限制IP 地址
限制IP范围在192.1.1.*到192.1.60.*里

dim ip
dim uip
'使用Request.ServerVariables("REMOTE_ADDR")得到IP
ip=Request.ServerVariables("REMOTE_ADDR")
uip=cstr(ip)
'下面获取ip的第三个字段,区别IP的关键字段
'uip为后三个字段
uip=right(uip,len(uip)-instr(1,uip,"."))
'uip为后两个字段
uip=right(uip,len(uip)-instr(1,uip,"."))
'uip为第三个字段
uip=left(uip,instr(1,uip,"."),-1)
if left(ip,5)<> "192.1" or uip <"1" or uip > "60" then
msgbox("对不起,你不在访问允许范围内")
response.redirect("非法IP地址通知页面")
else
'用户IP为范围内IP
end if

我在网上看到的一篇文章,其中msgbox用法不对。我也不知道怎么改。看看对你有没有帮助