| 省洲名称 |
地区名称 |
邮政编码 |
电话区号 |
<%
if sm<>"" then
connstr="DBQ="+server.mappath("post.asp")+";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("sm")%> |
<%=rst("dq")%> |
<%
tmp=rst("yb")
if tmp="" then tmp="★★★"
response.write tmp
%>
|
<%=rst("qh")
%> |
<%
rst.movenext
loop
rst.close
conn.close
end if
%>
|
|