應(yīng)該來說，學(xué)會了如何插入記錄，如何顯示記錄，那么現(xiàn)在簡單的完整的文章系統(tǒng)、新聞系統(tǒng)和留言系統(tǒng)不成問題。那接著下面的問題就是：隨著信息內(nèi)容的不段增加，單獨通過一張頁面顯示所有信息是不行也是很不理性的。所以，解決的辦法就是采用分頁技術(shù)。
1，rs.RecordCount
很顯然，RecordCount就是用來顯示數(shù)據(jù)庫表中一共多少條記錄的，也可以形象地說表中一共有多少行。經(jīng)常用在分頁中就是一共有N篇文章等總計的信息顯示。
2，rs.PageSize
rs.PageSize也就是一頁的大小，也就表示一張ASP頁可以顯示記錄的條數(shù)。值是自己定義的，比如經(jīng)?？吹降?/span>每頁顯示N篇文章之類的信息。
3，rs.AbsolutePage 和 rs.pagecount
說到分頁，一定不能不提到 rs.AbsolutePage 。記錄集的AbsolutePage屬性最主要的作用就是決定著當(dāng)前顯示的是第幾頁。它的值是有依據(jù)的，指定了rs.PageSize，那么rs.pagecount的信息值就是rs.RecordCount和rs.PageSize整除結(jié)果。比如：總信息記錄rs.RecordCount共20條，每頁顯示條數(shù)rs.PageSize設(shè)為5條，那么頁數(shù)rs.pagecount數(shù)就是20/5=4頁次，而rs.AbsolutePage則就只能是第1頁，第2頁……第4頁。
說到現(xiàn)在，弄個具體程序來調(diào)試一下。繼續(xù)對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 '每頁顯示記錄數(shù)
rs.AbsolutePage = Page '顯示當(dāng)前頁等于接收的頁數(shù)
%>
<%
For i = 1 to rs.PageSize '利用for next 循環(huán)依次讀出當(dāng)前頁的記錄
if rs.EOF then
Exit For
end if
response.write("<br>文章內(nèi)容是:"& rs("cn_content"))
rs.MoveNext
next%>
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
|
HERE，你調(diào)試的前提就是數(shù)據(jù)庫中的記錄相對要大于4條，這樣測試效果才明顯；還有測試的方法就是在showit.asp后面添加?page=1或者?page=2等調(diào)試觀察網(wǎng)頁顯示效果。
其實，說到底，顯示數(shù)據(jù)庫內(nèi)容就是
|
<%
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
response.write("<br>文章內(nèi)容是:"& rs("cn_content"))
rs.MoveNext
next%>
|
起的作用，但想象一下：該程序應(yīng)該都只能顯示出2條信息（一直不變的2條信息）。但為什么加上?page=1和?page=2會顯示不同的結(jié)果呢？……那絕對就是rs.AbsolutePage的作用了。這個搞清楚，相信分頁的整體架構(gòu)就有點眉目了。
|
<!--#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 '每頁顯示記錄數(shù)
if Not IsEmpty(page) then '如果page已經(jīng)初始化...
if Not IsNumeric(page) then '判斷page值是否為數(shù)字
page=1
else
Page = cint(page) '接收page并化為數(shù)字型賦給page變量
end if
if Page > rs.PageCount then '如果接收的頁數(shù)大于總頁數(shù)
rs.AbsolutePage = rs.PageCount '設(shè)置當(dāng)前顯示頁等于最后頁
elseif Page <= 0 then '如果page小于等于0
rs.AbsolutePage = 1 '設(shè)置當(dāng)前顯示頁等于第一頁
else
rs.AbsolutePage = Page '如果大于零,顯示當(dāng)前頁等于接收的頁數(shù)
end if
else
rs.AbsolutePage=1
end if
Page = rs.AbsolutePage%>
<%
For i = 1 to rs.PageSize '利用for next 循環(huán)依次讀出當(dāng)前頁的記錄
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>文章內(nèi)容是:"& rs("cn_content"))
response.write("<hr>")
rs.MoveNext
Next
%>
<form action="<%=filepath%>" method="get">
<!--首先保證總頁數(shù)不為1、不為0-->
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
<!--如果當(dāng)前頁數(shù)大于1，無論何時都應(yīng)顯示首頁和上一頁的連接-->
<%if page>1 then%>
[<a Href="<%=filepath%>?Page=<% = 1%>">首頁</a>]
[<a Href="<%=filepath%>?Page=<% = page -1 %>">上一頁</a>]
<!--如果當(dāng)前頁數(shù)大于1并且小于總頁面數(shù)時，顯示出尾頁和下一頁的連接-->
<%if page<rs.pagecount then %>
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一頁</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾頁</a>]
<!--如果當(dāng)前頁數(shù)大于1并且仍大于或等于總頁面數(shù)時，不顯示出尾頁和下一頁的連接-->
<%else%>
[下一頁] [尾頁]
<%end if%>
<!--否則，當(dāng)前頁數(shù)不大于1，則只顯示尾頁和下一頁的連接-->
<%else%>
[首頁] [上一頁]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一頁</a>]
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾頁</a>]
<%end if %>
<!--最終，總頁數(shù)若為1、為0則沒有任何連接-->
<%else%>
[首頁] [上一頁] [下一頁] [尾頁]
<%end if%>
[頁次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/頁]
轉(zhuǎn)到<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/
長長的分頁代碼，搞懂是真不容易，平臺引用起來還需要修改也是比較麻煩。最后能做成一個函數(shù)，下次調(diào)用起來就很方便了。
|
<%
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(" 轉(zhuǎn)到" & "<input name=page size=4 value=" & page & ">" & "頁<input type=submit value=go>")
End function
%>
|
如要引用，則可以：
<%call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount) %>
