上兼职海网站建设

ASP中关于帖子分页显示的基本方法(1)_QQread.com

发布于：2007-9-30 已被阅读： 次 来源：上兼职海网站建设

在了解了Recordset对象的以上属性和方法后，我们来考虑一下，如何运用它们来达到我们分页显示的目的。首先，我们可以为PageSize属性设置一个值，从而指定从记录组中取出的构成一个页的行数；然后通过RecordCount属性来确定记录的总数；再用记录总数除以PageSize就可得到所显示的页面总数；最后通过AbsolutePage属性就能完成对指定页的访问。好象很并不复杂呀，下面让我们来看看程序该如何实现呢？ 我们建立这样一个简单的BBS应用程序，它的数据库中分别有以下五个字段：“ID”，每个帖子的自动编号；“subject”，每个帖子的主题；“name”，加帖用户的姓名；“email”，用户的电子邮件地址；“postdate”，加帖的时间。数据库的DSN为“bbs”。我们将显示帖子分页的所有步骤放在一个名为“ShowList()”的过程中，方便调用。程序如下： ’----BBS显示帖子分页---- < Sub ShowList() > < PgSz=20 ’设定开关，指定每一页所显示的帖子数目，默认为20帖一页 Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM message order by ID DESC" ’查询所有帖子，并按帖子的ID倒序排列 Conn.Open "bbs" RS.open sql,Conn,1,1 If RS.RecordCount=0 then response.write "< P>< center>对不起，数据库中没有相关信息！< 网站center>< 网站P>" else RS.PageSize = Cint(PgSz) ’设定PageSize属性的值 Total=INT(RS.recordcount 网站 PgSz * -1)*-1 ’计算可显示页面的总数 PageNo=Request("pageno") if PageNo="" Then PageNo = 1 else PageNo=PageNo+1 PageNo=PageNo-1 end if ScrollAction = Request("ScrollAction") if ScrollAction = " 上一页 " Then PageNo=PageNo-1 end if if ScrollAction = " 下一页 " Then PageNo=PageNo+1 end if if PageNo < 1 Then PageNo = 1 end if n=1 RS.AbsolutePage = PageNo Response.Write "< CENTER>" position=RS.PageSize*PageNo pagebegin=position-RS.PageSize+1 if position < RS.RecordCount then pagend=position else pagend= RS.RecordCount end if Response.Write "< P>< font color=’Navy’>< B>数 据 库 查 询 结 果:< 网站B>" Response.Write "(共有"&RS.RecordCount &"条符合条件的信息,显示"&pagebegin&"-"&pagend&")< 网站font>< 网站p>" Response.Write "< TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>" Response.Write "< TR BGCOLOR=#5FB5E2 >< FONT SIZE=2 >< TD >< B >主 题< 网站B >< 网站TD >< TD >< B >用 户< 网站B >< 网站TD >< TD >< B >Email< 网站B >< 网站TD >< TD >< B >发 布 日 期< 网站B >< 网站TD >< 网站FONT >< TR BGCOLOR=#FFFFFF >"进入讨论组讨论。 建设 开机就显示：DISK BOOT FAILURE INSERT SYSTEM DI在DOS下正确显示中文信息U盘找不到空间,u盘容量显示为0,u盘可用空间为0系统显示“网络受限制或无连接”是否影响网速 下一页 1 2  制作

网站建设相关信息