请帮我把showclass.asp加个分页程序,谢谢啊,我传不上去了,只好把网页代码复制出来. <!--#include file="conn.asp"--> <% dim classid,classname classid=request("classid") set rs=server.createobject("adodb.recordset") sql="select * from item where id="&classid rs.open sql,conn,1,1 classname=rs("classname") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>酷讯网--<%=classname%></title> <style type="text/css"> <!-- @import url("news.css"); --> </style> </head> <body topmargin="0"> <!--#include file="inc/head.asp"--> <table width="760" border="0" align="center" cellpadding="0" cellspacing="0"> <% set crs=server.createobject("adodb.recordset") sql="select * from news where classid="&classid&" order by id desc" crs.open sql,conn,1,1 do while not crs.eof or crs.bof dim tid,title,ttine,comment tid=crs("id") title=crs("title") comment=crs("comment") ttime=crs("time") %> <tr> <td height="80" id="cd" class="h"><%response.write"<li><a class=red href=shownews.asp?titleid="&tid&">"&left(""&title&"",11)&"</a><br>"&left(""&comment&"",70)&"..."%></td> <td width="150" align="right" id="cd2"><%=ttime%></td> </tr> <% crs.movenext if rs.eof then exit do loop crs.close %> </table> </body> </html>