纯真ip数据库转换为(access)使用图文教程

第一步：其实制作查询IP工具的时候，已经有PHP可以完美直接读取QQWry.Dat文件了，演示地址: http://tools.jb51.net/ip/index.php
              源码下载地址 PHP IP查询系统(纯真IP数据库) v2.1

第二步：IPLook 1.5.exe就是可以将 QQWry.Dat 文件，转出txt文件的软件。（如果是看了脚本之家的文章来的朋友，下面的输出格式，需要选择IP以无符号整数表示）


第三步:将刚导出的txt文件转成数据库的工具


其它的就很方便修改了
下面是asp读取access的代码，注意字段的名称需要简单的修改下

复制代码

代码如下:

<%'IP
Public Function address(sip)
Dim aConnStr,aConn,adb
Dim str1,str2,str3,str4
Dim num
Dim country,city
Dim irs,SQL
If IsNumeric(Left(sip,2)) Then
If sip="127.0.0.1" Then sip="192.168.0.1"

str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
If isNumeric(str1)=0 or isNumeric(str2)=0 or isNumeric(str3)=0 or isNumeric(str4)=0 Then
Else
num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
adb = "ip.mdb"
aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
Set AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr

sql="select * from ip where startip <="&num&" and endip >="&num&""
Set irs=aConn.execute(sql)
If irs.EOF And irs.bof Then
local="尚未收录"
Else
local=irs("country")&irs("local")
End If
Set irs=Nothing
Set aConn = Nothing
SqlQueryNum = SqlQueryNum+1
End If
address=local
Else
address="未知"
End If
End Function
linkip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If linkip = "" Then linkip = Request.ServerVariables("REMOTE_ADDR")
ip=request.form("ip")
%>

+ + 您 的 IP : [ <%=linkip%> ] 来 自 : <%=address(linkip)%> + +
<%=Request.ServerVariables("HTTP_USER_AGENT")%>

请输入要查询的IP:
 

<%
if request.ServerVariables("REQUEST_METHOD")="POST" then%>
查询结果 : <%=ip%> ==>> <%=ip%> ==>> <%=address(ip)%>
上面四项依次显示的是 : 原始输入内容 ==>> 获取的IP地址 ==>> IP的物理位置
<%end if%>

文中所用工具打包下载 QQ IP数据库 纯真版 access(ip双精度)数据库制作工具