<% key=trim(request("key")) sm=trim(request("sm")) %> 全国邮政编码、电话区号查询

全国邮政编码、电话区号查询

关键字： 输入一个省名、地区名、邮编、区号或其拼音首字母或其中一部分
　
　
　
<% 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) %> <% rst.movenext loop rst.close conn.close end if %>
省洲名称
地区名称
邮政编码
电话区号
<%=rst("sm")%> <%=rst("dq")%> <% tmp=rst("yb") if tmp="" then tmp="★★★" response.write tmp %> <%=rst("qh") %>