<% 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") %>

关键字： 输入一个省名、地区名、邮编、区号或其拼音首字母或其中一部分
按地图位置查询
亚洲	欧洲	美洲	大洋洲	非洲