我們建立這樣一個簡單的 BBS 應(yīng)用程序，它的數(shù)據(jù)庫中分別有以下五個字段：“ID”，每個帖子的自動編號；“subject”，每個帖子的主題；“name”，加帖用戶的姓名；“email”，用戶的電子郵件地址；“postdate”，加帖的時間。數(shù)據(jù)庫的 DSN 為“bbs”。我們將顯示帖子分頁的所有步驟放在一個名為“ShowList()”的過程中，方便調(diào)用。程序如下：

'----BBS 顯示帖子分頁----
< % Sub ShowList() %>
< %
PgSz=20 '設(shè)定開關(guān)，指定每一頁所顯示的帖子數(shù)目，默認(rèn)為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>對不起，數(shù)據(jù)庫中沒有相關(guān)信息！< /center>< /P>"
else
RS.PageSize = Cint(PgSz) '設(shè)定PageSize屬性的值
Total=INT(RS.recordcount / PgSz * -1)*-1 '計算可顯示頁面的總數(shù)
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=pos