📄 index.asp

📁 OFFICE办公自动化
💻 ASP
字号:
<%
key=trim(request("key"))
sm=trim(request("sm"))
%>
<html>
<head>
<title>全国邮政编码、电话区号查询</title>
<link rel="stylesheet" href="../css/main.css" type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<base target="FrmMain">
</head>

<body topmargin="10" leftmargin="10">

<table border=0 cellspacing="0" cellpadding="0">
  <tr>
    <td width="120"><img border="0" src="../images/icon_menu.gif" align="left"><a href="map.asp">返回查询页面</a></td>
  </tr>
</table>

<hr width="100%" size=1 color="#000000">
<br>

<DIV ALIGN="CENTER">
<table width="610" cellspacing="1" cellpadding="2" class="tab">
<tr> <td WIDTH="27%" class="tdTop">省洲名称</td>
<td WIDTH="26%" class="tdTop">地区名称</td>
<td WIDTH="26%" class="tdTop">邮政编码</td>
<td WIDTH="21%" class="tdTop">电话区号</td>
</tr>
<%
if sm<>"" then
connstr="DBQ="+server.mappath("ybqh.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rst=server.createobject("adodb.recordset")
rst.open "select * from ybqh where sm='"&sm&"'",conn,1,1
do while (not rst.eof)
 %>
<tr>
<td WIDTH="27%" class="td1"><%=rst("sm")%></td>
<td WIDTH="26%" class="td1"><%=rst("dq")%></td>
<td WIDTH="26%" class="td1">
<%
tmp=rst("yb")
if tmp="" then tmp="★★★"
response.write tmp
%>
</td>
<td WIDTH="21%" class="td1">
<%=rst("qh")%>
</td>
</tr>
<%
rst.movenext
loop
rst.close
conn.close
end if
%>

<%
if key<>"" then
connstr="DBQ="+server.mappath("ybqh.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rst=server.createobject("adodb.recordset")
rst.open "select * from ybqh",conn,1,1
do while (not rst.eof)
tmpstr=rst("sm")&getpy(rst("sm"))&rst("dq")&getpy(rst("dq"))&rst("yb")&" "&rst("qh")
if instr(1,tmpstr,key,1)>0 then
%>
<tr>
<td WIDTH="27%" class="td1"><%=rst("sm")%></td>
<td WIDTH="26%" class="td1"><%=rst("dq")%></td>
<td WIDTH="26%" class="td1">
<%
tmp=rst("yb")
if tmp="" then tmp="★★★"
response.write tmp
%>
</td>
<td WIDTH="21%" class="td1">
<%=rst("qh")%>
</td>
</tr>
<%
end if
rst.movenext
loop
rst.close
conn.close
end if
%>
</table>
</DIV>
</body>
</html>
<!--#include file="py.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -