純真ip數(shù)據(jù)庫(kù)轉(zhuǎn)換為(access)使用圖文教程
發(fā)布時(shí)間：2010-04-20 09:42:25 作者：佚名 
我要評(píng)論
我要評(píng)論有時(shí)候默認(rèn)的純真ip數(shù)據(jù)庫(kù)因?yàn)槌绦騿?wèn)題，需要轉(zhuǎn)換格式等，這里就簡(jiǎn)單的給大家演示一下，轉(zhuǎn)換方法。
第一步：其實(shí)制作查詢IP工具的時(shí)候，已經(jīng)有PHP可以完美直接讀取QQWry.Dat文件了，演示地址:http://tools.jb51.net/ip/index.php
源碼下載地址 PHP IP查詢系統(tǒng)(純真IP數(shù)據(jù)庫(kù)) v2.1
第二步：IPLook 1.5.exe就是可以將 QQWry.Dat 文件，轉(zhuǎn)出txt文件的軟件。（如果是看了腳本之家的文章來(lái)的朋友，下面的輸出格式，需要選擇IP以無(wú)符號(hào)整數(shù)表示）
第三步:將剛導(dǎo)出的txt文件轉(zhuǎn)成數(shù)據(jù)庫(kù)的工具
其它的就很方便修改了
下面是asp讀取access的代碼，注意字段的名稱需要簡(jiǎn)單的修改下
<%'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%> ] 來(lái) 自 : <%=address(linkip)%> + +
<%=Request.ServerVariables("HTTP_USER_AGENT")%></span>
<form method="post" target="_top" action="ip.asp" name="ipform" onsubmit="return checkIP();">
請(qǐng)輸入要查詢的IP:
<input type="text" name="ip" size="36" value="<%=ip%>" class=input> <input type="submit" value="點(diǎn)擊查詢" class=but></form>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" then%>
<font color="#ff0000"><strong>查詢結(jié)果 : <%=ip%> ==>> <%=ip%> ==>> <%=address(ip)%></strong></font>
上面四項(xiàng)依次顯示的是 : 原始輸入內(nèi)容 <strong>==>></strong> 獲取的IP地址 <strong>==>></strong> IP的物理位置
<%end if%>
文中所用工具打包下載 QQ IP數(shù)據(jù)庫(kù) 純真版 access(ip雙精度)數(shù)據(jù)庫(kù)制作工具
源碼下載地址 PHP IP查詢系統(tǒng)(純真IP數(shù)據(jù)庫(kù)) v2.1
第二步：IPLook 1.5.exe就是可以將 QQWry.Dat 文件，轉(zhuǎn)出txt文件的軟件。（如果是看了腳本之家的文章來(lái)的朋友，下面的輸出格式，需要選擇IP以無(wú)符號(hào)整數(shù)表示）
第三步:將剛導(dǎo)出的txt文件轉(zhuǎn)成數(shù)據(jù)庫(kù)的工具
其它的就很方便修改了
下面是asp讀取access的代碼，注意字段的名稱需要簡(jiǎn)單的修改下
復(fù)制代碼
代碼如下:<%'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%> ] 來(lái) 自 : <%=address(linkip)%> + +
<%=Request.ServerVariables("HTTP_USER_AGENT")%></span>
<form method="post" target="_top" action="ip.asp" name="ipform" onsubmit="return checkIP();">
請(qǐng)輸入要查詢的IP:
<input type="text" name="ip" size="36" value="<%=ip%>" class=input> <input type="submit" value="點(diǎn)擊查詢" class=but></form>
<%
if request.ServerVariables("REQUEST_METHOD")="POST" then%>
<font color="#ff0000"><strong>查詢結(jié)果 : <%=ip%> ==>> <%=ip%> ==>> <%=address(ip)%></strong></font>
上面四項(xiàng)依次顯示的是 : 原始輸入內(nèi)容 <strong>==>></strong> 獲取的IP地址 <strong>==>></strong> IP的物理位置
<%end if%>
文中所用工具打包下載 QQ IP數(shù)據(jù)庫(kù) 純真版 access(ip雙精度)數(shù)據(jù)庫(kù)制作工具
相關(guān)文章
FC模擬器如何自定義按鍵布局 自定義按鍵布局設(shè)置教程
FC模擬器如何自定義按鍵布局？FC模擬器又稱紅白機(jī)模擬器，讓玩家可以在電腦或其他設(shè)備上重溫經(jīng)典游戲,自定義按鍵布局是使用模擬器時(shí)一項(xiàng)重要的功能，下面就為大家?guī)?lái)FC模2025-10-20
即夢(mèng)AI怎么生成圖片? 即夢(mèng)上傳參考圖生成新圖的實(shí)用教程
今天給大家介紹一下即夢(mèng)ai生成圖片的具體操作，生成圖片分2種情形，一種是完全由文字生成圖片，另一種是根據(jù)參考圖生成圖片，今天我們先介紹上傳參考圖生成新圖的教程2025-10-02
復(fù)雜數(shù)據(jù)統(tǒng)計(jì)和分析不用煩! DeepSeek+豆包自動(dòng)處理Excel數(shù)據(jù)真方便
AI時(shí)代來(lái)臨，表格處理變得如此簡(jiǎn)單高效，簡(jiǎn)直太方便了,尤其是復(fù)雜的數(shù)據(jù)統(tǒng)計(jì)和分析，幾分鐘就搞定，強(qiáng)烈推薦給大家試試2025-08-07
困擾大家20年難題被破解了! DeepSeek一鍵生成農(nóng)歷函數(shù)附代碼
之前利用PQ通過(guò)獲取API來(lái)得到公歷對(duì)用的農(nóng)歷，但是無(wú)奈效率太低了，現(xiàn)在利用DeepSeek一鍵生成農(nóng)歷函數(shù)，分分秒解決困擾大家20年難題2025-08-01
Copilot插件怎么用? 解鎖AI助手的擴(kuò)展功能的使用指南
Copilot是一款集成于操作系統(tǒng)和辦公軟件中的AI助手，該怎么使用Copilot插件呢？下面我們就來(lái)看看詳細(xì)介紹2025-07-28- 之前都是用思維導(dǎo)圖軟件做的員工手冊(cè)，現(xiàn)在想要提升工作效率，用DeepSeek制作，該如何操作呢？詳細(xì)請(qǐng)看下文介紹2025-07-15
利用AI工具提高B站學(xué)習(xí)效率! DeepSeek一鍵生成B站視頻筆記詳解
在B站學(xué)習(xí)視頻課程時(shí)，我們常常會(huì)遇到視頻節(jié)奏緩慢或內(nèi)容冗長(zhǎng)的問(wèn)題，導(dǎo)致注意力難以集中，我們可以利用ai解決這個(gè)問(wèn)題，做好內(nèi)容筆記，詳細(xì)如下文所述2025-06-25
Windows系統(tǒng)本地自建螞蟻(leanote)筆記圖文教程
Leanote螞蟻筆記是一款免費(fèi)開(kāi)源云筆記軟件，允許用戶在本地設(shè)備上建立私人服務(wù)器，實(shí)現(xiàn)數(shù)據(jù)安全和隱私性，但是還是有不少朋友不知道如何本地自建螞蟻(leanote)筆記，今天小2025-06-24還能在Excel中直接編輯! DeepSeek配合Mermaid生成圖表的技巧
今天跟大家分享下我們?nèi)绾问褂肈eepSeek與Mermaid來(lái)實(shí)現(xiàn)快速的生成圖表，操作也非常的簡(jiǎn)單，只需要準(zhǔn)備好自己的數(shù)據(jù)源即可，還可以在excel中修改哦2025-06-24deepseek各版本有什么區(qū)別? DeepSeek各版本說(shuō)明與優(yōu)缺點(diǎn)分析
本文將詳細(xì)介紹DeepSeek的各版本，從版本的發(fā)布時(shí)間、特點(diǎn)、優(yōu)勢(shì)以及不足之處，為廣大AI技術(shù)愛(ài)好者和開(kāi)發(fā)者提供一份參考指南2025-06-20
