ASP編程入門進階（二十）：ADO組件之分頁程序

2024-05-04 10:58:38

字體：大中小

來源：轉載

供稿：網友

應該來說，學會了如何插入記錄，如何顯示記錄，那么現在簡單的完整的文章系統、新聞系統和留言系統不成問題。那接著下面的問題就是：隨著信息內容的不段增加，單獨通過一張頁面顯示所有信息是不行也是很不理性的。所以，解決的辦法就是采用分頁技術。

1，rs.RecordCount
很顯然，RecordCount就是用來顯示數據庫表中一共多少條記錄的，也可以形象地說表中一共有多少行。經常用在分頁中就是一共有N篇文章等總計的信息顯示。

2，rs.PageSize
rs.PageSize也就是一頁的大小，也就表示一張ASP頁可以顯示記錄的條數。值是自己定義的，比如經常看到的每頁顯示N篇文章之類的信息。

3，rs.AbsolutePage 和 rs.pagecount
說到分頁，一定不能不提到 rs.AbsolutePage 。記錄集的AbsolutePage屬性最主要的作用就是決定著當前顯示的是第幾頁。它的值是有依據的，指定了rs.PageSize，那么rs.pagecount的信息值就是rs.RecordCount和rs.PageSize整除結果。比如：總信息記錄rs.RecordCount共20條，每頁顯示條數rs.PageSize設為5條，那么頁數rs.pagecount數就是20/5=4頁次，而rs.AbsolutePage則就只能是第1頁，第2頁……第4頁。

說到現在，弄個具體程序來調試一下。繼續對showit.asp進行修改如下：

<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle order by cn_id desc"
rs.Open sql,conn,1,1
%>

<%
page=request.querystring("page") 'page值為接受值
rs.PageSize = 2 '每頁顯示記錄數
rs.AbsolutePage = Page '顯示當前頁等于接收的頁數
%>

<%
For i = 1 to rs.PageSize '利用for next 循環依次讀出當前頁的記錄
if rs.EOF then
Exit For
end if
response.write("<br>文章內容是:"& rs("cn_content"))
rs.MoveNext
next%>

<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>

HERE，你調試的前提就是數據庫中的記錄相對要大于4條，這樣測試效果才明顯；還有測試的方法就是在showit.asp后面添加?page=1或者?page=2等調試觀察網頁顯示效果。

其實，說到底，顯示數據庫內容就是

<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
response.write("<br>文章內容是:"& rs("cn_content"))
rs.MoveNext
next%>

起的作用，但想象一下：該程序應該都只能顯示出2條信息（一直不變的2條信息）。但為什么加上?page=1和?page=2會顯示不同的結果呢？……那絕對就是rs.AbsolutePage的作用了。這個搞清楚，相信分頁的整體架構就有點眉目了。

上一篇：ASP編程入門進階（九）：內置對象Application

下一篇：一些簡單的ASP練習