-
大小: 8.13MB文件類型: .zip金幣: 2下載: 0 次發(fā)布日期: 2023-10-09
- 語(yǔ)言: VB
- 標(biāo)簽: IP數(shù)據(jù)庫(kù)??IP地址??
資源簡(jiǎn)介
做網(wǎng)站或某些基于網(wǎng)絡(luò)的軟件可能需要根據(jù)用戶端IP地址查詢其物理地址信息,那么就會(huì)用到IP數(shù)據(jù)庫(kù)。本文件是我根據(jù)2011年5月份的純真IP數(shù)據(jù)庫(kù)進(jìn)行整合而成,合并了部分同一地區(qū)IP,將原來(lái)的記錄由30多萬(wàn)縮減到17萬(wàn)多條,并將其中的IP數(shù)據(jù)格式轉(zhuǎn)換成了整數(shù)形式,方便查詢,提高了查詢效率。
附:IP格式轉(zhuǎn)換可參考下面兩個(gè)VB.NET函數(shù)
Public Shared Function GetIpFromInt32(ByVal value As UInt32) As String
Return (value >> 24).ToString() & "." & (value <> 24).ToString() & "." & (value <> 24).ToString() & "." & (value <> 24).ToString()
End Function
Public Shared Function GetIpFromString(ByVal value As String) As UInt32
Dim s As String() = value.Split("."c)
Return UInt32.Parse(s(0)) << 24 Or UInt32.Parse(s(1)) << 16 Or UInt32.Parse(s(2)) << 8 Or UInt32.Parse(s(3))
End Function

代碼片段和文件信息
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2011-05-04?12:20??IP\
?????文件????12901376??2011-05-04?12:20??IP\IP.db3
?????文件?????5706864??2011-05-04?12:18??IP\IP.xlsx
-----------?---------??----------?-----??----
?????目錄???????????0??2011-05-04?12:20??IP\
?????文件????12901376??2011-05-04?12:20??IP\IP.db3
?????文件?????5706864??2011-05-04?12:18??IP\IP.xlsx
評(píng)論
共有 條評(píng)論