亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > ASP > 正文

ASP基礎教程:ADO存取數據庫時如何分頁顯示_ASP教程

2024-05-04 11:03:31
字體:
來源:轉載
供稿:網友

推薦:運用ASP調用數據庫中視圖及存儲過程
一、前言ASP (Active Server Pages) 是服務器端的腳本編寫環境,它由微軟公司的IIS3.0以上版本支持。它可用來創建動態 Web 頁或生成功能強大的 Web應用程序。ASP頁是包括 HTML 標記、文本和

什么是 ADO 存取數據庫時的分頁顯示?如果你使用過目前眾多網站上的電子公告板程序的話,那你應該會知道電子公告板程序為了提高頁面的讀取速度,一般不會將所有的帖子全部在一頁中羅列出來,而是將其分成多頁顯示,每頁顯示一定數目的帖子數,譬如 20 條。這就是數據庫查詢的分頁顯示,如果你還不明白,去看看 yahoo 等搜索引擎的查詢結果就會明白了。

那么究竟如何才能做到將數據庫的查詢結果分頁顯示呢?其實方法有很多,但主要有兩種:

一、將數據庫中所有符合查詢條件的記錄一次性的都讀入 recordset 中,存放在內存中,然后通過 ADO Recordset 對象所提供的幾個專門支持分頁處理的屬性: PageSize( 頁大小 )、 PageCount( 頁數目 ) 以及 AbsolutePage( 絕對頁 ) 來管理分頁處理。

二、根據客戶的指示,每次分別從符合查詢條件的記錄中將規定數目的記錄數讀取出來并顯示。

兩者的主要差別在于前者是一次性將所有記錄都讀入內存然后再根據指示來依次做判斷分析從而達到分頁顯示的效果,而后者是先根據指示做出判斷并將規定數目的符合查詢條件的記錄讀入內存,從而直接達到分頁顯示的功能。

我們可以很明顯的感覺到,當數據庫中的記錄數達到上萬或更多時,第一種方法的執行效率將明顯低于第二種方法,因為當每一個客戶查詢頁面時都要將所有符合條件的記錄存放在服務器內存中,然后在進行分頁等處理,如果同時有超過 100 個的客戶在線查詢,那么 ASP 應用程序的執行效率將大受影響。但是,當服務器上數據庫的記錄數以及同時在線的人數并不是很多時,兩者在執行效率上是相差無幾的,此時一般就采用第一種方法,因為第一種方法的 ASP 程序編寫相對第二種方法要簡單明了得多。

在這里作者就以我們常見的 ASP BBS 程序為例,來給大家分析一下如何在 BBS 程序里實現分頁顯示功能,由于我們一般使用的 BBS 程序的數據庫記錄數和同時訪問的人數都不會太多,所以以下程序實例是使用的先前所介紹的第一種分頁顯示方法。

進行 ADO 存取數據庫時的分頁顯示,其實就是對 Recordset 的記錄進行操作。所以我們首先必須了解 Reordset 對象的屬性和方法:

BOF 屬性:目前指標指到 RecordSet 的第一筆。

EOF 屬性:目前指標指到 RecordSet 的最后一筆。

Move 方法:移動指標到 RecordSet 中的某一條記錄。

AbsolutePage 屬性:設定當前記錄的位置是位于哪一頁 AbsolutePosition 屬性:目前指標在 RecordSet 中的位置。

PageCount 屬性:顯示 Recordset 對象包括多少“頁”的數據。

PageSize 屬性:顯示 Recordset 對象每一頁顯示的記錄數。

RecordCount 屬性:顯示 Recordset 對象記錄的總數。

下面讓我們來詳細認識一下這些重要的屬性和方法。

一、 BOF 與 EOF 屬性

通常我們在 ASP 程序中編寫代碼來檢驗 BOF 與 EOF 屬性,從而得知目前指標所指向的 RecordSet 的位置,使用 BOF 與 EOF 屬性,可以得知一個 Recordset 對象是否包含有記錄或者得知移動記錄行是否已經超出該 Recordset 對象的范圍。

如:

< % if not rs.eof then ... %>

< % if not (rs.bof and rs.eof) %>

若當前記錄的位置是在一個 Recordset 對象第一行記錄之前時, BOF 屬性返回 true,反之則返回 false。

若當前記錄的位置是在一個 Recordset 對象最后一行記錄之后時, EOF 屬性返回 true,反之則返回 false。

BOF 與 EOF 都為 False:表示指標位于 RecordSet 的當中。

BOF 為 True:目前指標指到 RecordSet 的第一筆記錄。 EOF 為 True:目前指標指到 RecordSet 的最后一筆記錄。

BOF 與 EOF 都為 True:在 RecordSet 里沒有任何記錄。

二、Move 方法

您可以用 Move 方法移動指標到 RecordSet 中的某一筆記錄,語法如下:

rs.Move NumRecords,Start

這里的“rs”為一個對象變量,表示一個想要移動當當前記錄位置的 Recordset 對象;“NumRecords”是一個正負數運算式,設定當前記錄位置的移動數目;“start”是一個可選的項目,用來指定記錄起始的標簽。

所有的 Recordset 對象都支持 Move 方法,如果 NumRecords 參數大于零,當前記錄位置向末尾的方向移動;如果其小于零,則當前記錄位置向開頭的方向移動;如果一個空的 Recordset 對象調用 Move 方法,將會產生一個錯誤。

MoveFirst 方法:將當前記錄位置移至第一筆記錄。

MoveLast 方法:將當前記錄位置移至最后一筆記錄。

MoveNext 方法:將當前記錄位置移至下一筆記錄。 MovePrevious 方法:將當前記錄位置移至上一筆記錄。

Move [n] 方法:移動指標到第 n 筆記錄, n 由 0 算起。

三、AbsolutePage 屬性

AbsolutePage 屬性設定當前記錄的位置是位于哪一頁的頁數編號;使用 PageSize 屬性將 Recordset 對象分割為邏輯上的頁數,每一頁的記錄數為 PageSize( 除了最后一頁可能會有少于 PageSize 的記錄數 )。這里必須注意并不是所有的數據提供者都支持此項屬性,因此使用時要小心。

與 AbsolutePosition 屬性相同, AbsolutePage 屬性是以 1 為起始的,若當前記錄為 Recordset 的第一行記錄, AbsolutePage 為 1??梢栽O定 AbsolutePage 屬性,以移動到一個指定頁的第一行記錄位置。

四、AbsolutePosition 屬性

若您需要確定目前指標在 RecordSet 中的位置,您可以用 AbsolutePosition 屬性。

AbsolutePosition 屬性的數值為目前指標相對於第一筆的位置,由 1 算起,即第一筆的 AbsolutePosition 為 1。

注意,在存取 RecordSet 時,無法保證 RecordSet 每次都以同樣的順序出現。

若要啟用 AbsolutePosition,必須先設定為使用用戶端 cursor( 指針 ), asp 碼如下:

rs2.CursorLocation = 3

五、PageCount 屬性

使用 PageCount 屬性,決定 Recordset 對象包括多少“頁”的數據。這里的“頁”是數據記錄的集合,大小等于 PageSize 屬性的設定,即使最后一頁的記錄數比 PageSize 的值少,最后一頁也算是 PageCount 的一頁。必須注意也并不是所有的數據提供者都支持此項屬性。

六、PageSize 屬性

PageSize 屬性是決定 ADO 存取數據庫時如何分頁顯示的關鍵,使用它就可以決定多少記錄組成一個邏輯上的“一頁”。設定并建立一個頁的大小,從而允許使用 AbsolutePage 屬性移到其它邏輯頁的第一條記錄。 PageSize 屬性能隨時被設定。

七、RecordCount 屬性

這也是一個非常常用和重要的屬性,我們常用 RecordCount 屬性來找出一個 Recordset 對象包括多少條記錄。如: <%totle=RS.RecordCount %>在了解了 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 %>

相信大家都應該能完全讀懂上面的程序,因此作者就不在此詳細解釋了。值得注意的是在這段程序中運用了一個小技巧,< INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< % =PageNo %>">,這是用來在每次調用該 ASP 文件時傳遞數據的“暗道”,由于我們需要在每次調用程序時傳遞代表當前頁碼的參數,可能大家會想到使用 session,但是從節省系統資源和通用性來講,用這樣一個隱藏的 form 來傳遞數據將會達到更好的效果。

好了,又到了說再見的時候了,如果你沒完全看懂本篇中所列的程序,那你必須加把油,看一看 VbScript 的語法;如果你還有某些疑問,可以“妹兒”我,我將盡力解答;如果你有什么更好的建議也千萬要來信告訴我哦。

分享:用標簽替換的方法生成靜態網頁
大家都知道HTML靜態網頁更容易被搜索引擎收錄索引,動態生成HTML網頁,也可使網站的網頁數量增多,搜索引擎收錄的數量也可能多,再加下提高網頁的質量也意未著什么呢?我想大家也知道。為了

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲精品福利免费在线观看| 欧美成人一区二区三区电影| 在线视频亚洲欧美| 日av在线播放中文不卡| 色综合久久久久久中文网| 性视频1819p久久| 久久久久久久久久国产精品| 亚洲男人天堂九九视频| 久久久久久久久久久av| 日韩视频中文字幕| 亚州av一区二区| 欧美放荡办公室videos4k| 国产精品视频在线播放| 久久99热这里只有精品国产| 成人黄色短视频在线观看| 91免费在线视频网站| 中文字幕日韩欧美在线| 国产精品户外野外| 视频一区视频二区国产精品| 成人性生交大片免费看视频直播| 精品偷拍各种wc美女嘘嘘| 亚洲成**性毛茸茸| 91精品美女在线| 伊人成人开心激情综合网| 国产精品第一第二| 国产午夜精品全部视频播放| 久久国产色av| 久久成人亚洲精品| 久久不射电影网| 亚洲人成人99网站| 美女999久久久精品视频| 日韩精品中文在线观看| 91美女片黄在线观看游戏| 超薄丝袜一区二区| 91久久夜色精品国产网站| 欧美在线亚洲一区| 91精品视频免费看| 日韩国产欧美精品在线| 国产精品高潮呻吟久久av野狼| 色偷偷亚洲男人天堂| 久久久久久久久久久久久久久久久久av| 亚洲色图激情小说| 最新国产精品拍自在线播放| 中文字幕久久亚洲| 97色在线观看免费视频| 91免费精品视频| 色综合久久天天综线观看| 久久五月天色综合| 欧美老女人性视频| 国产精品第一页在线| 久久久999国产精品| 日韩欧美成人免费视频| 91在线免费视频| 俺去了亚洲欧美日韩| 日韩av在线免费| 国产成人精品视| 国产成+人+综合+亚洲欧洲| 亚洲成人av中文字幕| 亚洲视频日韩精品| 亚洲欧美日韩天堂| 亚洲v日韩v综合v精品v| 全亚洲最色的网站在线观看| 欧美极品少妇xxxxⅹ免费视频| 久久中文精品视频| 亚洲精品456在线播放狼人| 日韩小视频在线观看| 亚洲欧美日韩中文在线| 久久人人爽人人| 国产亚洲精品久久久久动| 欧美性猛交xxxx乱大交蜜桃| 91国内免费在线视频| 日韩电影大片中文字幕| 久久国产精品首页| 久久成人18免费网站| 亚洲偷欧美偷国内偷| 成人啪啪免费看| 97精品视频在线观看| 91在线免费视频| 久久色免费在线视频| 伊人伊成久久人综合网小说| 最近2019中文字幕在线高清| 91国产精品91| 国产精品毛片a∨一区二区三区|国| 欧美激情一区二区久久久| 久久精品国产亚洲精品| 久久久精品中文字幕| 久久69精品久久久久久国产越南| 中文字幕亚洲专区| 成人有码视频在线播放| 欧美精品电影免费在线观看| 欧美激情欧美狂野欧美精品| 一区二区在线视频播放| 亚洲永久在线观看| 日韩视频精品在线| 在线观看免费高清视频97| 在线电影欧美日韩一区二区私密| 成人av番号网| 国产一区二区三区在线观看网站| 国产亚洲激情在线| 精品在线欧美视频| 亚洲美女中文字幕| 国产精品无码专区在线观看| 久久精品国产清自在天天线| 亚洲欧美精品suv| 久久久久国产一区二区三区| 欧美日韩中文在线| 性色av一区二区三区在线观看| 国产成+人+综合+亚洲欧美丁香花| 欧美激情一区二区三区成人| 热re91久久精品国99热蜜臀| 日本亚洲欧美成人| www.欧美视频| 亚洲激情免费观看| 久久国产精品视频| 欧美激情亚洲综合一区| 91精品国产91久久久久| 日韩成人激情视频| 欧美伊久线香蕉线新在线| 在线观看精品自拍私拍| 国产精品麻豆va在线播放| 亚洲男人7777| 美女黄色丝袜一区| 日本免费在线精品| 精品国产1区2区| 国产国语刺激对白av不卡| 久久成人精品一区二区三区| 亚洲日韩中文字幕| 日韩欧美国产激情| 亚洲综合色激情五月| 亚洲国产精品资源| 久久国产精品久久久久久久久久| 久久精品电影网站| 日韩中文在线中文网在线观看| 亚洲人成电影在线观看天堂色| 国产精品中文在线| 日韩中文字幕国产| 中文字幕精品在线| 亚洲午夜未满十八勿入免费观看全集| 欧美成人精品在线视频| 欧美激情喷水视频| 国产精品黄页免费高清在线观看| 成人免费淫片视频软件| 精品美女永久免费视频| 欧美大奶子在线| 国产精品永久免费在线| 亚洲在线观看视频| 日韩精品视频在线播放| 亚洲影院污污.| 色狠狠av一区二区三区香蕉蜜桃| 国产一区二区三区免费视频| 久久久久久免费精品| 亚洲欧美制服中文字幕| 久久精品福利视频| 国产久一一精品| 亚洲一区二区中文字幕| 欧美理论在线观看| 欧美性视频网站| 夜色77av精品影院| 51视频国产精品一区二区| 亚洲精品视频免费在线观看| 97欧美精品一区二区三区| 亚洲国产精品字幕| 中文字幕久久久| 亚洲免费视频一区二区|