小編給大家分享一下通過IPIP.NET如何實現(xiàn)數(shù)據(jù)庫查詢IP地址,相信大部分人都還不怎么了解,因此分享這篇文章給大家參考一下,希望大家閱讀完這篇文章后大有收獲,下面讓我們一起去了解一下吧!
“專業(yè)、務實、高效、創(chuàng)新、把客戶的事當成自己的事”是我們每一個人一直以來堅持追求的企業(yè)文化。 創(chuàng)新互聯(lián)建站是您可以信賴的網(wǎng)站建設(shè)服務商、專業(yè)的互聯(lián)網(wǎng)服務提供商! 專注于網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、軟件開發(fā)、設(shè)計服務業(yè)務。我們始終堅持以客戶需求為導向,結(jié)合用戶體驗與視覺傳達,提供有針對性的項目解決方案,提供專業(yè)性的建議,創(chuàng)新互聯(lián)建站將不斷地超越自我,追逐市場,引領(lǐng)市場!IPIP所提供的數(shù)據(jù)庫有付費和免費兩個版本,我們可以直接使用其中的免費版本。
下載地址 https://www.ipip.net/download.html (需要先注冊一個帳號)
壓縮包內(nèi)有一個PHP的解析類,還有一個 17monipdb.dat 文件就是數(shù)據(jù)庫了,我們只需要用到它就可以了。
將 17monipdb.dat 復制到程序的主目錄,使用下面的代碼:
Imports System.IO Imports System.Text Public Class IPIP Shared offset As Integer Shared index As UInteger() = New UInteger(255) {} Shared dataBuffer As Byte() Shared indexBuffer As Byte() Shared lastModifyTime As Long = 0L Shared ipFile As String Shared rwlock As New Threading.ReaderWriterLock Shared Sub New() Load("17monipdb.dat") End Sub Shared Sub Load(ByVal filename As String) ipFile = New FileInfo(filename).FullName Load() End Sub Shared Sub Load() rwlock.AcquireWriterLock(-1) Dim fi As New FileInfo(ipFile) lastModifyTime = fi.LastWriteTime.Ticks Try dataBuffer = File.ReadAllBytes(fi.FullName) Dim indexLength = BytesToLong(dataBuffer(0), dataBuffer(1), dataBuffer(2), dataBuffer(3)) indexBuffer = New Byte(indexLength - 1) {} Array.Copy(dataBuffer, 4, indexBuffer, 0, indexLength) offset = CType(indexLength, Integer) For lp As Integer = 0 To 255 index(lp) = BytesToLong( _ indexBuffer(lp * 4 + 3), _ indexBuffer(lp * 4 + 2), _ indexBuffer(lp * 4 + 1), _ indexBuffer(lp * 4) _ ) Next Catch ex As Exception Throw ex End Try rwlock.ReleaseWriterLock() End Sub Private Shared Function BytesToLong(ByVal a As Byte, ByVal b As Byte, ByVal c As Byte, ByVal d As Byte) As UInteger Return (CType(a, UInteger) << 24) Or (CType(b, UInteger) << 16) Or (CType(c, UInteger) << 8) Or d End Function Shared Function Find(ByVal ip As String) As String() rwlock.AcquireReaderLock(-1) Dim ips = ip.Split(".") Dim ip_prefix_value = Integer.Parse(ips(0)) Dim ip2long_value As Long = BytesToLong(Byte.Parse(ips(0)), Byte.Parse(ips(1)), Byte.Parse(ips(2)), Byte.Parse(ips(3))) Dim start = index(ip_prefix_value) Dim max_comp_len = offset - 1028 Dim index_offset As Long = -1L Dim index_length As Integer = -1 Dim b As Byte = 0 start = start * 8 + 1024 While start < max_comp_len If BytesToLong(indexBuffer(start + 0), indexBuffer(start + 1), indexBuffer(start + 2), indexBuffer(start + 3)) >= ip2long_value Then index_offset = BytesToLong(b, indexBuffer(start + 6), indexBuffer(start + 5), indexBuffer(start + 4)) index_length = &HFF And indexBuffer(start + 7) Exit While End If start += 8 End While Dim areaBytes = New Byte(index_length - 1) {} Array.Copy(dataBuffer, offset + index_offset - 1024, areaBytes, 0, index_length) Dim ret As String() = Encoding.UTF8.GetString(areaBytes).Split(vbTab) rwlock.ReleaseReaderLock() Return ret End Function End Class
此代碼是我從官方提供的C#版本翻譯過來的,并且去除了一些冗余代碼,只留下核心功能。
未經(jīng)過完全的測試,有BUG請反饋給我。
使用方法很簡單:
Dim ret = IPIP.Find("127.0.0.1" ' 用換行分隔所有信息 Dim ipdesc = String.Join(vbCrLf, ret)
以上是通過IPIP.NET如何實現(xiàn)數(shù)據(jù)庫查詢IP地址的所有內(nèi)容,感謝各位的閱讀!相信大家都有了一定的了解,希望分享的內(nèi)容對大家有所幫助,如果還想學習更多知識,歡迎關(guān)注創(chuàng)新互聯(lián)成都網(wǎng)站設(shè)計公司行業(yè)資訊頻道!
另外有需要云服務器可以了解下創(chuàng)新互聯(lián)scvps.cn,海內(nèi)外云服務器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應用場景需求。
本文題目:通過IPIP.NET如何實現(xiàn)數(shù)據(jù)庫查詢IP地址-創(chuàng)新互聯(lián)
網(wǎng)站網(wǎng)址:http://bm7419.com/article14/ijode.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供虛擬主機、用戶體驗、網(wǎng)站設(shè)計公司、全網(wǎng)營銷推廣、動態(tài)網(wǎng)站、域名注冊
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容