Question

ASP分页显示出错。

我的思想是当查询数据库时记录集不为空时按分页显示正确显示数据，当记录集为空时则输出“没有相关内容”。我的代码如下，但实际调试过程中，代码没有达到我预期的效果，当记录集为空时则出错了，报错结果如下，请各位大侠看看，帮我修改下代码。

报错结果：
ADODB.Recordset 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/b.asp，行 187

网页ASP源码入下：
......
<%
dim sj
sj=request.QueryString("lei")
oshen=request.QueryString("shen")
odaxue=request.QueryString("daxue")

if oshen<>""and odaxue=""then
exec="select * from nr where name like '%"&sj&"%' and shen='"&oshen&"'order by id desc"
end if
if oshen=""then
exec="select * from nr where name like '%"&sj&"%'order by id desc"
end if
if odaxue<>""then
exec="select * from nr where name like '%"&sj&"%' and shen='"&oshen&"' and daxue='"&odaxue&"'order by id desc"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open exec,cn,1,1
%>
......
<%
rs.pagesize=20
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.absolutepage=page
%>
<%
if rs.eof and rs.bof then
response.write("还没有留言")
else
for i=1 to rs.pagesize
if rs.Eof then Exit for
%>

<table width="718" border="1" cellspacing="0" bordercolor="#FFFFFF">
<tr bgcolor="#FCFEED" onmouseover="this.style.backgroundColor='#FFFF66'" onmouseout="this.style.backgroundColor=''">
<td width="387" height="25"><a href="xx.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a></td>
<td width="177" height="25"><span class="STYLE2"><%=rs("daxue")%></span></td>
<td width="140" height="25"><span class="STYLE2"><%=rs("time")%></span></td>
</tr>

<%
rs.movenext

next
end if
%>

.....

Answer 1

<%
if rs.eof and rs.bof then

for i=1 to rs.pagesize
if rs.Eof then Exit for
%>

<table width="718" border="1" cellspacing="0" bordercolor="#FFFFFF">
<tr bgcolor="#FCFEED" onmouseover="this.style.backgroundColor='#FFFF66'" onmouseout="this.style.backgroundColor=''">
<td width="387" height="25"><a href="xx.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a></td>
<td width="177" height="25"><span class="STYLE2"><%=rs("daxue")%></span></td>
<td width="140" height="25"><span class="STYLE2"><%=rs("time")%></span></td>
</tr>

<%
rs.movenext
next

else
response.write("还没有留言")
end if
%>

Answer 2

if rs.eof and rs.bof then
response.write("还没有留言")
else
提到分页前

Answer 3

匿名 是正确的 我就不多说