怎样升级IP库?

怎样升级IP库?

这是纯真IP数据库升级软件的一个问题，目前还没有解决

请定期（每5天）手动纯真IP数据库，然后覆盖原文件

祝你好运

代码！！！！！！！！ <!-- #Include File=Conn.asp --> <% Dim Ip,Sip,IpOne,IpTwo,Area,Address,Scope,Referer,WebUrl,Visit Dim Agent,System,Browser,BcType,Mozilla,Height,Width,Screen,Ver Dim Conn,ConnStr,DbName,Sql,Rs Dim StrYear,StrMonth,StrDay,StrHour,Strweek,StrHourLong,StrDayLong,StrMonthLong,OldDay Dim Num,I,Image,ExTime Refer=Request.ServerVariables("HTTP_REFERER") Image="Image/ok.gif" ExTime=10 Ip=Request.ServerVariables("REMOTE_ADDR") 'If (Ip=Application("OldIp")) And (DateDiff("N",Application("OldTime"),Time)<ExTime) Then ' Response.Redirect Image 'End If Application("OldIp")=Ip Application("OldTime")=Time Num=Split(Ip,".") IpOne=Num(0) IpTwo=Num(0)&"."&Num(1) For I=0 to 3 Sip=Sip&String(3-Len(Num(I)),"0")&Num(I) Next Sql="Select Top 1 Area,Address From IpInfo Where StartIp<='"&SIp&"' and EndIp>='"&SIp&"' Order By StartIp" Rs.Open Sql,Conn,1,3 If Rs.Eof Or Rs.Bof Then Area="其它地区" Address="其它地区" Else Area=Rs("Area") Address=Rs("Area")&Rs("Address") End If Rs.Close Sql="Select Top 1 Scope From IpScope Where StartIp<='"&SIp&"' and EndIp>='"&SIp&"' Order By Scope DESC" Rs.Open Sql,Conn,1,3 If Rs.Eof Or Rs.Bof Then Scope="OtherNum" Else Scope=Rs("Scope") End If Rs.Close —————————————————————————— ———————————————————————————— 第1 ip库 StartIp EndIp Area Address 202098166000 202098166255 云南 保山 202098167000 202098188255 云南 昆明 202098189000 202098191255 云南 CHINANET-YN用户 202098192000 202098194255 贵州 CHINANET-GZ用户 202098195000 202098195255 贵州 贵阳非拨号用户 第2 ip库 —————————————————————————————— StartIP EndIP Area Address 996900608 996900737 广西桂林市 铁通 996900738 996900738 广西桂林市 北极广场好朋友网吧 996900739 996900740 广西桂林市 铁通 1000210432 1000341503 日本 U’s通信公司 1000341504 1000734719 印度 VSNL网络 1000734720 1000800255 日本 ATHOME网络 （自己添加文件打开和输出代码即可）： 0回答者： z7075845 - 助理 二级   3-28 02:23 我来评论>> 提问者对于答案的评价：谢谢相关内容 •  怎样升级你的IP数据库 •  纯真IP数据库怎样升级 •  飘云qq怎么升级ip库 •  珊瑚虫版QQ怎么升级IP数据库 •  升级QQIP数据库后,有一个"解压"选项,请问需要解压吗?  更多相关问题>> 查看同主题问题：升级

你可以登陆a href=".123cha" target="_blank".123cha/a这个网站去看看一下，那里会报你登陆时的实际IP 地址的。

代码！！！！！！！！ <!-- #Include File=Conn.asp --> <% Dim Ip,Sip,IpOne,IpTwo,Area,Address,Scope,Referer,WebUrl,Visit Dim Agent,System,Browser,BcType,Mozilla,Height,Width,Screen,Ver Dim Conn,ConnStr,DbName,Sql,Rs Dim StrYear,StrMonth,StrDay,StrHour,Strweek,StrHourLong,StrDayLong,StrMonthLong,OldDay Dim Num,I,Image,ExTime Refer=Request.ServerVariables("HTTP_REFERER") Image="Image/ok.gif" ExTime=10 Ip=Request.ServerVariables("REMOTE_ADDR") 'If (Ip=Application("OldIp")) And (DateDiff("N",Application("OldTime"),Time)<ExTime) Then ' Response.Redirect Image 'End If Application("OldIp")=Ip Application("OldTime")=Time Num=Split(Ip,".") IpOne=Num(0) IpTwo=Num(0)&"."&Num(1) For I=0 to 3 Sip=Sip&String(3-Len(Num(I)),"0")&Num(I) Next Sql="Select Top 1 Area,Address From IpInfo Where StartIp<='"&SIp&"' and EndIp>='"&SIp&"' Order By StartIp" Rs.Open Sql,Conn,1,3 If Rs.Eof Or Rs.Bof Then Area="其它地区" Address="其它地区" Else Area=Rs("Area") Address=Rs("Area")&Rs("Address") End If Rs.Close Sql="Select Top 1 Scope From IpScope Where StartIp<='"&SIp&"' and EndIp>='"&SIp&"' Order By Scope DESC" Rs.Open Sql,Conn,1,3 If Rs.Eof Or Rs.Bof Then Scope="OtherNum" Else Scope=Rs("Scope") End If Rs.Close —————————————————————————— ———————————————————————————— 第1 ip库 StartIp EndIp Area Address 202098166000 202098166255 云南 保山 202098167000 202098188255 云南 昆明 202098189000 202098191255 云南 CHINANET-YN用户 202098192000 202098194255 贵州 CHINANET-GZ用户 202098195000 202098195255 贵州 贵阳非拨号用户 第2 ip库 —————————————————————————————— StartIP EndIP Area Address 996900608 996900737 广西桂林市 铁通 996900738 996900738 广西桂林市 北极广场好朋友网吧 996900739 996900740 广西桂林市 铁通 1000210432 1000341503 日本 U’s通信公司 1000341504 1000734719 印度 VSNL网络 1000734720 1000800255 日本 ATHOME网络 （自己添加文件打开和输出代码即可）：

去网上一些比较全的数据库,比如珊瑚虫的和纯真版IP库.但它们的文件格式不同.请根据需要进行相应的数据转换.

这个是数据库出现问题！自己卸载了再装一个qq???????? 传美版的比较好！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！