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

文章列表分页显示的实现 一、需求情况 几乎所有的网站都是为了进行信息发布。为了方便访客查看信息，一般网站均采用文章列表的方式将信息的主题显示出来，如果信息条数很多，则需要进行分页显示，在列表的顶部或底部设置翻页链接供访客进行翻页。例如武汉大学“珞珈新闻”频道： 二、需要实现的功能 1、每页显示记录数一定，例如10条或15条等； 2、在列表下要有可进行翻页的链接：第一页，上一页，下一页，最后一页。访客可以通过这些链接方便地进行翻页操作； 三、程序设计思路 假设程序名为list.asp，基本思路如下： 显示第几页的参数的确定通过在程序名后加参数的方式进行传递，即list.asp?PgNo=5表示要显示第5页。在程序中通过PgNo=request.querystring(“PgNo”)来获取要显示的页参数。 分页的实现方法使用rs.open方法打开记录集，设置PageSize属性确定分页大小，使用PageCount属性获取分页数，使用AbsoluePage属性将记录指针移到要显示页的第一条记录，然后使用循环依次显示每条记录。 导航条的超链接设置a href=list.asp?PgNo=1第一页/aa href=list.asp?PgNo=%=PgNo-1%上一页/aa href=list.asp?PgNo=%=PgNo+1%下一页/aa href=list.asp?PgNo=%=rs.pagecount%最后一页/a 四、程序的说明 % PgNo=Request(PgNo) ‘获取显示的页数 if PgNo= then PgNo=1 ‘如果没有传递参数，则默认显示第1页 else PgNo=cint(PgNo) ‘将传递的参数转换为整型数 end if RecCount =10 ‘每页显示的记录数 SQL = SELECT * FROM news Where 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.close response.End() end if rs.PageSize = RecCount ‘设置记录集的页大小 LastPage = rs.PageCount ‘获取总页数 rs.AbsolutePage = PgNo ‘ % table width=778 trtd 标题/tdtd 点击数/tdtd日期/td/tr % for i = 1 to RecCount if not rs.EOF then % tr tda href=wzck.asp?id=%=rs.fields(id)%%=rs(bt)%/a/td td%=rs(ydcs)%/td td %=rs(fbrq)%/td /tr % rs.MoveNext else % trtd nbsp;/tdtd nbsp;/tdtdnbsp;/td/tr % end if Next rs.close % /table table width=778 TR TD align=center % if PgNo1 then % a href=list.asp?PgNo=1第一页/a a href=list.asp?PgNo=%=PageNo-1%上一页/a % end if if