有誰知道中国的IP地址范围,在线等待
============================
@* .☆ / */ . / * . ☆/ *。
   ◢◣。       ◢◣。
  ◢★◣。     ◢★◣。
 ◢■■◣。   ◢■■◣。
◢■■■◣。 ◢■■■◣。
︸︸||︸︸ !!︸︸||︸︸
愿您有快乐的每一天 ^_^!!

解决方案 »

  1.   

    追捕中的DLL包括一个数据库,有中国的IP
      

  2.   

    我这有...你的EMAIl我发给你
    dim sip,str1,str2,str3,str4,num_1,num_2
    if request("action") = "save" then
    sip=cstr(request("ip1"))
    'dot=instr(ip,".")-1
    'response.write dot
    str1=left(sip,cint(instr(sip,".")-1))
    sip=mid(sip,cint(instr(sip,"."))+1)
    str2=left(sip,cint(instr(sip,"."))-1)
    sip=mid(sip,cint(instr(sip,"."))+1)
    str3=left(sip,cint(instr(sip,"."))-1)
    str4=mid(sip,cint(instr(sip,"."))+1)
    num_1=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1 sip=cstr(request("ip2"))
    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)
    num_2=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
    'response.write num_1 &","& num_2
    'response.end
    set rs = server.CreateObject ("adodb.recordset")
    sql="select Top 1 country,city,ip1,ip2 from address where (ip1 <="&num_1&" and ip2 >="&num_1&") or (ip1 <="&num_2&" and ip2 >="&num_2&")"
    rs.open sql,conn,1,3
    if rs.eof and rs.bof then
    rs.addnew
    rs("ip1")=num_1
    rs("ip2")=num_2
    rs("country")=trim(request("country"))
    if request("city")<>"" then
    rs("city")=trim(request("city"))
      

  3.   

    好的,我
    E-Mail:
    [email protected]
    如果能用马上给分
      

  4.   

    QQ补丁里的wry.dll里面有。
    觉的还挺多的。
      

  5.   

    你发到
    [email protected]
    呢?
    谢谢
      

  6.   

    QQ那儿太多了,我只要知道中国的IP地址范围就可了
      

  7.   

    你呀,一下子发这么大的东东过来,3.5M把我的SINA的邮箱塞满了
    谢谢你呀