bus_suggestion.asp

是一个公交信息查询系统

<!-- #include file="inc/config.asp" -->
<title>换乘完整查找</title>
<%
station1=request.QueryString("q")
station2=request.QueryString("q1")
if request.Form.count>0 then
  station_1_new=request.Form("station1")
  station_2_new=request.Form("station2")
  if station_1_new="" or station_2_new="" then
    call ShowErr("请选择站点进行查询!","1")
  end if
  response.Redirect("bus_show.asp?q="&station_1_new&"&q1="&station_2_new&"")
end if
%>
<!-- #include file="top.asp" -->
<div id='div_1'>所有与公交换乘"<span style='color:#FF0000'><%=station1%></span>--<span style='color:#FF0000'><%=station2%></span>"有关的信息</div>
<table style="width:780px; border:1px #ECEEF5 solid;">
<form id="form2" name="form1" method="post" action="">
  <tr>
    <td colspan="2" style="font-size:14px; padding-left:7px; border-bottom:1px #ECEEF5 solid; height:25px;">系统未找到您需要的完全符合的信息，您是否要找以下站点：</td>
  </tr>
  <tr>
    <td style="height:25px; width:50%; font-size:14px; padding-left:7px; padding-top:7px;">起始站点：</td>
    <td style="width:50%; font-size:14px; padding-top:7px; padding-left:7px; border-left:1px #ECEEF5 solid;">目的站点：</td>
  </tr>
  <tr>
    <td style="text-align:center; vertical-align:top; padding-top:8px;">
        <select name="station1" size="7" style="width:250px;">
<%
sqlstr="select * from [Station] where qmstation_name like '%"& station1 &"%'"
rs.open sqlstr,conn,1,3
if not rs.eof then
  while not rs.eof
%>
<option value="<%=rs("qmstation_name")%>"><%=rs("qmstation_name")%></option>
<%
  rs.movenext
  wend
else
  response.Redirect("station_show.asp?q="&station1&"")
end if
rs.close
%>
        </select>
    </td>
    <td style="text-align:center; vertical-align:top; padding-top:8px; border-left:1px #ECEEF5 solid;;">
      <select name="station2" size="7" style="width:250px;">
<%
sqlstr="select * from [Station] where qmstation_name like '%"& station2 &"%'"
rs.open sqlstr,conn,1,3
if not rs.eof then
  while not rs.eof
%>
<option value="<%=rs("qmstation_name")%>"><%=rs("qmstation_name")%></option>
<%
  rs.movenext
  wend
else
  response.Redirect("station_show.asp?q="&station2&"")
end if
%>
     </select>
    </td>
  </tr>
  <tr>
    <td colspan="2" style="height:60px; text-align:center; vertical-align:bottom; padding-bottom:10px;"><input type="submit" value="继续查找" /></td>
  </tr>
</form>
</table>
<!-- #include file="bottom.asp" -->