純真ip數據庫轉換為(access)使用圖文教程

發(fā)布時間：2010-04-20 09:42:25 作者：佚名

有時候默認的純真ip數據庫因為程序問題，需要轉換格式等，這里就簡單的給大家演示一下，轉換方法。

第一步：其實制作查詢IP工具的時候，已經有PHP可以完美直接讀取QQWry.Dat文件了，演示地址:http://tools.jb51.net/ip/index.php
源碼下載地址 PHP IP查詢系統(tǒng)(純真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")
%>
<dd style="text-align:center"><span class="bot">+ + 您的 IP : [ <%=linkip%> ] 來自 : <%=address(linkip)%> + +
<%=Request.ServerVariables("HTTP_USER_AGENT")%></span>
<form method="post" target="_top" action="ip.asp" name="ipform" onsubmit="return checkIP();">
請輸入要查詢的IP:
<input type="text" name="ip" size="36" value="<%=ip%>" class=input> <input type="submit" value="點擊查詢" class=but></form>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" then%>
<font color="#ff0000"><strong>查詢結果 : <%=ip%> ==>> <%=ip%> ==>> <%=address(ip)%></strong></font>
上面四項依次顯示的是 : 原始輸入內容 <strong>==>></strong> 獲取的IP地址 <strong>==>></strong> IP的物理位置
<%end if%>

文中所用工具打包下載 QQ IP數據庫純真版 access(ip雙精度)數據庫制作工具