[asp]如何为这个分页程序加上搜索不到匹配数据的保护? 我看的cnburce斑竹的分页程序如下: <!--#include file="conn.asp" --> <% Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from cnarticle" rs.Open sql,conn,1,1 %> <%filepath=request.servervariables("path_info")%> <% page=request.querystring("page")  'page值为接受值 rs.PageSize = 2 '每页显示记录数 if Not IsEmpty(page) then '如果page已经初始化...     if Not IsNumeric(page) then '判断page值是否为数字        page=1     else     Page = cint(page) '接收page并化为数字型赋给page变量     end if        if Page > rs.PageCount then '如果接收的页数大于总页数         rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页             elseif Page <= 0 then '如果page小于等于0         rs.AbsolutePage = 1 '设置当前显示页等于第一页     else         rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数     end if else rs.AbsolutePage=1 end if Page = rs.AbsolutePage%> <% For i = 1 to rs.PageSize '利用for next 循环依次读出当前页的记录 if rs.EOF then   Exit For end if   response.write("文章标题是:"& rs("cn_title"))   response.write("<br>文章作者是:"& rs("cn_author"))   response.write("<br>文章加入时间是:"& rs("cn_time"))   response.write("<br>文章内容是:"& rs("cn_content"))   response.write("<hr>")   rs.MoveNext Next %> <form action="<%=filepath%>" method="get"> <!--首先保证总页数不为1、不为0--> <%if rs.pagecount<>1 and rs.pagecount<>0 then%> <!--如果当前页数大于1，无论何时都应显示首页和上一页的连接--> <%if page>1 then%>     [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]     [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>] <!--如果当前页数大于1并且小于总页面数时，显示出尾页和下一页的连接-->     <%if page<rs.pagecount then %>     [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]     [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>] <!--如果当前页数大于1并且仍大于或等于总页面数时，不显示出尾页和下一页的连接-->     <%else%>     [下一页] [尾页]     <%end if%> <!--否则，当前页数不大于1，则只显示尾页和下一页的连接--> <%else%> [首页] [上一页] [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>] [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>] <%end if %> <!--最终，总页数若为1、为0则没有任何连接--> <%else%> [首页] [上一页] [下一页] [尾页] <%end if%> [页次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>] [共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/页] 转到<input name="page" size=5 value="<%=page%>">页 <input type="submit" value="Enter"> </form> <% rs.close Set rs = Nothing conn.close set conn=Nothing %> 可是我用了之后,发现如果用这个分页,如果select语句找不到数据库里想匹配的内容,包括表为空的时候,都会报错: ADODB.Recordset (0x800A0BCD) BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 /oa/page.asp, 第 27 行 应该如何做一个保护的页面,当找不到数据就显示一句话说"没找到" 而不要报错 请问哪位能帮忙,修改下.我不知道在哪儿下手啊

就是提示这行: rs.AbsolutePage = 1 有错,我不知道怎么搞啊.谢谢帮我修改下

我知道其他有些分页程序可以实现 但是我比较喜欢狼大哥的代码 想自己改进下.麻烦高手们帮忙哦 谢谢,

没有人看过cnbruce的代码吗?

是不是我的问题太菜,没人愿意回答啊 郁闷~~

自己找cnbruce解决吧

rs.Open sql,conn,1,1 后的语句加个判断不就得了 if not rs.eof then //.... end if

[ 关闭窗口 ]