ip.asp

电子书下载系统 后台管理：admin/index.asp 超级用户：admin 密码：admin 请在db/usre.asp,admin/usres更新数据库地址,防止他人下载。 建议把.

  <%@ CODEPAGE = "936" %>
  <!--#include file="bbs.css" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" contect="all">
<meta name="Author" content="gy16.com">
<meta name="Keywords" content="电子书下载" ;charset="gb2312/">
<META name="description" content="算命，在线算命，电子书，下载，EBOOK，download,视频教材，免费软件，破解软件,余世维,余维成功经理人讲座视频,企业培训课程,PPT,PDF,PPT资料下载">
<META name="keywords" content="算命，在线算命，电子书，下载，EBOOK，download,视频教材，免费软件，破解软件,余世维,余维成功经理人讲座视频,企业培训课程,PPT,PDF,PPT资料下载">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
  <%

server.ScriptTimeout = 6000
response.write("<title>公益电子书 ip-手机地址查询-算命，在线算命，</title>")
myip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if myip = "" then myip = Request.ServerVariables("REMOTE_ADDR")
  if request.form("search")<>"" then
  fip=request.form("ip")
  c=fip
  feiyuedbq="mobile.mdb" 
   connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr  
 '--------拆分ip，目的是为了给不足3位的补0，同时也判断ip地址是否合法--------
fip = Split(fip,".") 
if Ubound(fip)=3 then
For i=0 To Ubound(fip) 
if len(fip(i))=2 then
fip(i)="0"&fip(i)
elseif len(fip(i))=1 then
fip(i)="00"&fip(i)
end if
next
 oip=fip(0)&"."&fip(1)&"."&fip(2)&"."&fip(3)
 '--------重新组合ip后，与数据库的ip地址比较，获取地址,采用三种不同方法的目的是为了当前两个ip段相同时，得到的地址比较具体--------
 sql1="select * from wry where  startip<='"&oip&"' and endip>='"&oip&"'and left(startip,3)='"&fip(0)&"' and  left(endip,3)='"&fip(0)&"' and  mid(startip,5,3)='"&fip(1)&"' and  '"&fip(1)&"'=mid(endip,5,3) and  mid(startip,9,3)='"&fip(2)&"' and  '"&fip(2)&"'=mid(endip,9,3)" 
 set rs1=conn.execute(sql1)
 if not rs1.eof then
 a=rs1("country")
 b=rs1("local")
  set rs1=nothing
else
 sql="select * from wry where  startip<='"&oip&"' and endip>='"&oip&"'and left(startip,3)='"&fip(0)&"' and  left(endip,3)='"&fip(0)&"' and  mid(startip,5,3)='"&fip(1)&"' and  '"&fip(1)&"'=mid(endip,5,3)" 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("country")
 b=rs("local")
  set rs=nothing
else
sql2="select * from wry where startip<='"&oip&"' and endip>='"&oip&"' and left(startip,3)='"&fip(0)&"' and  left(endip,3)='"&fip(0)&"'"
    set rs2=conn.execute(sql2)
    if not rs2.eof then
 a=rs2("country")
 b=rs2("local")
set rs2=nothing
else
sql3="select * from wry where startip<='"&oip&"' and endip>='"&oip&"'"
    set rs3=conn.execute(sql3)
    if not rs3.eof then
 a=rs3("country")
 b=rs3("local")
set rs3=nothing
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
  end if 
end if 
  else
  a="错误:你输入的ip地址非法，请重新输入！"
  end if  
    
   %>

    <div align="center">
      <center>
    <table border="1" cellpadding="4" style="border-collapse: collapse" bordercolor="<%=bgcolor%>" width="500" id="AutoNumber1">
    <tr>
      <td width="100%" colspan="2" align="center" background="b1.gif" height="22" class=tdc1>搜索结果:</td>
    </tr>
    <tr>
      <td width="28%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc>你要搜索的IP:</td>
      <td width="75%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc><%=c%></td>
    </tr>
    <tr>
      <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>所在地址:</td>
      <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=a%> <%=b%></td>
    </tr>
  </table>

      </center>
  </div>
<p>
   <%end if%>
     <%if request.form("searchsj")<>"" then
  d=request.form("num1")
  if len(d)>=7 then
  c=left(d,7)
  feiyuedbq="mobile.mdb" 
   connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr  

  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and  mid(end,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and  mid(end,5,1)="&mid(c,5,1)&" and mid(start,6,1)="&mid(c,6,1)&" and  mid(end,6,1)="&mid(c,6,1)&"  " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
  e=rs("url")
  set rs=nothing
else
  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and  mid(end,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and  mid(end,5,1)="&mid(c,5,1)&"  " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
  e=rs("url")
  set rs=nothing
else
  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and  mid(end,4,1)="&mid(c,4,1)&"   " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1") 
 e=rs("url")
  set rs=nothing
  else
  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&"  " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
  e=rs("url")
  set rs=nothing
  else
  sql="select * from mod where  start<="&c&" and end>="&c&"" 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
 e=rs("url")
  set rs=nothing
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
  end if  
  end if
  end if
  else
  a="错误:请确保你输入的是大于7位的数字！"
  end if  
   %>
    <div align="center">
      <center>
    <table border="1" cellpadding="4" style="border-collapse: collapse" bordercolor="<%=bgcolor%>" width="500" id="AutoNumber1">
    <tr>
      <td width="100%" colspan="2" align="center" background="b1.gif" height="22" class=tdc1>搜索结果:</td>
    </tr>
    <tr>
      <td width="28%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc>你要搜索的手机号码:</td>
      <td width="75%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc><%=d%></td>
    </tr>
    <tr>
      <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>所在地址:</td>
      <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=a%> <%=b%> </td>
    </tr>
    <tr>
      <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>区号和描述:</td>
      <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=e%></td>
    </tr>
  </table>

      </center>
  </div>
<p>
   <%end if
     feiyuedbq="mobile.mdb" 
   connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr 
   '--------拆分ip，目的是为了给不足3位的补0，同时也判断ip地址是否合法--------
myip1 = Split(myip,".") 
if Ubound(myip1)=3 then
For i=0 To Ubound(myip1) 
if len(myip1(i))=2 then
myip1(i)="0"&myip1(i)
elseif len(myip1(i))=1 then
myip1(i)="00"&myip1(i)
end if
next
 myip2=myip1(0)&"."&myip1(1)&"."&myip1(2)&"."&myip1(3)
 '--------重新组合ip后，与数据库的ip地址比较，获取地址,采用三种不同方法的目的是为了当前两个ip段相同时，得到的地址比较具体--------
 sql1="select * from wry where  startip<='"&myip2&"' and endip>='"&myip2&"'and left(startip,3)='"&myip1(0)&"' and  left(endip,3)='"&myip1(0)&"' and  mid(startip,5,3)='"&myip1(1)&"' and  '"&myip1(1)&"'=mid(endip,5,3) and  mid(startip,9,3)='"&myip1(2)&"' and  '"&myip1(2)&"'=mid(endip,9,3)" 
 set rs1=conn.execute(sql1)
 if not rs1.eof then
 a=rs1("country")
 b=rs1("local")
  set rs1=nothing
else
 sql="select * from wry where  startip<='"&myip2&"' and endip>='"&myip2&"'and left(startip,3)='"&myip1(0)&"' and  left(endip,3)='"&myip1(0)&"' and  mid(startip,5,3)='"&myip1(1)&"' and  '"&myip1(1)&"'=mid(endip,5,3)" 
 set rs=conn.execute(sql)
 if not rs.eof then
 a1=rs("country")
 b1=rs("local")
  set rs=nothing
else
sql2="select * from wry where startip<='"&myip2&"' and endip>='"&myip2&"' and left(startip,3)='"&myip1(0)&"' and  left(endip,3)='"&myip1(0)&"'"
    set rs2=conn.execute(sql2)
    if not rs2.eof then
 a1=rs2("country")
 b1=rs2("local")
set rs2=nothing
else
sql3="select * from wry where startip<='"&myip2&"' and endip>='"&myip2&"'"
    set rs3=conn.execute(sql3)
    if not rs3.eof then
 a1=rs3("country")
 b1=rs3("local")
set rs3=nothing
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
  end if 
end if 
else
a1="抱歉，找不到地址！"
end if %>

    <div align="center">
      <center>
    <table border="1" cellpadding="4" style="border-collapse: collapse" bordercolor="<%=bgcolor%>" width="500" id="AutoNumber1">
    <tr>
      <td width="100%" align="center" background="b1.gif" height="22" class=tdc1 colspan="2">
      搜索某一 IP 地址的地理位置</td>
    </tr>
    <tr>
      <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
    
  请输入要搜索的IP地址:
</td>
      <form method="post" action="ip.asp">   
    <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
    <input type="text" name="ip" size="20" class=tdc> 
    <input type="hidden" name="search" size="20" value=search>
    <input type="submit" value="查 询" name="B1" class=bdtj>
    
 
 </td> </form>
    </tr>
       <tr>
      <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
    
  你当前所在的IP:
</td>
      
    <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
   
    <%=myip%>  来自：<%=a1%> <%=b1%>
         
 
 </td> 
    </tr>
  </table>

      
    <span class="tdc">Copyright &copy; 2004 <a href="http://www.gy16.com">公益电子书</a> 
    <font color="#FF0000">GY16.COM</font> All Rights Reserved <br>
    站长子渊手机：135-56590001 QQ：79571397 </span> 
  </center>
</div>