在了解了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 >" 

Do while not (RS is nothing) 

RowCount = RS.PageSize 

Do While Not RS.EOF and rowcount > 0 

If n=1 then 

Response.Write "< TR BGCOLOR=#FFFFFF>" 

ELSE 

Response.Write "< TR BGCOLOR=#EEEEEE>" 

End If 

n=1-n > 

< TD>< span style="font-size:9pt">< A href=’view.asp?key=< =RS("ID")>’>< =RS("subject")>< /A>< /span>< /td> 

< TD>< span style="font-size:9pt">< =RS("name")>< /A>< /span>< /td> 

< TD>< span style="font-size:9pt">< a href="mailto:< =RS("email")>">< =RS("email")>< /a>< /span> < /TD> 

< TD>< span style="font-size:9pt">< =RS("postdate")>< /span> < /td> 

< /TR> 

< 

RowCount = RowCount - 1 

RS.MoveNext 

Loop 

set RS = RS.NextRecordSet 

Loop 

Conn.Close 

set rs = nothing 

set Conn = nothing 

> 

< /TABLE > 

< FORM METHOD=GET ACTION="list.asp" > 

< INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< =PageNo >" > 

< 

if PageNo > 1 Then 

response.write "< INPUT TYPE=SUBMIT NAME=’ScrollAction’ VALUE=’ 上一页 ’>" 

end if 

if RowCount = 0 and PageNo < >Total then 

response.write "< INPUT TYPE=SUBMIT NAME=’ScrollAction’ VALUE=’ 下一页 ’>" 

end if 

response.write "< /FORM>" 

End if 

> 

< End Sub ％> 
标签：