高手帮我看看分页错在哪里，在线等 - ASP

萧十一郎

电梯直达

1^#

发表于 2010-1-13 06:22:39 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

<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 行

收藏0