有没有各省IP范围数据库？

[sunminjin]

做一个程序，要求根据登录IP，知道该IP所在省数据。请问谁有没有各省IP范围数据库，具体IP的网上是有，但数据量感觉太大，几十万条，这样读取感觉是不是太慢了。

[fireman_me]

根据纯真IP库，自己整理各省！

[sunminjin]

几十万条，整理要很久吧。谁有没有整理过的，发一个给我，我邮箱[e-mail] 谢谢1

[灬上海爽爷]

就用纯真IP数据库吧。。
我就是用那个。。
如果是纯真的话提供你我用的那个函数做参考吧。

	Function FindArea(VIP)
	on error resume next
	dim inIP,inIPnum,inIPs
	inIP    = VIP
	if inIP = "127.0.0.1" then FindArea="保留地址":Exit Function
	inIPs   = split(inIP,".")
	inIPnum = 256*256*256*inips(0) + 256*256*inips(1) + 256*inips(2) + inips(3)

	set rsip=server.CreateObject("adodb.recordset")
	sqlstr="select top 1 F_StartIP,F_EndIP,F_Intro1,F_Intro2 from T_IPAddress where F_EndIP>="&inipnum&" and F_StartIP<=" & inipnum & " order by F_EndIP-F_StartIP" 
	rsip.open sqlstr,Conn,1,3   
	if rsip.eof then
	FindArea="未知数据"
	else
	FindArea=rsip("F_Intro1") & rsip("F_Intro2")
	FindArea=Replace(FindArea,"CZ88.NET","")
	if instr(Findarea,"未知") then FindArea="未知数据"
	end if
	End Function

[hongmei85]

那个几十万条的数据库处理下，根据省份合并一下ip地址

[Dogfish]

以前有个叫追捕程序，它带有一个ip库的。楼主可以找找看。