新微赢技术网

标题: 高手帮我看看分页错在哪里，在线等 [打印本页]

作者: 萧十一郎 时间: 2010-1-13 06:22
标题: 高手帮我看看分页错在哪里，在线等
 <table width="100%" height="100%" border=0 cellpadding=0 cellspacing=0 align=center> <tr><td colspan=2> <table width="100%" height=100% border=0 cellpadding=0 cellspacing=0 align=center> <tr><td align=center background="pic/zxq.jpg" width=140>   </td></tr> </table></td><td valign=top> <table width="540" border="0" align="center" valign="top" cellspacing=0 cellpadding=0 class=1 style=word-break:break-all> <%Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM zp ORDER BY id asc" rs.pagesize = 8 rs.cachesize = 8 MaxPage=8 rs.open sql,conn,1,1 ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 if ipagecount=0 then response.write "<tr><td align='center'>暂时没有</td></tr>" else rs.absolutepage = ipagecurrent irecordsshown = 0 do while irecordsshown<MaxPage and NOT rs.EOF%> <tr><%for i=1 to 4%> <td width='25%' height="155"><table border='0' align="center" cellpadding='0' cellspacing='0' style='width: 99'><tr> <td align='center' bgcolor='#EEEEEE' style='height: 99'> <%if rs.eof then%> 暂时没有 <%else%> <%=rs("title")%><br><%=rs("word")%><%irecordsshown = irecordsshown +1 end if%> </td></tr></table></td> <%rs.movenext next%> </tr> <%loop%> <tr> <td height='20' align='center' colspan='4'>每页显示 <%=MaxPage%> 张图片第<font color="#FF0000"><%=ipagecurrent%></font>/<%=ipagecount%>页 <%if ipagecurrent=1 then else Response.Write"<a href='?page=1' class='red'>首页</a> | " Response.Write"<a href='?page="&ipagecurrent-1&"' class='red'>上一页</a> | " end if if ipagecount>ipagecurrent then Response.Write"<a href='?page="&ipagecurrent+1&"' class='red'>下一页</a> " Response.Write"| <a href='?page="&ipagecount&"' class='red'>末页</a> " end if%> </td></tr> <%end if rs.Close set rs=nothing%> </td></tr></table>  ============================================================== 出错提示：错误类型： ADODB.Recordset (0x800A0BCD) BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 /zuopin/index.asp, 第 43 行

作者: ︶ぺ雨湮ㄣ 时间: 2010-1-13 06:22
if rs.eof then
改为
if rs.eof or rs.bof then
看看

作者: 火箭筒︻$▅ 时间: 2010-1-13 06:22
还是一样的错误

作者: 绿茶 时间: 2010-1-13 06:22
你的第43行是那一行啊

作者: 地瓜 时间: 2010-1-13 06:22
谢谢2楼的帮忙

我已经解决问题了

把
<%rs.movenext
next%>

改成：

<%
rs.movenext
if rs.eof then exit for
next
%>

就可以了

作者: ☆冬虫草☆ 时间: 2010-1-13 06:22
光看楼主的逻辑就很混乱

<%if rs.eof then%>
暂时没有
<%else%>
<%=rs("title")%><br><%=rs("word")%><%irecordsshown = irecordsshown +1
end if%>
</td></tr></table></td>
<%rs.movenext

如果rs.eof 了，也就是输出暂时没有了，rs.eof代表查询已经到了结尾，下面再来一个rs.movenext肯定会出错的。

你在do while中又用了for...next循环，不知道什么意思。总之逻辑混乱

作者: timmy 时间: 2010-3-22 08:05
@,@..哇~~` 走错地方啦~``

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)