all_zhandian.asp

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

<!--#include file="conn.asp"--><style type="text/css">
<!--
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #990000;
}
-->
</style>
<table width="100%" border="1" cellpadding="0">
  <tr>
<% 
   sql="Select count(*) from zhand"
   set rs = conn.execute(sql)
   allzhandian=rs(0)
   rs.close
   set rs=nothing
%>   
    <td colspan="6" height="36" style="background-color:#6699FF; font-size:16px; color:#FFCC66">九江公交所有站点 一共 <%=allzhandian%> 站点 </td>
  </tr>
  <tr>
<%
  set rs=server.CreateObject("adodb.recordset") 
  sql="select zhand from zhand"
  rs.open sql,conn,1,1
  i=0
  do while not rs.eof
  i=i+1
%>
<% if i mod 6=0 then%>
    <td><a href="zd_lx.asp?action=zdlooklx&zhandian=<%=rs(0)%>"><%=rs(0)%></a></td></tr><tr>
<%else%>
    <td><a href="zd_lx.asp?action=zdlooklx&zhandian=<%=rs(0)%>"><%=rs(0)%></a></td>
<% end if%>		
<%
   rs.movenext
   loop
%> 
<%
   rs.close
   set rs=nothing
%>   
  </tr>
  <tr>
    <td colspan="6" height="36" style="background-color:#6699FF; font-size:14px; color:#FFCC66">九江公交所有站点 一共 <%=allzhandian%> 站点 </td>
  </tr>
</table>
<%
  conn.close
  set conn=nothing
%>