?? index.asp
字號:
<%@ CODEPAGE = "936" %>
<!--#include file="bbs.css" -->
<LINK href="style.css" type=text/css rel=stylesheet>
<table width="100%" align=center border="0" cellspacing="0" cellpadding="0" class="tableBorder">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr bgcolor=ffffff>
<th height=25 ><strong>手機(jī)與網(wǎng)絡(luò)</strong></th>
</tr>
</table>
</td>
</tr>
</table>
<%
server.ScriptTimeout = 6000
response.write("<title>飛越ip-手機(jī)地址查詢</title>")
response.write("<body background=dw.gif>")
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="db2.asp"
connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'--------拆分ip，目的是為了給不足3位的補(bǔ)0，同時(shí)也判斷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后，與數(shù)據(jù)庫的ip地址比較，獲取地址,采用三種不同方法的目的是為了當(dāng)前兩個(gè)ip段相同時(shí)，得到的地址比較具體--------
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="找不到地址，如果你知道，請與本站聯(lián)系，謝謝！"
end if
end if
end if
end if
else
a="錯(cuò)誤:你輸入的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>搜索結(jié)果:</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="db1.asp"
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="找不到地址，如果你知道，請與本站聯(lián)系，謝謝！"
end if
end if
end if
end if
end if
else
a="錯(cuò)誤:請確保你輸入的是大于7位的數(shù)字！"
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>搜索結(jié)果:</td>
</tr>
<tr>
<td width="28%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc>你要搜索的手機(jī)號碼:</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>區(qū)號和描述:</td>
<td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=e%></td>
</tr>
</table>
</center>
</div>
<p>
<%end if
feiyuedbq="db2.asp"
connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'--------拆分ip，目的是為了給不足3位的補(bǔ)0，同時(shí)也判斷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后，與數(shù)據(jù)庫的ip地址比較，獲取地址,采用三種不同方法的目的是為了當(dāng)前兩個(gè)ip段相同時(shí)，得到的地址比較具體--------
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="找不到地址，如果你知道，請與本站聯(lián)系，謝謝！"
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="index.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>
你當(dāng)前所在的IP:
</td>
<td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
<%=myip%> 來自：<%=a1%> <%=b1%>
</td>
</tr>
</table>
</center>
</div>
<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">
搜索手機(jī)號碼對應(yīng)的地理位置</td>
</tr>
<tr>
<td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
請輸入要搜索的號碼:
</td>
<form method="post" action="index.asp">
<td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>
<input type="text" name="num1" size="20" class=tdc>
<input type="hidden" name="searchsj" size="20" value=search>
<input type="submit" value="查 詢" name="B1" class=bdtj>
</td> </form>
</tr>
</table>
</center>
</div>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -