search.asp
来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 218 行
ASP
218 行
<%
key=trim(request("key"))
sm=trim(request("sm"))
%>
<html>
<head>
<title>全国邮政编码、电话区号查询</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #ECE9D8;
}
.style2 {color: #000000; font-weight: bold; }
-->
</style></head>
<body>
<div align="center">
<div align="center"></div>
<table width="550" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#666666" bordercolordark="#FFFFFF">
<form name="form1" action="search.asp" method="post" >
<tr>
<td align="center" bgcolor="#ECE9D8"> 关键字：
<input style="BORDER-BOTTOM: #000000 1px dotted; BORDER-LEFT: #000000 1px dotted; BORDER-RIGHT: #000000 1px dotted; BORDER-TOP: #000000 1px dotted; FONT-SIZE: 10pt" type="text" name="key" value="<%=key%>" size="20">
<input style="BORDER-BOTTOM: #000000 1px dotted; BORDER-LEFT: #000000 1px dotted; BORDER-RIGHT: #000000 1px dotted; BORDER-TOP: #000000 1px dotted; FONT-SIZE: 9pt" type="submit" name="submit" value="搜索">
<font color="#FF0000">输入一个省名、地区名、邮编、区号或其中一部分
</font> </td>
</tr>
</form>
</table>
<br>
<table width="550" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#666666" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td>
<div align="center"><a href="index.asp?sm=%B1%B1%BE%A9">北京</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C9%CF%BA%A3">上海</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%CC%EC%BD%F2">天津</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%D6%D8%C7%EC">重庆</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BA%D3%B1%B1">河北</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C9%BD%CE%F7">山西</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BA%D3%C4%CF">河南</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C1%C9%C4%FE">辽宁</a></div>
</td>
</tr>
<tr bgcolor="#ECE9D8">
<td>
<div align="center"><a href="index.asp?sm=%BC%AA%C1%D6">吉林</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BA%DA%C1%FA%BD%AD">黑龙江</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C4%DA%C3%C9%B9%C5">内蒙古</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BD%AD%CB%D5">江苏</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C9%BD%B6%AB">山东</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B0%B2%BB%D5">安徽</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%D5%E3%BD%AD">浙江</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B8%A3%BD%A8">福建</a></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center"><a href="index.asp?sm=%BA%FE%B1%B1">湖北</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BA%FE%C4%CF">湖南</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B9%E3%B6%AB">广东</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B9%E3%CE%F7">广西</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BD%AD%CE%F7">江西</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%CB%C4%B4%A8">四川</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%BA%A3%C4%CF">海南</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B9%F3%D6%DD">贵州</a></div>
</td>
</tr>
<tr bgcolor="#ECE9D8">
<td>
<div align="center"><a href="index.asp?sm=%D4%C6%C4%CF">云南</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%CE%F7%B2%D8">西藏</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C9%C2%CE%F7">陕西</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B8%CA%CB%E0">甘肃</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C7%E0%BA%A3">青海</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C4%FE%CF%C4">宁夏</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%D0%C2%BD%AE">新疆</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%CC%A8%CD%E5">台湾</a></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center"><a href="index.asp?sm=%D1%C7%D6%DE">亚洲</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C5%B7%D6%DE">欧洲</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%C3%C0%D6%DE">美洲</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B4%F3%D1%F3%D6%DE">大洋洲</a></div>
</td>
<td>
<div align="center"><a href="index.asp?sm=%B7%C7%D6%DE">非洲</a></div>
</td>
<td>
<div align="center"> </div>
</td>
<td>
<div align="center"> </div>
</td>
<td>
<div align="center"> </div>
</td>
</tr>
</table>
<br>
<table width="550" border="1" cellspacing="0" cellpadding="5" bordercolorlight="#666666" bordercolordark="#FFFFFF">
<tr bgcolor="#FFFFFF">
<td width="244">
<div align="center" class="style2">省洲名称</div>
</td>
<td width="244">
<div align="center" class="style2">地区名称</div>
</td>
<td width="244">
<div align="center" class="style2">邮政编码</div>
</td>
<td width="247">
<div align="center" class="style2">电话区号</div>
</td>
</tr>
<%
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 bgcolor="#f7f7f7">
<td><%=rst("sm")%></td>
<td><%=rst("dq")%></td>
<td><%
tmp=rst("yb")
if tmp="" then tmp="★★★"
response.write tmp
%></td>
<td><%=rst("qh")
%></td>
</tr>
<%
end if
rst.movenext
loop
%>
</table>
<%
rst.close
conn.close
end if
%><!--#include file="py.asp" --></div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?