四、公交查询系统应用程序设计

（一）查询模块部分

1、车次查询

用户通过主页上的车次查询，可以通过查询车次名称，可在返回页面上获得该线路的首末车时间及各个停靠站的名称。

具体查询代码如下：

<%

if request.Form("select")="" then

sql = "select * from [bus]"

else    

line=request.form ("select")

sql="select * from [bus] where [line] = "&line  ‘查询所选择的线路

'response.Write sql

'response.end()

end if

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

%>

<%

do while not rs.eof

%>

<tr>

<td align="center" valign="middle"><%=rs("line")%></td>

<td align="center" valign="middle"><%=rs("time")%></td>

<td valign="middle"><%=rs("station")%></td>

</tr>

<%

rs.movenext

loop

rs.close

%>

2、车站查询

用户通过主页上的车站查询，通过查询车站名称，可在返回页面上获得经过该车站所有线路的车次、首末车时间及各个停靠站的名称。

具体查询代码如下：

<%

station1=request.form("text2")

sql="select * from [bus] where [station] like '%"&station1&"%'"       ‘查询经过所输入车站的所有车次

set rs=server.createobject("adodb.recordset")

rs.open sql,conn,1,1

%>

<%

do while not rs.eof

%>

<tr>

<td align="center" valign="middle"><%=rs("line")%></td>

<td align="center" valign="middle"><%=rs("time")%></td>

<td valign="middle"><%=rs("station")%></td>

</tr>

<%

rs.movenext

loop

rs.close

%>

3、站-站查询

用户通过主页上的站-站查询，通过查询用户所在车站及目的地车站名称，在返回页面上获得车站所有满足查询条件的车次、首末车时间及各个停靠站的名称。

具体查询代码如下：