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

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

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

3、o=<%=PgNo+1%>>下一页</a><a href=list.asp?PgNo=<%=rs.pagecount%>>最后一页</a>四、程序的说明<%PgNo=Request("PgNo") 获取显示的页数 if PgNo="" then PgNo=1 如果没有传递参数，则默认显示第1页 else PgNo=cint(PgNo) 将传递的参数转换为整型数end ifRecCount =10 每页显示的记录数SQL = "SELECT * FROM news Where

4、 lb=1 order by id desc" 查询的SQL语句Set rs = Server.CreateObject("ADODB.Recordset") 创建记录集对象rs.Open SQL,conn,3,1 打开记录集if rs.eof then 如果记录集为空，则显示没有新闻response.write(“没有的新闻！”)rs.closeresponse.End()end if rs.PageSize = RecCount 设置记录集的页大小LastPage = rs.PageCount 获取总页数rs.AbsolutePage = PgNo %>

5、<table width="778" > <tr><td >标题</td><td >点击数</td><td>日期</td></tr><% for i = 1 to RecCount if not rs.EOF then %> <tr> <td><a href=wzck.asp?id=<%=rs.fields("id")%>><%=rs("bt")%><

6、/a></td> <td><%=rs("ydcs")%></td> <td ><%=rs("fbrq")%></td></tr> <% rs.MoveNext else %> <tr><td >&nbsp;</td><td >&nbsp;</td><td>&nbsp;</td></tr> <% end if Nextr

7、s.close %></table><table width="778"> <TR> <TD align="center"><% if PgNo>1 then %> <a href=list.asp?PgNo=1>第一页</a> <a href=list.asp?PgNo=<%=PageNo-1%>>上一页</a><% end if if PageNo<LastPage then %> <a href

8、=xwgl.asp?PgNo=<%=PageNo+1%>>下一页</a> <a href=xwgl.asp?PgNo=<%=LastPage%>>最后一页</a><% end if %> 页号/总页数：<%=PgNo%>/<%=LastPage%> </TD> </TR></table> 五、程序调试中出现的问题以及解决办法1、程序运行时，提示“rs.PageSize=MaxRec”有错，错误提示信息如下： 解决办法：使用记录集的PageSize属性时，记录集必须显示打开，而程序中是使用隐形方式打开的记录集，改用显示办法打开后错误排除。2、假如每页显示10条，如果要显示第5页（即显示第4150条记录），怎样快速地将记录指针定位到第41条记录？比较常用的方法时使用记录集的设置分页大小，同时可。3、