zdlist.asp

这是我个公交查询系统,用ASP+SQL做的,经过多次调试了 能够很好运行.

<!--#include file="../conn.asp"-->
<% 
   action=request("action")
%>
<style type="text/css">
<!--
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color:#FFCC66;
}
a:active {
	text-decoration: none;
	color: #990000;
}
-->
</style>
<% if action="looklx" then
zhandian=request("zhandian")
 set rs=server.CreateObject("adodb.recordset")
 sql="select * from lx where luxian in(select distinct luxian from jj where zhand='"&zhandian&"')"
 rs.open sql,conn,1,1
%>
<table width="800" border="1" align="center">
  <tr><td colspan="5" height="36" style="font-size:12px; background-color:#6699FF">经过 <span style="font-size:16px; color:#FFCC66"><%=zhandian%></span> 共有<span style="font-size:16px; color:#FFCC66"><%=all_luxian%></span>路 如下: </td>
  </tr><tr>
  <td>路线</td><td>起点站</td><td>终点站</td><td>类型</td><td>总站数</td></tr><tr>
<%
    do while not rs.eof
 %>
<td><a href="edition.asp?action=lookedition&amp;luxian=<%=rs(0)%>"><%=rs(0)%></a></td><td><a href="zdlist.asp?action=looklx&amp;zhandian=<%=rs(1)%>"><%=rs(1)%></a></td>
<td><a href="zdlist.asp?action=looklx&amp;zhandian=<%=rs(2)%>"><%=rs(2)%></a></td><td><%=rs(3)%></td>
<td><%=rs(4)%></td>
  </tr><tr>

<% 
  rs.movenext
  loop
%>
<td colspan="5" height="30" style="font-size:12px; background-color:#6699FF">经过 <span style="font-size:16px; color:#FFCC66"><%=zhandian%></span> 共有<span style="font-size:16px; color:#FFCC66"><%=rs.recordcount%></span>路</td></tr>
</table>
<%
   rs.close
   set rs=nothing
   end if
%>
<%
  conn.close
  set conn=nothing
%>