根据IP跳转到用户所在城市自动识别IP,并跳转到来访问者所在的城市
先去下一个最新的纯真IP数据库,然后按如下操作:
1.运行纯真QQIP数据库里带的ShowIP.exe,点解压,输入文件名,比如IP.txt,确定,就得到一个TXT文件。
2.打开ACCESS,工具-自定义,命令选项卡,把导入选项拖动到上面的工具栏。
3.建库,建一个表,四个字段
Startip 类型:文本 (相关城市的IP段信息)
Endip 类型:文本 (相关城市的IP段信息)
Country 类型:文本 (相关城市名称)
ReUrl 类型:文本 (你想要跳转的城市路径如:北京 http://bj.abc.com)
4.点导入按钮,文件类型选文本文件,找到刚才导出的IP.txt文件,导入到刚才建的表里~
运算将真实IP转换为数字,比如北京的IP段是 : 1.1.0.0 -- 1.1.0.255
Startip: 1*256*256*256+1*256*256+0*256+0 = 16842752 (这个数字才是最终要放到数据库里)
Endip: 1*256*256*256+1*256*256+0*256+255 = 16843007 (这个数字才是最终要放到数据库里的)
可用程序批量处理,如果不会,而且没时间(像我一样)你就直接去下个动网的IP库,它是已经处理好了的,下面是程序部分:
user_ip = Request.ServerVariables("REMOTE_ADDR") ''取得访问者IP
userip_ary=split(user_ip,".")
tmp_userip=userip_ary(0)*256*256*256+userip_ary(1)*256*256+userip_ary(2)*256+userip_ary(3) '' 按规定转换IP为数字
‘从数据库找出用户IP属于的城市
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ip where Startip<="&tmp_userip&" and Endip>="&tmp_userip
rs.open sql,conn,1,1
if rs.eof then
response.redirect "index.asp" '如果没有该城市或是IP无法识别则转到首页,也可以指定页面
else
response.redirect rs("ReUrl") '如果有转到指定页面
end if
rs.close
set rs=nothing
将上面的程序放到你的虚拟主机默认访问首页里!或是其它的页面里(当然你同样要在虚拟主机控制面板里设置默认首先访问的是这个文件) OK
最新资讯
百度撤销对中智行CEO王劲商业秘密侵权案的诉讼

百度撤销对中智行CEO

无人驾驶公司发布声明称,根据北京知识产权法(tian)院(ping)下发的(20
百度高管解读四季度财报:疫情凸显百度的价值定位

百度高管解读四季度财

百度第四季度总营收为人民币289亿元(约合41.5亿美元),与
今日《细胞》揭示新冠病毒入侵细胞的关键

今日《细胞》揭示新冠

今日,顶尖学术期刊《细胞》杂志在线发表了一篇关于新冠
调查:疫情结束后餐饮电影等消费最热 服饰等紧随其后

调查:疫情结束后餐饮

超过7成受访者表示,疫情结束后会增加餐饮、电影等线下
轻装上阵后,网易变好了吗?

轻装上阵后,网易变好了

北京时间2月27日,网易发布了2019年四季度及全年财报。
欧洲移动市场预测:2022年收入有望超过230亿美元

欧洲移动市场预测:2022

从目前的趋势看,预计未来三年内,非游戏类应用在欧洲iOS
最新文章
八步解决ACCESS自动编号问题(将SQL SERVER 2000数据库,转换为ACCESS数据库)

八步解决ACCESS自动编

这篇文章主要介绍了将SQLSERVER2000数据库转换为ACCES
Access转Sql Server问题 实例说明

Access转Sql Server问

对于网上的一些access转sqlserver的解决方法,比较多,其
Access字符串处理函数整理

Access字符串处理函数

在access数据库中用的到的一些字符串处理函数代码,需要
access中显示MSysObjects系统表的设置方法

access中显示MSysObje

这篇文章主要介绍了access中显示MSysObjects系统表的
Access使用查询--1.1. 用选择查询建立计算字段

Access使用查询--1.1.

1.用选择查询建立计算字段建一个选择查询,添加“车队运
用 INNER JOIN语法联接多个表建记录集

用 INNER JOIN语法联

用INNERJOIN语法联接多个表建记录集多表联接建立记录