根据IP跳转到用户所在城市的实现步骤
更新时间:2008年10月03日 16:18:25 作者:
根据IP跳转到用户所在城市自动识别IP,并跳转到来访问者所在的城市
(福利推荐:【腾讯云】服务器最新限时优惠活动,云服务器1核2G仅99元/年、2核4G仅768元/3年,立即抢购>>>:9i0i.cn/qcloud)
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
先去下一个最新的纯真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
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
相关文章
Access使用宏控制程序--1.5.一个宏的实例——检验口令
Access使用宏控制程序--1.5.一个宏的实例——检验口令...2006-11-11中文Access2000速成教程--1.8 定义表之间的关系
第八讲 定义表之间的关系前面定义了主键,以及相应的表后,就可以制定各表部的关系,从而建立起一个关系数据库。的应用与管理关系数据库,中文Access2000具有很强的能力,这正是中文Visual FoxPro 6与中文Excel 2000所不及的。为了建立关系数据库,首先要建立好各相关表,接着将它们全部关闭,即可按下列步骤进行操作。2006-11-11union这个连接是有什么用的和INNER JOIN有什么区别
union这个连接是有什么用的和INNER JOIN有什么区别...2006-07-07ADODB连接access是出现 80004005 错误的解决方法
今天我写的程序放到客户的机器上,一运行就出现Selected Collating Sequence Not Supported 80004005这个错误。经过google一番后,解决如下。2009-09-09
最新评论