Question

asp中的do while 和for的使用，实现留言内容的设置和分页！求高玩帮忙！！

我用do while 实现的功能是只显示私信内容的前20个字符，比如，一条私信的长度的200字符，由于篇幅有限不能全部显示，所以我设置了每天私信只显示前20个字符，剩下的字符用...代替，当点击私信内容时，私信内容会在指定的页面全部显示出来。for实现的功能是分页，每一页显示8条数据。

代码如下：

<div>
<p><a
href="plettermanager.asp">收信箱</a> | <a
href="plettermanager2.asp">发信箱</a></p>
<table>
<tr><th>收信人</th><th>私信内容</th><th>发信时间</th></tr>
<%
do
while not rs.eof
'如果私信内容过长，则根据以下设置来处理
dim message
if
len(rs("U_content"))>20
then
message=left(rs("U_content"),20)'取出字符串从左起的20个字符
message=message&"..."
else
message=rs("U_content")
end
if
%>

<%
for i=1 to rs.pagesize
if rs.eof then exit
for
%>

<tr>
<td><%=rs("U_accept")%></td>
<td><a
href="plettermodify.asp?ShowId=<%=rs("U_ID")%>"><%=message%></a></td>
<td><%=rs("U_date")%></td></tr>

<%
rs.movenext
next
%>

<%
rs.movenext
——此为错误提示语句
loop
%>

</table>
<span
id="page">
<ul>
<%
for i = 1 to rs.pagecount
url =
"page=" & i
%>

<li><a
href="plettermanager.asp?<%=url%>"><%=i%></a></li>

<%
next
%>
</ul>

</span>
</div>

错误提示为：
ADODB.Recordset: BOF 或 EOF
中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

错误语句：rs.movenext

到底怎样才是正确的嵌套方式？如何才能实现我想要的功能？

Answer 1

<div>
<p><a href="plettermanager.asp">收信箱</a> | <a href="plettermanager2.asp">发信箱</a></p>
<table>
<tr><th>收信人</th><th>私信内容</th><th>发信时间</th></tr>
<%
dim message
for i=1 to rs.pagesize
if rs.eof then exit for
if len(rs("U_content"))>20 then
message=left(rs("U_content"),20) & "..."
else
message=rs("U_content")
end if
%>
<tr><td><%=rs("U_accept")%></td><td><a href="plettermodify.asp?ShowId=<%=rs("U_ID")%>"><%=message%></a></td><td><%=rs("U_date")%></td></tr>
<%
rs.movenext
next
%>
</table>
<span id="page">
<ul>
<%
for i = 1 to rs.pagecount
url = "page=" & i
%>
<li><a href="plettermanager.asp?<%=url%>"><%=i%></a></li>
<%
next
%>
</ul>
</span>
</div>