ASP自动识别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
将上面的程序放到你的虚拟主机默认访问首页里!或是其它的页面里(当然你同样要在虚拟主机控制面板里设置默认首先访问的是这个文件)
相关文档：
1、运行环境与软件要求
Windows 2000 以上 （不包括Windows XP Home版）
IIS 4.0 以上
Microsoft Access 2000
Dreamweaver MX
2、IIS的安装与配置
a.安装IIS
若操作系统中还未安装IIS服务器，可打开“控制面板”，然后单击启动 “添加/删除程序”， 在弹出的对话框中选择 “添加/删除Wi ......
经过本人将ASP运行速度内存占用大小放大到200M的测试
关于定义变量：
1、定义变量，尽量不要定义全局变量，私有变量在运行速度以及空间占用上面比公共变量速度快，以及赋值上面速度问题（下面介绍）
2、变量赋值：
给变量赋值尽量一次赋完，比如：
Dim str
str="1"
str ......
除非您以系统帐户的身份登陆到服务器（在浏览器环境中也是可以实现），或者主机端进行了良好的权限配置，否则本文涉及的功能是很难实现的。因为我们通过iis访问某个页面时，一般是iis匿名帐户的身份，在大多数情况下，asp的WScript.Shell是被禁用的，因为它有很大的安全隐患。
要想实现这种功能，首先要得到Rar� ......
对于一个想学好ASP及asp.net的过来人来说,学习的过程是有趣及折磨人的,当你做出第一个实验的时候你的心情是激动的,我是毕业以来一步一步的自学过程中总结了一些好的经验让看到这篇文章的人少走一些弯路,下面写的都是针对初学者,也是我自己是怎么从零基础到现在可以开发一些东西的过程.
&nb ......
