📄 mobilesearch.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%HX_Conn 4:ColumnName="":Tablename="HX_Mobile"%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href="../HXinclude/HX_Style.css">
</head>
<body topmargin="20" leftmargin="0" bottommargin="0">
<table width="596" border="0" cellspacing="1" cellpadding="0" align=center bgcolor="#115F8F">
<tr>
<td colspan="2" bgcolor=ffffff><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../hximages/titleline.gif"><font class="fontmenu">手机查询</font></td>
</tr>
</table><%
if request.form("searchsj")="search" then
d=request.form("num1")
if len(d)>=7 then
c=left(d,7)
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," where start<="&c&" and mid(start,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and mid(start,6,1)="&mid(c,6,1)&"")
if rs.recordcount>0 then
a=rs("city")
b=rs("city1")
e=rs("url")
call WS_S.HX_RSClose(rs)
else
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," 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))
if rs.recordcount>0 then
a=rs("city")
b=rs("city1")
e=rs("url")
call WS_S.HX_RSClose(rs)
else
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," 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))
if rs.recordcount>0 then
a=rs("city")
b=rs("city1")
e=rs("url")
call WS_S.HX_RSClose(rs)
else
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," where start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and mid(end,3,1)="&mid(c,3,1))
if rs.recordcount>0 then
a=rs("city")
b=rs("city1")
e=rs("url")
call WS_S.HX_RSClose(rs)
else
set rs=WS_S.HX_SetRSD(ColumnName,Tablename," where start<="&c&" and end>="&c)
if rs.recordcount>0 then
a=rs("city")
b=rs("city1")
e=rs("url")
call WS_S.HX_RSClose(rs)
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
end if
end if
end if
else
a="错误:请确保你输入的是大于7位的数字！"
end if
%> <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor=A1BBE0>
<tr>
<td colspan="2" align="center" background="b1.gif" height="22"1>搜 索 结果</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="36%" align="right" height="22">你要搜索的手机号码：</td>
<td width="64%" align="left" height="22"><%=d%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="36%" align="right" height=22>所在地址：</td>
<td width="64%" align="left" height=22><%=a%> <%=b%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="36%" align="right" height=22>区号和描述：</td>
<td width="64%" align="left" height=22><%=e%></td>
</tr>
</table><br><%
end if%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor=A1BBE0>
<tr>
<td align="center" height="22" colspan="2">
搜索手机号码对应的地理位置</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" height=22>请输入要搜索的号码：</td>
<form method="post" action="">
<td width="63%" height=22>
<input type="text" name="num1" size="30" style="ime-mode:disabled">
<input type="hidden" name="searchsj" size="20" value="search">
<input type="submit" value="查 询" name="B1"> </td> </form></tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -