激情深爱婷婷,欧洲熟妇色xxxx欧美老妇,成人免费大片黄在线播放

主頁 > 知識庫 > ASP編程入門進階（二十）：ADO組件之分頁程序

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

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

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進行修改如下：

!--#include file="conn.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的作用了。這個搞清楚，相信分頁的整體架構就有點眉目了。

!--#include file="conn.asp" -->

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

%filepath=request.servervariables("path_info")%>
%
page=request.querystring("page") 'page值為接受值
rs.PageSize = 2 '每頁顯示記錄數
if Not IsEmpty(page) then '如果page已經初始化...
if Not IsNumeric(page) then '判斷page值是否為數字
page=1
else
Page = cint(page) '接收page并化為數字型賦給page變量
end if
if Page > rs.PageCount then '如果接收的頁數大于總頁數
rs.AbsolutePage = rs.PageCount '設置當前顯示頁等于最后頁
elseif Page = 0 then '如果page小于等于0
rs.AbsolutePage = 1 '設置當前顯示頁等于第一頁
else
rs.AbsolutePage = Page '如果大于零,顯示當前頁等于接收的頁數
end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage%>

%
For i = 1 to rs.PageSize '利用for next 循環依次讀出當前頁的記錄
if rs.EOF then
Exit For
end if
response.write("文章標題是:" rs("cn_title"))
response.write("br>文章作者是:" rs("cn_author"))
response.write("br>文章加入時間是:" rs("cn_time"))
response.write("br>文章內容是:" rs("cn_content"))
response.write("hr>")
rs.MoveNext
Next
%>

form action="%=filepath%>" method="get">
!--首先保證總頁數不為1、不為0-->
%if rs.pagecount>1 and rs.pagecount>0 then%>
!--如果當前頁數大于1，無論何時都應顯示首頁和上一頁的連接-->
%if page>1 then%>
[a Href="%=filepath%>?Page=% = 1%>">首頁/a>]
[a Href="%=filepath%>?Page=% = page -1 %>">上一頁/a>]
!--如果當前頁數大于1并且小于總頁面數時，顯示出尾頁和下一頁的連接-->
%if pagers.pagecount then %>
[a Href="%=filepath%>?Page=% = page + 1%>">下一頁/a>]
[a Href="%=filepath%>?Page=% = rs.PageCount%>">尾頁/a>]
!--如果當前頁數大于1并且仍大于或等于總頁面數時，不顯示出尾頁和下一頁的連接-->
%else%>
[下一頁] [尾頁]
%end if%>
!--否則，當前頁數不大于1，則只顯示尾頁和下一頁的連接-->
%else%>
[首頁] [上一頁]
[a Href="%=filepath%>?Page=% = page + 1%>">下一頁/a>]
[a Href="%=filepath%>?Page=% = rs.PageCount%>">尾頁/a>]
%end if %>
!--最終，總頁數若為1、為0則沒有任何連接-->
%else%>
[首頁] [上一頁] [下一頁] [尾頁]
%end if%>

[頁次:font color=red>b>%=page%>/b>/font>/%=rs.PageCount%>]
[共%=rs.RecordCount%>篇 font color=red>b>%=rs.PageSize%>/b>/font>篇/頁]
轉到input name="page" size=5 value="%=page%>">頁
input type="submit" value="Enter">
/form>

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

效果頁面參看：
http://www.cnbruce.com/database/

長長的分頁代碼，搞懂是真不容易，平臺引用起來還需要修改也是比較麻煩。最后能做成一個函數，下次調用起來就很方便了。

%
function pagination(pagecount,pagesize,page,resultcount)
    Dim query, a, x, temp
    action = "http://" Request.ServerVariables("HTTP_HOST") Request.ServerVariables("SCRIPT_NAME")
    query = Split(Request.ServerVariables("QUERY_STRING"), "")
    For Each x In query
     a = Split(x, "=")
     If StrComp(a(0), "page", vbTextCompare) > 0 Then
     temp = temp a(0) "=" a(1) ""
     End If
    Next
    Response.Write("form method=get onsubmit=""document.location = '" action "?" temp "Page='+this.page.value;return false;"">")
    if page=1 then
        Response.Write ("[首頁] [上一頁] ")
    else
        Response.Write("[a href=" action "?" temp "Page=1>首頁/a>] ")
        Response.Write("[a href=" action "?" temp "Page=" (Page-1) ">上一頁/a>] ")
    end if

    if page>=pagecount then
        Response.Write ("[下一頁] [尾頁]")
    else
        Response.Write("[a href=" action "?" temp "Page=" (Page+1) ">下一頁/a>] ")
        Response.Write("[a href=" action "?" temp "Page=" pagecount ">尾頁/a>]")
    end if
    Response.Write("[頁次:font color=red>" page "/font>/" pageCount)
    Response.Write("] [共" resultcount "條 font color=red>" pagesize "/font>條/頁]")
    Response.Write(" 轉到" "input name=page size=4 value=" page ">" "頁input type=submit value=go>")
End function
%>

如要引用，則可以：
%call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount) %>

您可能感興趣的文章:

php adodb連接不同數據庫
php adodb分頁實現代碼
win7 iis7.5 亂碼和解析不了ASP的ADO連接數據庫的解決方法
ADO.NET 連接數據庫字符串小結(Oracle、SqlServer、Access、ODBC)
c++連接mysql數據庫的兩種方法(ADO連接和mysql api連接)
VB6實現連接Access數據庫的ADODB代碼實現方法
VB語言使用ADO連接、操作SQLServer數據庫教程
C#使用ADO.Net部件來訪問Access數據庫的方法
VC基于ADO技術訪問數據庫的方法
ADO存取數據庫時如何分頁顯示

標簽：平頂山馬鞍山湖北朝陽四平防城港孝感遼陽

巨人網絡通訊聲明：本文標題《ASP編程入門進階（二十）：ADO組件之分頁程序》，本文關鍵詞 ASP,編程,入門,進階,二十,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。