lxlist.asp

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

<!--#include file="conn.asp"-->
<style type="text/css">
<!--
a:link {
	text-decoration: none;
	color: #000000;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #990000;
}
-->
</style>
<form method="post" action="edition.asp?action=delete" name="delForm">
  <div align="center">
    <table width=98%  border=1 class="table" cellpadding=0 cellspacing=0>
 
      <tr>
        <td  height="23" align="center" width="152">路线</td>
        <td  height="23" align="center" width="148">起点站</td>
        <td  height="23" align="center" width="164">终点站</td>
		<td  height="23" align="center" width="163">类型</td>
        <td  height="23" align="center" width="125">总站数</td>

        <td  height="23" align="center" width="151" >管理&nbsp;&nbsp;</td>
        <td align="center" width="51" ><input type="submit" class="button" value="删除" name="b1" /></td>
      </tr>
      <% 
	    page=clng(request("page"))
		Set rs=Server.Createobject("Adodb.Recordset")
		sql="select luxian,fzhand,ezhand,leixing,allzhand from lx "
		rs.Open Sql,conn,1,1
rs.PageSize=20
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
for j=1 to rs.PageSize 
		%>
      <tr>
        <td  height="20" align="left"><FONT color=#ff9900>·</FONT><a href="edition.asp?action=lookedition&amp;luxian=<%=rs(0)%>"><%=rs(0)%></a></td>
        <td  height="20" align="left"><a href="zdlist.asp?action=looklx&amp;zhandian=<%=rs(1)%>"><%=rs(1)%></a></td>
        <td  height="20" align="left"><a href="zdlist.asp?action=looklx&amp;zhandian=<%=rs(2)%>"><%=rs(2)%></a></td>
        <td  height="20" align="center"><%=Rs(3)%></td>
        <td  height="20" align="center"><%=Rs(4)%></td>
        <td  height="20" colspan="2" align="center"><table width=100% border=0 cellpadding=0 cellspacing=0>
          <tr>
            <td  align="center"><a href="edition.asp?action=lookedition&amp;luxian=<%=Rs(0)%>">详细与修改</a></td>
            <td  align="center"><input type="checkbox" class="checkbox" name="selectluxian" value="<%=Rs(0)%>"></td>
          </tr>
        </table></td>
      </tr>
      <%
rs.movenext
if rs.eof then exit for
next
%>
    </table>
    <BR>
  </div>
</form>
<table align="right" style="font-size:14px">	
<tr><td>
<form method=Post action="lxlist.asp">
                <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=lxlist.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=lxlist.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=lxlist.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=lxlist.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
</form></td></tr></table>

<% rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 %>