asp 知識(shí)從入門(mén)到精通,看完你就是網(wǎng)絡(luò)編程高手

1、 .wd. .wd. .wd.ADO 存取數(shù)據(jù)庫(kù)時(shí)的分頁(yè)顯示如果你使用過(guò)目前眾多網(wǎng)站上的電子公告板程序的話(huà)，那你應(yīng)該會(huì)知道電子公告板程序?yàn)榱颂岣唔?yè)面的讀取速度，一般不會(huì)將所有的帖子全部在一頁(yè)中羅列出來(lái)，而是將其分成多頁(yè)顯示，每頁(yè)顯示一定數(shù)目的帖子數(shù)，譬如 20 條。想不想了解若何實(shí)現(xiàn)分頁(yè)顯示請(qǐng)看本文！?動(dòng)態(tài)網(wǎng)站設(shè)計(jì)十八般武藝 -ASP 篇?一文從第一期至今已和朋友們一起度過(guò)了大半個(gè)年頭，相信通過(guò)在這一段時(shí)間中的學(xué)習(xí)、實(shí)踐到再學(xué)習(xí)、再實(shí)踐，大家已經(jīng)能夠熟練運(yùn)用 ASP 的內(nèi)建對(duì)象、 ActiveX 組件去編寫(xiě)一些 基本的 ASP 應(yīng)用程序。從我收到的朋友們的來(lái)信中可以明顯的感覺(jué)到，大家的 ASP

2、 功力正不斷地提升。最近很多朋友來(lái)信希望我寫(xiě)一些 ASP 在現(xiàn)實(shí)運(yùn)用中的實(shí)例。因此，從本期開(kāi)場(chǎng)我決定將?動(dòng)態(tài)網(wǎng)站設(shè)計(jì)十八般武藝 -ASP 篇?的定位從介紹和學(xué)習(xí) ASP 根基知識(shí)轉(zhuǎn)向到 ASP 實(shí)際運(yùn)行的探討和深化。應(yīng)朋友們的要求，在本期中我將給大家著重談一談“ADO 存取數(shù)據(jù)庫(kù)時(shí)若何分頁(yè)顯示的問(wèn)題。 什么是 ADO 存取數(shù)據(jù)庫(kù)時(shí)的分頁(yè)顯示如果你使用過(guò)目前眾多網(wǎng)站上的電子公告板程序的話(huà)，那你應(yīng)該會(huì)知道電子公告板程序?yàn)榱颂岣唔?yè)面的讀取速度，一般不會(huì)將所有的帖子全部在一頁(yè)中羅列出來(lái)，而是將其分成多頁(yè)顯示，每頁(yè)顯示一定數(shù)目的帖子數(shù)，譬如 20 條。這就是數(shù)據(jù)庫(kù)查詢(xún)的分頁(yè)顯示，如果你還不明白，去看看

3、yahoo 等搜索引擎的查詢(xún)結(jié)果就會(huì)明白了。 那么終究若何才能做到將數(shù)據(jù)庫(kù)的查詢(xún)結(jié)果分頁(yè)顯示呢其實(shí)方法有很多，但主要有兩種： 一、將數(shù)據(jù)庫(kù)中所有符合查詢(xún)條件的記錄一次性的都讀入 recordset 中，存放在內(nèi)存中，然后通過(guò) ADO Recordset 對(duì)象所提供的幾個(gè)專(zhuān)門(mén)支持分頁(yè)處理的屬性： PageSize( 頁(yè)大小 )、 PageCount( 頁(yè)數(shù)目 ) 以及 AbsolutePage( 絕對(duì)頁(yè) ) 來(lái)管理分頁(yè)處理。 二、根據(jù)客戶(hù)的指示，每次分別從符合查詢(xún)條件的記錄中將規(guī)定數(shù)目的記錄數(shù)讀取出來(lái)并顯示。 兩者的主要差異在于前者是一次性將所有記錄都讀入內(nèi)存然后再根據(jù)指示來(lái)依次做判斷分析從而到

4、達(dá)分頁(yè)顯示的效果，而后者是先根據(jù)指示做出判斷并將規(guī)定數(shù)目的符合查詢(xún)條件的記錄讀入內(nèi)存，從而直接到達(dá)分頁(yè)顯示的功能。 我們可以很明顯的感覺(jué)到，當(dāng)數(shù)據(jù)庫(kù)中的記錄數(shù)到達(dá)上萬(wàn)或更多時(shí)，第一種方法的執(zhí)行效率將明顯低于第二種方法，因?yàn)楫?dāng)每一個(gè)客戶(hù)查詢(xún)頁(yè)面時(shí)都要將所有符合條件的記 娣旁詵衿髂詿嬤校緩笤誚蟹忠車(chē)卻恚綣庇諧? 100 個(gè)的客戶(hù)在線(xiàn)查詢(xún)，那么 ASP 應(yīng)用程序的執(zhí)行效率將大受影響。但是，當(dāng)服務(wù)器上數(shù)據(jù)庫(kù)的記錄數(shù)以及同時(shí)在線(xiàn)的人數(shù)并不是很多時(shí)，兩者在執(zhí)行效率上是相差無(wú)幾的，此時(shí)一般就采用第一種方法，因?yàn)榈谝环N方法的 ASP 程序編寫(xiě)相對(duì)第二種方法要簡(jiǎn)單明了得多。在這里作者就以我們常見(jiàn)的 ASP BB

5、S 程序?yàn)槔?，?lái)給大家分析一下若何在 BBS 程序里實(shí)現(xiàn)分頁(yè)顯示功能，由于我們一般使用的 BBS 程序的數(shù)據(jù)庫(kù)記錄數(shù)和同時(shí)訪(fǎng)問(wèn)的人數(shù)都不會(huì)太多，所以以下程序?qū)嵗鞘褂玫南惹八榻B的第一種分頁(yè)顯示方法。 進(jìn)展 ADO 存取數(shù)據(jù)庫(kù)時(shí)的分頁(yè)顯示，其實(shí)就是對(duì) Recordset 的記錄進(jìn)展操作。所以我們首先必須了解 Reordset 對(duì)象的屬性和方法： BOF 屬性：目前指標(biāo)指到 RecordSet 的第一筆。 EOF 屬性：目前指標(biāo)指到 RecordSet 的最后一筆。 Move 方法：移動(dòng)指標(biāo)到 RecordSet 中的某一條記錄。 AbsolutePage 屬性：設(shè)定當(dāng)前記錄的位置是位于哪一頁(yè)

6、AbsolutePosition 屬性：目前指標(biāo)在 RecordSet 中的位置。 PageCount 屬性：顯示 Recordset 對(duì)象包括多少“頁(yè)的數(shù)據(jù)。 PageSize 屬性：顯示 Recordset 對(duì)象每一頁(yè)顯示的記錄數(shù)。 RecordCount 屬性：顯示 Recordset 對(duì)象記錄的總數(shù)。 下面讓我們來(lái)詳細(xì)認(rèn)識(shí)一下這些重要的屬性和方法 一、 BOF 與 EOF 屬性 通常我們?cè)?ASP 程序中編寫(xiě)代碼來(lái)檢驗(yàn) BOF 與 EOF 屬性，從而得知目前指標(biāo)所指向的 RecordSet 的位置，使用 BOF 與 EOF 屬性，可以得知一個(gè) Recordset 對(duì)象是否包含有記錄或者

7、得知移動(dòng)記錄行是否已經(jīng)超出該 Recordset 對(duì)象的范圍。 如： $#60; % if not rs.eof then . %$#62; $#60; % if not (rs.bof and rs.eof) %$#62; 假設(shè)當(dāng)前記錄的位置是在一個(gè) Recordset 對(duì)象第一行記錄之前時(shí)， BOF 屬性返回 true，反之那么返回 false。 假設(shè)當(dāng)前記錄的位置是在一個(gè) Recordset 對(duì)象最后一行記錄之后時(shí)， EOF 屬性返回 true，反之那么返回 false。 BOF 與 EOF 都為 False：表示指標(biāo)位于 RecordSet 的當(dāng)中。 BOF 為 True：目前指標(biāo)指到

8、 RecordSet 的第一筆記錄。 EOF 為 True：目前指標(biāo)指到 RecordSet 的最后一筆記錄。 BOF 與 EOF 都為 True：在 RecordSet 里沒(méi)有任何記錄。 二、 Move 方法 您可以用 Move 方法移動(dòng)指標(biāo)到 RecordSet 中的某一筆記錄，語(yǔ)法如下： rs.Move NumRecords,Start 這里的“rs為一個(gè)對(duì)象變量，表示一個(gè)想要移動(dòng)當(dāng)當(dāng)前記錄位置的 Recordset 對(duì)象；“NumRecords是一個(gè)正負(fù)數(shù)運(yùn)算式，設(shè)定當(dāng)前記錄位置的移動(dòng)數(shù)目；“start是一個(gè)可選的工程，用來(lái)指定記錄起始的標(biāo)簽。 所有的 Recordset 對(duì)象都支持

9、Move 方法，如果 NumRecords 參數(shù)大于零，當(dāng)前記錄位置向末尾的方向移動(dòng)；如果其小于零，那么當(dāng)前記錄位置向開(kāi)頭的方向移動(dòng)；如果一個(gè)空的 Recordset 對(duì)象調(diào)用 Move 方法，將會(huì)產(chǎn)生一個(gè)錯(cuò)誤。 MoveFirst 方法：將當(dāng)前記錄位置移至第一筆記錄。 MoveLast 方法：將當(dāng)前記錄位置移至最后一筆記錄。 MoveNext 方法：將當(dāng)前記錄位置移至下一筆記錄。 MovePrevious 方法：將當(dāng)前記錄位置移至上一筆記錄。 Move n 方法：移動(dòng)指標(biāo)到第 n 筆記錄， n 由 0 算起。 三、 AbsolutePage 屬性 AbsolutePage 屬性設(shè)定當(dāng)前記錄的

10、位置是位于哪一頁(yè)的頁(yè)數(shù)編號(hào)；使用 PageSize 屬性將 Recordset 對(duì)象分割為邏輯上的頁(yè)數(shù)，每一頁(yè)的記錄數(shù)為 PageSize( 除了最后一頁(yè)可能會(huì)有少于 PageSize 的記錄數(shù) )。這里必須注意并不是所有的數(shù)據(jù)提供者都支持此項(xiàng)屬性，因此使用時(shí)要小心。 與 AbsolutePosition 屬性一樣， AbsolutePage 屬性是以 1 為起始的，假設(shè)當(dāng)前記錄為 Recordset 的第一行記錄， AbsolutePage 為 1。可以設(shè)定 AbsolutePage 屬性，以移動(dòng)到一個(gè)指定頁(yè)的第一行記錄位置。 四、 AbsolutePosition 屬性 假設(shè)您需要確定目前

11、指標(biāo)在 RecordSet 中的位置，您可以用 AbsolutePosition 屬性。 AbsolutePosition 屬性的數(shù)值為目前指標(biāo)相對(duì)於第一筆的位置，由 1 算起，即第一筆的 AbsolutePosition 為 1。 注意 , 在存取 RecordSet 時(shí)，無(wú)法保證 RecordSet 每次都以同樣的順序出現(xiàn)。 假設(shè)要啟用 AbsolutePosition，必須先設(shè)定為使用用戶(hù)端 cursor( 指針 )， asp 碼如下： rs2.CursorLocation = 3 五、 PageCount 屬性 使用 PageCount 屬性，決定 Recordset 對(duì)象包括多少“頁(yè)

12、的數(shù)據(jù)。這里的“頁(yè)是數(shù)據(jù)記錄的集合，大小等于 PageSize 屬性的設(shè)定，即使最后一頁(yè)的記錄數(shù)比 PageSize 的值少，最后一頁(yè)也算是 PageCount 的一頁(yè)。必須注意也并不是所有的數(shù)據(jù)提供者都支持此項(xiàng)屬性。 六、 PageSize 屬性 PageSize 屬性是決定 ADO 存取數(shù)據(jù)庫(kù)時(shí)若何分頁(yè)顯示的關(guān)鍵，使用它就可以決定多少記錄組成一個(gè)邏輯上的“一頁(yè)。設(shè)定并建設(shè)一個(gè)頁(yè)的大小，從而允許使用 AbsolutePage 屬性移到其它邏輯頁(yè)的第一條記錄。 PageSize 屬性能隨時(shí)被設(shè)定。 七、 RecordCount 屬性 這也是一個(gè)非常常用和重要的屬性，我們常用 RecordCou

13、nt 屬性來(lái)找出一個(gè) Recordset 對(duì)象包括多少條記錄。如： $#60; % totle=RS.RecordCount %$#62; 在了解了 Recordset 對(duì)象的以上屬性和方法后，我們來(lái)考慮一下，若何運(yùn)用它們來(lái)到達(dá)我們分頁(yè)顯示的目的。首先，我們可以為 PageSize 屬性設(shè)置一個(gè)值，從而指定從記錄組中取出的構(gòu)成一個(gè)頁(yè)的行數(shù)；然后通過(guò) RecordCount 屬性來(lái)確定記錄的總數(shù)；再用記錄總數(shù)除以 PageSize 就可得到所顯示的頁(yè)面總數(shù)；最后通過(guò) AbsolutePage 屬性就能完成對(duì)指定頁(yè)的訪(fǎng)問(wèn)。好象很并不復(fù)雜呀，下面讓我們來(lái)看看程序該若何實(shí)現(xiàn)呢我們建設(shè)這樣一個(gè)簡(jiǎn)單的 B

14、BS 應(yīng)用程序，它的數(shù)據(jù)庫(kù)中分別有以下五個(gè)字段：“ID，每個(gè)帖子的自動(dòng)編號(hào)；“subject，每個(gè)帖子的主題；“name，加帖用戶(hù)的姓名；“email，用戶(hù)的電子郵件地址；“postdate，加帖的時(shí)間。數(shù)據(jù)庫(kù)的 DSN 為“bbs。我們將顯示帖子分頁(yè)的所有步驟放在一個(gè)名為“ShowList()的過(guò)程中，方便調(diào)用。程序如下： BBS 顯示帖子分頁(yè)$#60; % Sub ShowList() %$#62;$#60; %PgSz=20 設(shè)定開(kāi)關(guān)，指定每一頁(yè)所顯示的帖子數(shù)目，默認(rèn)為20帖一頁(yè)Set Conn = Server.CreateObject(ADODB.Connection)Set RS

15、= Server.CreateObject(ADODB.RecordSet)sql = SELECT * FROM message order by ID DESC查詢(xún)所有帖子，并按帖子的ID倒序排列Conn.Open bbsRS.open sql,Conn,1,1If RS.RecordCount=0 thenresponse.write $#60; P$#62;$#60; center$#62;對(duì)不起，數(shù)據(jù)庫(kù)中沒(méi)有相關(guān)信息！$#60; /center$#62;$#60; /P$#62;elseRS.PageSize = Cint(PgSz) 設(shè)定PageSize屬性的值Total=INT(

16、RS.recordcount / PgSz * -1)*-1 計(jì)算可顯示頁(yè)面的總數(shù)PageNo=Request(pageno)if PageNo= ThenPageNo = 1elsePageNo=PageNo+1PageNo=PageNo-1end ifScrollAction = Request(ScrollAction)if ScrollAction = 上一頁(yè) ThenPageNo=PageNo-1end ifif ScrollAction = 下一頁(yè) ThenPageNo=PageNo+1end ifif PageNo $#60; 1 Then PageNo = 1end ifn=1

17、RS.AbsolutePage = PageNoResponse.Write $#60; CENTER$#62;position=RS.PageSize*PageNopagebegin=position-RS.PageSize+1if position $#60; RS.RecordCount thenpagend=positionelse pagend= RS.RecordCountend if Response.Write $#60; P$#62;$#60; font color=Navy$#62;$#60; B$#62;數(shù)據(jù)庫(kù)查詢(xún)結(jié)果:$#60; /B$#62;Response.Writ

18、e (共有&RS.RecordCount &條符合條件的信息,顯示&pagebegin&-&pagend&)$#60; /font$#62;$#60; /p$#62;Response.Write $#60; TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF$#62;Response.Write $#60; TR BGCOLOR=#5FB5E2$#62;$#60; FONT SIZE=2$#62;$#60; TD$#62;$#60; B$#62;主題$#60; /B$#62;$#60; /TD$#62;$#6

19、0; TD$#62;$#60; B$#62;用戶(hù)$#60; /B$#62;$#60; /TD$#62;$#60; TD$#62;$#60; B$#62;Email$#60; /B$#62;$#60; /TD$#62;$#60; TD$#62;$#60; B$#62;發(fā)布日期$#60; /B$#62;$#60; /TD$#62;$#60; /FONT$#62;$#60; TR BGCOLOR=#FFFFFF$#62;Do while not (RS is nothing) RowCount = RS.PageSizeDo While Not RS.EOF and rowcount $#62; 0

20、 If n=1 thenResponse.Write $#60; TR BGCOLOR=#FFFFFF$#62;ELSEResponse.Write $#60; TR BGCOLOR=#EEEEEE$#62;End Ifn=1-n %$#62;$#60; TD$#62;$#60; span style=font-size:9pt$#62;$#60; A href=view.asp?key=$#60; % =RS(ID)%$#62;$#62;$#60; % =RS(subject)%$#62;$#60; /A$#62;$#60; /span$#62;$#60; /td$#62; $#60; TD

21、$#62;$#60; span style=font-size:9pt$#62;$#60; % =RS(name)%$#62;$#60; /A$#62;$#60; /span$#62;$#60; /td$#62; $#60; TD$#62;$#60; span style=font-size:9pt$#62;$#60; a href=mailto:$#60; % =RS(email)%$#62;$#62;$#60; % =RS(email)%$#62;$#60; /a$#62;$#60; /span$#62; $#60; /TD$#62;$#60; TD$#62;$#60; span style=font-size:9pt$#62;$#60; % =RS(postdate)%$#62;$#60; /span$#62; $#60; /td$#62;$#60; /TR$#62;$#60; %RowCount = RowCount - 1RS.MoveNextLoopset RS = RS.NextRecordSetLoopConn