qmroute_suggestion.asp

佛山的公交车查询系统

<!-- #include file="inc/config.asp" -->
<title>线路完整查找</title>
<!-- #include file="top.asp" -->
<%
qmroute_name=request.QueryString("q")
if request.Form.count>0 then
  qmroute_name1=request.Form("qmroute_name")
  if qmroute_name1="" then
    call ShowErr("请选择要查询的线路!","1")
  end if
  response.Redirect("qmroute_show.asp?q="& qmroute_name1 &"")
end if
response.Write("<div id='div_1'>所有与公交线路""<span style='color:#FF0000'>"&qmroute_name&"</span>""有关的信息</div>")
sqlstr="select * from [Route] where qmroute_name like '%"& qmroute_name &"%'"
rs.open sqlstr,conn,1,3
if not rs.eof then
%>
<table style="width:780px; border:1px #ECEEF5 solid;">
  <tr>
    <td style="height:25px; width:50%; font-size:14px; padding-left:7px; padding-top:7px;">未找到与<font color="#FF0000"><%=qmroute_name%></font>完全符合的资料，原因如下：</td>
    <td style="width:50%; font-size:14px; padding-top:7px; padding-left:7px; border-left:1px #ECEEF5 solid;;">您要找的是否是以下线路：</td>
  </tr>
  <tr>
    <td style="height:160px; font-size:14px; padding-left:7px; line-height:25px; vertical-align:top; padding-top:6px;">
      <li>数据库出错！</li>
      <li>您输入的信息有误！</li>
      <li>您要找的信息不完整！</li>
      <li>本系统资料库里没有您要找的资料！</li>
      <li>系统正在待试中，数据的读取可能会导致丢失！</li>
      <li>系统资料完善中，如果您有最新资料，请<a href="callwe.asp" target="_blank">联系我们</a>！</li>
    </td>
    <td style="text-align:center; vertical-align:top; padding-top:8px; border-left:1px #ECEEF5 solid;;">
<form name="form1" method="post" action="">
        <select name="qmroute_name" size="7" style="width:250px;">
<%while not rs.eof%>
          <option value="<%=rs("qmroute_name")%>"><%=rs("qmroute_name")%></option>
<%
rs.movenext
wend
%>
        </select><br /><br />
        <input type="submit" value="继续查找" />
</form>
    </td>
  </tr>
</table>
<%
else
  call RouteErr(qmroute_name)
end if
%>
<!-- #include file="bottom.asp" -->