zd_lx.asp

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

<!--#include file="conn.asp"-->
<%  
   action=request("action")
%>
<% 
    if action="zdlooklx" then
	zhandian=trim(request("zhandian"))
	set rs=server.CreateObject("adodb.recordset")
	sql="select count(*) from lx where luxian in (select distinct luxian from jj where zhand='"&zhandian&"')"
	rs.open sql,conn,1,1
	allluxian=rs(0)
	rs.close
	set rs=nothing
%>
<table width="600" border="1" align="center" cellpadding="0">
  <tr>
    <td colspan="2" height="36" style="background-color:#6699FF; font-size:16px; color:#FFCC66">经过 <span style="font-size:18px; color:#FFFFFF"><%=zhandian%></span> 站 共有 <span style="font-size:24px; color:#FFFFFF"><%=allluxian%></span> 路</td>
  </tr>
  <tr>
    <td width="184"><table width="640" border="1" align="center">
 <% 
   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

%>
      
      <tr>
        <td  height="23" align="center" width="125">路线</td>
        <td  height="23" align="center" width="145">起点站</td>
        <td  height="23" align="center" width="151">终点站</td>
        <td  height="23" align="center" width="151">类型</td>
        <td  height="23" align="center" width="105">总站数</td>
        <td  height="23" align="center" width="42">&nbsp;</td>
      </tr>
      <tr>
        <%   
   do while not rs.eof
%>
        <form name="<%=rs(0)%>" method="post" action="edition.asp?action=lookedition">
          <td><input type="text" name="luxian" value="<%=rs(0)%>" style="border:none" size="10"></td>
          <td><input name="fzhandian" type="text" style="border:none" value="<%=rs(1)%>" size="16"></td>
          <td><input type="text" name="ezhandian" value="<%=rs(2)%>"style="border:none" size="16"></td>
          <td><input type="text" name="leixing" value="<%=rs(3)%>"style="border:none" size="15"></td>
          <td><input type="text" name="allzhandian" value="<%=rs(4)%>"style="border:none" size="15"></td>
          <td width="42"><input type="submit" name="Submit2" value="查看" style="background-color:#FFFFFF; border:none" /></td>
        </form>
      </tr>
      <tr>
        <%
   rs.movenext
   loop
   rs.close
   set rs=nothing
%>
    </table></td>
    <td width="204" valign="bottom" bgcolor="#6699FF"><form name="form1" method="post" action="edition.asp?action=editionzhandianluxian">
     <table border="1" cellspacing="0">
	   <tr>
	       <td style="font-size:12px" height="36"><span style="font-size:14px; color:#FFFFFF"><%=zhandian%></span> 修改为：</td>
	      </tr>
	    <tr><td>
      <input type="text" name="zhandiang" value="" size="15">
	  <input type="hidden" name="zhandian" value="<%=zhandian%>">
	   </td></tr>
	   <tr><td align="right">
        <input type="submit" name="Submit" value="修改">
		</td></tr>
		</table>
    </form></td>    
  </tr>
  <tr>
    <td colspan="2" height="36" style="background-color:#6699FF; font-size:16px; color:#FFCC66">经过 <span style="font-size:18px; color:#FFFFFF"><%=zhandian%></span> 站 共有 <span style="font-size:24px; color:#FFFFFF"><%=allluxian%></span> 路</td>
  </tr>
</table>
<%end if%>
<%
   conn.close
   set conn=nothing
%>