学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

regedit进来看看拉!

regedit进来看看拉!

我自己写的一个分页程序,出错了,请大家指导! <!--#include file="conn.asp"--> <head> <meta http-equiv="Content-Language" content="zh-cn"> </head> <% sql="select * from allbook order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.recordcount=0 then 'rs.recordcount 所有记录数' response.write("数据库没有相关信息") else pgsz=5 rs.pagesize=cint(pgsz) totel=rs.recordcount pagecount=int(totel/pgsz*-1)*-1 pageno=request("pageno") 'pageno为当前页 if pageno="" then pageno=1 end if end if bookbegin=pgsz*(pageno-1)+1 'bookbegin为rs指向的第一条记录的开始 if pgsz*pageno>totel-bookbegin then bookend=totel-bookbegin else bookend=pgsz*pageno end if %> <% if pageno>1 then '我觉得这个判断有问题 rs.move [pgsz*(pageno-1)-1] end if for i=bookbegin to bookend %> <div align="center"> <table cellpadding="0" cellspacing="0" width="770" height="119"> <!-- MSTableType="layout" --> <tr> <td valign="middle"> 书名:<%=rs("bookname")%></td> <td width="97"> 作者:<%=rs("zuozhe")%></td> <td width="173"> 出版社:<%=rs("chubanshe")%></td> <td width="140"> 出版时间:<%=rs("outtime")%></td> <td width="123"> 类别:<%=rs("leibie")%></td> <td height="23" width="117"> 价钱:<%=rs("piece")%></td> </tr> <tr> <td valign="top" width="120">  </td> <td valign="top" colspan="5" height="96"> <table style="table-layout:fixed" border="0" width="100%" cellspacing="0" cellpadding="0" id="table1"> <tr> <td width="61" style="word-break:break-all" valign="top">简介:</td> <td><%=rs("jianjie")%></td> </tr> </table> </td> </tr> </table> </div> <%rs.movenext next%> <div align="center"> <table cellpadding="0" cellspacing="0" width="770" height="20"> <!-- MSTableType="layout" --> <tr> <td valign="top" height="20" width="770"><a href="fenye1.asp?pageno"> <span style="text-decoration: none">第一页</span></a>| <% if pagecount>1 then a=pageno-1 b=pageno+1 if a>0 then response.write "<a href=fenye1.asp?pageno=" response.write a response.write "><<<</a>| " end if for i=1 to pagecount response.write "<a href=fenye1.asp?pageno=" response.write i response.write ">" response.write i response.write"</a> " next if pageno<>pagecount then '为什么当pageno=pagecount时 >>>还会出现? response.write " |<a href=fenye1.asp?pageno=" response.write b response.write ">>>></a> |" end if response.write "<a href=fenye1.asp?pageno=" response.write pagecount response.write "><span style='text-decoration: none'>最后一页</span></a>" end if %> <% rs.close set rs=nothing %> <% closeconn %></td> </tr> </table> </div> 当pgsz=5时,3,4是空的,1,2页有内容,(共4页) 当pgsz=10时,1页有内容,2页是空的,(共2页) 不解?

TOP

帮你顶! 丁页!!!

[此贴子已经被作者于2004-06-19 17:21:55编辑过]

TOP

我已调好了,大家看看拉!

<!--#include file="conn.asp"--> <head> <meta http-equiv="Content-Language" content="zh-cn"> </head>

<% sql="select * from allbook order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if rs.recordcount=0 then 'rs.recordcount 所有记录数' response.write("数据库没有相关信息") else pgsz=5 rs.pagesize=cint(pgsz) totel=rs.recordcount pagecount=int(totel/pgsz*-1)*-1 pageno=request("pageno") 'pageno为当前页 if pageno="" then pageno=1 end if end if 'bookbegin=pgsz*(pageno-1)+1 'bookbegin为rs指向的第一条记录的开始 'if pgsz*pageno>totel-bookbegin then 'bookend=totel-bookbegin 'else 'bookend=pgsz*pageno 'end if %> <% if (pageno-1)*pgsz<totel then '我觉得这个判断有问题 'gaidong rs.move pgsz*(pageno-1) ''gaidong end if %> <% dim i i=0 do while not rs.eof and i<pgsz

%> <table cellpadding="0" cellspacing="0" width="770" height="119"> <!-- MSTableType="layout" --> <tr> <td valign="middle"> 书名:<%=rs("bookname")%></td> <td width="97"> 作者:<%=rs("zuozhe")%></td> <td width="173"> 出版社:<%=rs("chubanshe")%></td> <td width="140"> 出版时间:<%=rs("outtime")%></td> <td width="123"> 类别:<%=rs("leibie")%></td> <td height="23" width="117"> 价钱:<%=rs("piece")%></td> </tr> <tr> <td valign="top" width="120">  </td> <td valign="top" colspan="5" height="96"> <table style="table-layout:fixed" border="0" width="100%" cellspacing="0" cellpadding="0" id="table1"> <tr> <td width="61" style="word-break:break-all" valign="top">简介:</td> <td><%=rs("jianjie")%></td> </tr> </table> </td> </tr> </table>

<%rs.movenext loop %> </div>

<div align="center"> <table cellpadding="0" cellspacing="0" width="770" height="20"> <!-- MSTableType="layout" --> <tr> <td valign="top" height="20" width="770"><a href="fenye.asp?pageno=1"> <span style="text-decoration: none">第一页</span></a>| <% if pagecount>1 then a=pageno-1 b=pageno+1 if a>0 then response.write "<a href=fenye.asp?pageno=" response.write a response.write "><<<</a>| " end if for i=1 to pagecount response.write "<a href=fenye.asp?pageno=" response.write i response.write ">" response.write i response.write"</a> " next if pageno*pgsz<totel then '为什么当pageno=pagecount时 >>>还会出现? '''gaidong response.write " |<a href=fenye.asp?pageno=" response.write pagecount response.write ">>>></a> |" end if response.write "<a href=fenye.asp?pageno=" response.write pagecount response.write "><span style='text-decoration: none'>最后一页</span></a>" end if %> <% rs.close set rs=nothing %> <% closeconn %></td> </tr> </table> </div>

http://www.59ita.cn

TOP

四月天原创文学网 http://yc.4yt.net

TOP

有点意思
http://www.68bar.com 版主位置空缺

TOP

为什么当pageno=pagecount时 >>>还会出现?

我做的时候也是碰到这个!我那时想要当到最后一页时只出现“上一页”~~但是怎么也出不来这个结果!

pageno*pgsz<totel 不错!!!!!

我是假的!我没脑筋,没有心肠,没有胆子,没有骨气,没剑,没钱,是个真真的大洞口.我身上空得连一块肉都没有... http://www.jqjsw.com 剧情介绍网......

TOP

发新话题