全球IP地址查询完整版.docVIP

全球IP地址查询完整版 全球IP地址查询完整版 突然在某某网站看到IP地址查询，于是心血来潮做了一个。这是用asp查询全球IP地址的程式，由于类似的的用Asp查询IP的速度不是很理想，本人使用的也是宏志宏的IP地址数据库，只是对它进行了改进。 本人在 win98+pws+access2000上测试通过，效果比较理想。 数据库的设计在一个软件中的比例，毫不夸张的说占60％，虽然这是一个小的程式，但也得到一定的体现。 有任何错误或建议请一定要给我发E-mail: ljz811@163.com ，我也不了解“追捕”等类似算法，欢迎交流，谢谢! 好了废话少说，开始吧。 1、 转wry.dll为.mdb由于我们要优化数据库（适合我们用的），建议这样做： 将文件改为wry.xls用Excel打开。 在Access中新建表IP 字段名 类型 长度 说明 ------------------------------------------------------------------------------------------------------------ id 自动编号 newid 数字 5 startip前三个数字 seconded 数字 5 startip第二部分三个数字 startip 文本 20 起始IP段 endip 文本 20 止 IP 段 country 文本 此段IP所在国家或省 local 文本 此段IP所在地 从Excel中copy startip/endip/country/local 四个字段至Access ，id会自动添加，对于newid和secondid当然我们不可能手工添加，可以这样实现。 !--#include file=dbpath.asp-- % sqlcmd=select * from ip ‘建议使用sqlcmd=select * from ipwhere id=值1 and id值2 ，因为对于一万个左右的数据一下子添加资源占用很大 set rs=ip.execute(sqlcmd) do while not rs.eof fir=left(rs(startip),3) sec=mid(rs(startip),5,3) sqlcmd3=update ip set newid=′str′,secondid=′sec′ ip.execute sqlcmd3 rs.movenext loop % 这样就完成数据库的修改，对于dbpath.asp 文件下面讲 2、 文件介绍 本程序分 dbpath.asp 和 search.asp 以下是源程序及简要描述 Dbpath.Asp 代码如下：（本人命名数据库名字为ip.mdb） %@ Language=VBScript % % set ip=server.createobject(ADODB.CONNECTION) ip.Open driver={Microsoft Access Driver (*.mdb)};dbq= Server.MapPath(ip.mdb) % search.asp 代码如下： !--#include file=dbpath.asp-- % ′ Write by 尥蹶子 ′ If you find some error or you have better idea ′ Please contact me ′ My Email: ljz811@163.com Oicq% % ′建立一个提交的表单 % BODY bgColor=azure P align=centerIP查询BRBRBR FORM action=index.asp method=post id=form1 name=form1 font size=2输入IP：/fontINPUT id=text1 name=putip style =BACKGROUND-COLOR: lavender; HEIGHT: 22px; WIDTH: 182px INPUT id=submit1 name=sub1 style=BACKGROUND-COLOR: lightblue; FONT-SIZE: 12 type=submit value=我查 tabindex=0 /FORM % userip=Request.ServerVariables (REMOTE_ADDR) listip=trim(request(putip)) if listip= or listip= then Response.Write p align=centerfont size=2请输入IP地址！/font/p else ′---判断访问者