Question

ASP 如何让循环显示达到分页效果？

以下这段代码是一个留言本的后台管理显示代码，现在上有多少显示多少，我想把它每页只显示10条,多的在下一页,下一页显示,请高手帮我把代码修改一下,谢谢了哦! 我比较笨请最好能将修改好的代码发来哦!

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><TABLE id=Table40 cellSpacing=1 cellPadding=3 width=100%
bgColor=#999999 border=0>
<TBODY>
<TR>
<TD colspan="2" bgColor=#EAEAEA><TABLE width="100%"
border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height="21"><P style="MARGIN-TOP: 3px; MARGIN-LEFT: 10px"><font color="#2319DC">网站标题： <%=rs("titledata")%></font></P></TD>
<TD width="182">提交时间：<%=rs("data")%></TD>
<TD width="150" align=right><a href="<%=rs("httpdata")%>" target="_blank"><font color="#009900">链接</font></a> <a href="mailto:<%=rs("email")%>"><font color="#999999">邮件</font></a> <a href="del.asp?id=<%=rs("id")%>" onclick="return confirm('是否确定删除本留言？');"><font color="#FF0000">删除</font></a> <a href="logout.asp"><font color="#0000FF">退出</font></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width=78 bgColor=white><P class="text2" style="MARGIN-TOP: 3px; MARGIN-LEFT: 10px"><font color="#FF0000">网站简介：</font></p></TD>
<TD width="843" bgColor=white><P style="MARGIN-TOP: 3px; MARGIN-LEFT: 10px"><%=rs("bodydata")%></p></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td height="25"></td>
</tr>
</table>
二楼的代码我运行时出现以下错误
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/admin/index.asp, line 76
=rs

Answer 1

你给的代码就没有连接数据库，一开始我只是在你的代码的基础上加了分页代码，没有连接数据库。你现在把下面连接数据库的代码修改一下数据库名称和数据项再试一试。
我做过一个留言本，需要的话我可以发给你参考一下。

<%
dim page
page=request("page")
PageSize = 10 '每页显示10条记录
%>

<%dim conn
set conn=server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("***.mdb")
%>
<%
sql="select * from liuyan order by 时间 desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">

<%
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then panumge=pg
if pgnum>0 then rs.AbsolutePage=page
if rs.eof then
response.write "<font class='3dfont' color=red>还没有任何东东</font>"
else
rowcount=rs.pagesize
for n=1 to rs.pagesize
do while not rs.Eof and rowcount>0
%>

<tr>
<td><TABLE id=Table40 cellSpacing=1 cellPadding=3 width=100%
bgColor=#999999 border=0>
<TBODY>
<TR>
<TD colspan="2" bgColor=#EAEAEA><TABLE width="100%"
border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height="21"><P style="MARGIN-TOP: 3px; MARGIN-LEFT: 10px"><font color="#2319DC">网站标

题： <%=rs("titledata")%></font></P></TD>
<TD width="182">提交时间：<%=rs("data")%></TD>
<TD width="150" align=right><a href="<%=rs("httpdata")%>" target="_blank"><font

color="#009900">链接</font></a> <a href="mailto:<%=rs("email")%>"><font color="#999999">邮

件</font></a> <a href="del.asp?id=<%=rs("id")%>" onclick="return confirm('是否确定删除本留

言？');"><font color="#FF0000">删除</font></a> <a href="logout.asp"><font color="#0000FF">

退出</font></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD width=78 bgColor=white><P class="text2" style="MARGIN-TOP: 3px; MARGIN-LEFT:

10px"><font color="#FF0000">网站简介：</font></p></TD>
<TD width="843" bgColor=white><P style="MARGIN-TOP: 3px; MARGIN-LEFT: 10px"><%=rs

("bodydata")%></p></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td height="25"></td>
</tr>

<%
rs.MoveNext
rowcount=rowcount-1
loop
next
%>

</table>

<table border="0" cellspacing="0" cellpadding="0" width="100%">
<form method=post action="">
<tr>
<td> <div align="center"> |<%=page%>/<%=rs.pagecount%>页||共

</font><%=totalfilm%>条||每页显示10条|</font></font>
<%if page=1 then%>
|首 页||上一页|
<% else %>
|<a href="?page=1">首 页</a>||<a href="?page=<%=page-1%>">上

一页</a>|
<%end if%>
<%if rs.pagecount-page<1 then%>
|下一页||尾 页
<%else%>
|<a href="?page=<%=page+1%>">下一页</a>||<a href="?page=<%

=rs.pagecount%>">尾 页</a>|</FONT>
<%end if%>
 
<select name="goto" id="goto"

onChange="window.location=form.goto.options[form.goto.selectedIndex].value" size="1"

class="input2" >
<% for i=1 to pgnum %>
<% page=clng(request("page")) %>
<%if i=page then%>
<option value="index.asp?page=<%=i%>"

selected="selected"><%=i%>页</option>
<%else%>
<option value="index.asp?page=<%=i%>"><%=i%>页</option>
<%end if%>
<%next%>
</select>
</div></td>
</tr>
<% end if %>
</form>
</table>

Answer 2

这个