文章列表分页显示的设计与实现.doc

《文章列表分页显示的设计与实现.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、文章列表分页显示的实现一、需求情况几乎所有的网站都是为了进行信息发布。为了方便访客查看信息，一般网站均采用文章列表的方式将信息的主题显示出来，如果信息条数很多，则需要进行分页显示，在列表的顶部或底部设置翻页链接供访客进行翻页。例如武汉大学“珞珈新闻”频道：二、需要实现的功能1、每页显示记录数一定，例如10条或15条等；2、在列表下要有可进行翻页的链接：第一页，上一页，下一页，最后一页。访客可以通过这些链接方便地进行翻页操作；三、程序设计思路假设程序名为list.asp，基本思路如下：1、显示第几页的参数的确定通过在程序名后加参数的方式进行传递，

2、即list.asp?PgNo=5表示要显示第5页。在程序中通过PgNo=request.querystring(“PgNo”)来获取要显示的页参数。2、分页的实现方法使用rs.open方法打开记录集，设置PageSize属性确定分页大小，使用PageCount属性获取分页数，使用AbsoluePage属性将记录指针移到要显示页的第一条记录，然后使用循环依次显示每条记录。3、导航条的超链接设置第一页>上一页

3、ist.asp?PgNo=<%=PgNo+1%>>下一页>最后一页四、程序的说明<%PgNo=Request("PgNo")‘获取显示的页数ifPgNo=""thenPgNo=1‘如果没有传递参数，则默认显示第1页elsePgNo=cint(PgNo)‘将传递的参数转换为整型数endifRecCount=10‘每页显示的记录数SQL="SELECT*FROMnewsWherelb=1orderbyiddesc"‘查询的SQL语句Setrs=Server.

4、CreateObject("ADODB.Recordset")‘创建记录集对象rs.OpenSQL,conn,3,1‘打开记录集ifrs.eofthen‘如果记录集为空，则显示没有新闻response.write(“没有的新闻！”)rs.closeresponse.End()endifrs.PageSize=RecCount‘设置记录集的页大小LastPage=rs.PageCount‘获取总页数rs.AbsolutePage=PgNo‘%>标题点击数日期<

5、/td><%fori=1toRecCountifnotrs.EOFthen%>><%=rs("bt")%><%=rs("ydcs")%><%=rs("fbrq")%><%rs.MoveNextelse%>   <%endifNextrs.close%>

6、width="778"><%ifPgNo>1then%>第一页>上一页<%endififPageNo>下一页>最后一页<%endif%>页号/总页数：<%=PgNo%>/<%=LastPage%

7、>五、程序调试中出现的问题以及解决办法1、程序运行时，提示“rs.PageSize=MaxRec”有错，错误提示信息如下：解决办法：使用记录集的PageSize属性时，记录集必须显示打开，而程序中是使用隐形方式打开的记录集，改用显示办法打开后错误排除。2、假如每页显示10条，如果要显示第5页（即显示第41～50条记录），怎样快速地将记录指针定位到第41条记录？比较常用的方法时使用记录集的设置分页大小，，同时可。3、假如总记录数为84条，每页显示10条，那么最后一页不到10条记录，如何处理？在循环中加入条件判断

8、，看看记录指针是否到文件尾4、为了避免网页运行中出错，应该在当前页为第1页时不显示“第一页”和“上一页”链接，在最后一页时不显示“下一页”和“最后一页