這篇文章主要介紹了ASP中實(shí)現(xiàn)分頁(yè)顯示的七種方法，這七種方法可以分為四大類(lèi)，需要的朋友可以參考下

在微軟的ASP編程體系中，ADO對(duì)象的建立，使得從網(wǎng)頁(yè)訪問(wèn)數(shù)據(jù)庫(kù)成為一件易事，特別是ADO的Recordset對(duì)象使得控制數(shù)據(jù)的輸出顯示更為方便、自由。而在Visual InterDev6.0(以下簡(jiǎn)稱(chēng)VI6.0)中，由于Script Object Model(以下簡(jiǎn)稱(chēng)SOM)、Design-Time Control(以下簡(jiǎn)稱(chēng)DTC)以及Data Environment Object Model(以下簡(jiǎn)稱(chēng)DEOM)等對(duì)象模型的引入，使網(wǎng)頁(yè)對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)設(shè)計(jì)顯得更為方便。

因?yàn)橹黝}方面的原因，關(guān)于數(shù)據(jù)庫(kù)的連接，下文只給出代碼和簡(jiǎn)要注釋?zhuān)阎攸c(diǎn)放在如何利用Recordset對(duì)象(或控件)實(shí)現(xiàn)數(shù)據(jù)記錄的分頁(yè)顯示方面。根據(jù)我的理解，分頁(yè)顯示的關(guān)鍵就在于對(duì)ADO的Recordset對(duì)象或DTC(設(shè)計(jì)時(shí)控件)的Recordset控件的屬性和方法的熟練把握上。

這七種分頁(yè)顯示的武器概括起來(lái)說(shuō)分四類(lèi)： 第一、二種我暫取名叫“純ASP法”，

這也是國(guó)內(nèi)的ASP網(wǎng)站上用得最多的方法，它們的區(qū)別僅在實(shí)現(xiàn)技巧的不同。這兩種方法的實(shí)現(xiàn)最易理解，用到的對(duì)象概念也最少，對(duì)開(kāi)發(fā)環(huán)境的要求也最低(只要記事本就行)?？梢哉f(shuō)，這兩種方法的實(shí)質(zhì)還是CGI的編程思想，只是在程序中引入了ADO對(duì)象而已。

第四、五種暫取名叫“SOM的DHTML法”。

這兩種方法要求在VI6.0的環(huán)境下，利用微軟提出的腳本對(duì)象模型(Script Object Model)和DHTML中Table對(duì)象的與數(shù)據(jù)庫(kù)綁定的新特性(許多書(shū)和文章只介紹了DHTML的CSS特性在樣式設(shè)計(jì)中的運(yùn)用而忽略介紹其數(shù)據(jù)綁定特性)，實(shí)現(xiàn)在客戶端控制翻頁(yè)。但它要求用戶的瀏覽器必須是支持DHTML，如：Microsoft Internet Explorer 4.0及以上的版本。

第六種暫取名叫“SOM服務(wù)器端法”。

要求在VI6.0的環(huán)境下開(kāi)發(fā)，它利用微軟提出的腳本對(duì)象模型(Script Object Model)中的幾個(gè)DTC控件：Recordset、PageObject、Grid等在服務(wù)器端(客戶端)實(shí)現(xiàn)翻頁(yè)控制。這是一種激動(dòng)人心的、全新的編程方法，它把網(wǎng)頁(yè)看成對(duì)象(這種對(duì)象模型和傳統(tǒng)的DOM----document object model是有區(qū)別的：DOM只能控制客戶端，而SOM可控制服務(wù)器端和客戶端)，它真正實(shí)現(xiàn)了網(wǎng)頁(yè)的面向?qū)ο缶幊?。但遺憾的是，也許是我個(gè)人能力有限，這種技術(shù)我個(gè)人認(rèn)為還不是很成熟，比如，與瀏覽器的結(jié)合還不是很好，這將在后文詳細(xì)說(shuō)明。

第七種暫取名叫“DEOM法”。

它也是利用了VI6.0中建立的數(shù)據(jù)環(huán)境對(duì)象模型(Data Environment Object Model)建立Recordset對(duì)象。這也是在網(wǎng)頁(yè)編程上比較少見(jiàn)的新方法，與SOM模型相比，自有它的優(yōu)點(diǎn)，這將在后文詳述。

在后面所舉的所有例子源代碼，都可以直接拷貝使用，你甚至可以不懂其原理，只要把其中的粗斜體字部分換成相應(yīng)自己的數(shù)據(jù)庫(kù)名或字段名就可以了。

在開(kāi)始詳細(xì)介紹各種分頁(yè)方法前，讓我們先創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)：用Office97中的access自創(chuàng)一個(gè)Employee.mdb，其中建一個(gè)表emp，只設(shè)三個(gè)字段：emp ID，last name和first name。為什么這么簡(jiǎn)單，是因?yàn)槲覀冴P(guān)心的是怎樣處理recordset的結(jié)果。

第一種：參數(shù)直接代入法

這種方法是用手工建立Recordset對(duì)象，利用其pagesize(每頁(yè)指定顯示記錄數(shù))，pagecount(總頁(yè)碼數(shù))和absolutepage(當(dāng)前頁(yè)碼數(shù))屬性來(lái)控制分頁(yè)的輸出。分頁(yè)采用直接帶頁(yè)碼參數(shù)的方法來(lái)控制翻頁(yè)。網(wǎng)頁(yè)的名字為emp1.asp。源代碼如下：

1. ＜%//建立與employee.mdb數(shù)據(jù)庫(kù)的連接。 
2. Set conn = Server.CreateObject("ADODB.Connection") 
3. conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=employee.mdb" 
4. //建立emp表的Recordset對(duì)象實(shí)例rs。 
5. Set rs = Server.CreateObject("ADODB.Recordset") 
6. rs.Open "emp", conn, 3 
7. PageSize = 10 //pagesize屬性指定了每頁(yè)要顯示的記錄條數(shù) 
8. Page = CLng(Request("Page")) 'string型轉(zhuǎn)化為long型 
9. If Page ＜ 1 Then Page = 1 
10. If Page ＞ rs.PageCount Then Page = rs.PageCount 
11. If Page ＜＞ 1 Then 
12. 　Response.Write "＜A HREF=emp1.asp?Page=1＞第一頁(yè)＜/A＞" 
13. 　Response.Write "＜A HREF=emp1.asp?Page=" & (Page-1) & "＞上一頁(yè)＜/A＞" 
14. End If 
15. If Page ＜＞ rs.PageCount Then 
16. 　Response.Write "＜A HREF=emp1.asp?Page=" & (Page+1) & "＞下一頁(yè)＜/A＞" 
17. 　Response.Write "＜A HREF=emp1.asp?Page="&rs.PageCount & "＞最后一頁(yè)＜/A＞" 
18. End If 
19. Response.write"頁(yè)碼：" & Page & "/" & rs.PageCount & "＜/font＞" 
20. //每一頁(yè)的顯示 
21. //顯示表頭 
22. Response.Write "＜CENTER＞＜TABLE BORDER=1＞" 
23. Response.WRITE "＜TR＞＜TD＞" & rs.Fields("emp ID").Name & "＜/TD＞" 
24. Response.WRITE "＜TD＞" & rs.Fields("last name").Name & "＜/TD＞" 
25. Response.WRITE "＜TD＞" & rs.Fields("first name").Name & "＜/TD＞＜/TR＞" 
26. //循環(huán)顯示每條記錄 
27. rs.AbsolutePage = Page //把頁(yè)碼賦給absolutepage屬性從而知當(dāng)前頁(yè)的首條記錄號(hào) 
28. For iPage = 1 To rs.PageSize // 
29. Response.WRITE "＜TR＞＜TD＞" & rs.Fields("emp ID").Value & "＜/TD＞" 
30. Response.WRITE "＜TD＞" & rs.Fields("first name").Value & "＜/TD＞" 
31. Response.WRITE "＜TD＞" & rs.Fields("last name").Value & "＜/TD＞＜/TR＞" 
32. rs.MoveNext 
33. If rs.EOF Then Exit For 
34. Next 
35. Response.Write "＜/TABLE＞＜/CENTER＞"%＞ 

第二種：表單傳送參數(shù)法

這種方法在創(chuàng)建Recordset對(duì)象時(shí)與第一種相同，只是在翻頁(yè)控制時(shí)，采用和case語(yǔ)句配合來(lái)實(shí)現(xiàn)翻頁(yè)。網(wǎng)頁(yè)的名字為:emp2.asp。此方法在編程邏輯上有個(gè)缺點(diǎn)：就是在按過(guò)“上頁(yè)”或“下頁(yè)”鈕后，再在瀏覽器上按刷新按鈕時(shí)，會(huì)自動(dòng)翻頁(yè)。源代碼如下：

1. if Pagenum = "" Then Pagenum = 1 //從第一頁(yè)開(kāi)始顯示 
2. //建立數(shù)據(jù)庫(kù)連接和Recordset對(duì)象實(shí)例rs。 
3. 與第一種方法相同，此處略過(guò)。 
4. RS.Pagesize = 10 ' 設(shè)置一頁(yè)中顯示的記錄條數(shù)為10條 
5. // 確定翻頁(yè)的動(dòng)作 
6. Select Case Request("NAV") 
7. Case "" 
8. 　session("Pagenum") = 1 
9. case "First" ' First Record 
10. 　session("Pagenum") = 1 
11. case "Prev" ' Previous Record 
12. 　if session("Pagenum") ＞ 1 then 
13. 　　session("Pagenum") = session("Pagenum") - 1 
14. 　End If 
15. case "Next" ' Next Record 
16. 　if session("Pagenum")＜ RS.PageCount then 
17. 　　session("Pagenum") = session("Pagenum") + 1 
18. 　End if 
19. case "Last" ' Last Record 
20. 　session("Pagenum") = RS.PageCount 
21. End Select 
22. RS.Absolutepage = Clng(session("Pagenum")) //確定當(dāng)前頁(yè)的第一條記錄號(hào) 
23. // 顯示當(dāng)前頁(yè) 
24. 同第一種方法，此處略過(guò)。 
25. // Nav 翻頁(yè)按鈕設(shè)置 
26. ＜form method="GET" action="emp2.asp"＞ 
27. ＜input type="submit" name="NAV" Value="首頁(yè)"＞ 
28. ＜input type="submit" value="上頁(yè)" name="NAV"＞ 
29. ＜input type="submit" value="下頁(yè)" name="NAV"＞ 
30. ＜input type="submit" value="末頁(yè)" name="NAV"＞＜/form＞ 

第三種：用Grid控件設(shè)計(jì)分頁(yè)

所有的方法中，這種方法最容易。你只需拖DTC中的Recordset控件和Grid控件到asp網(wǎng)頁(yè)中就行了。而且，你還能選擇是在服務(wù)器平臺(tái)還是在客戶端平臺(tái)控制翻頁(yè)。缺點(diǎn)就是你必須用它給定的格式顯示，而不能自己自由控制表格的顯示格式。

方法如下：

在VI6.0中建一個(gè)工程emp.vip。再在工程中添加一個(gè)asp網(wǎng)頁(yè)：emp3.asp。

第一步：選VI6.0菜單條上的“add data connect…”，按開(kāi)發(fā)工具的導(dǎo)航提示，你就可以很容易地建立與Employee.mdb數(shù)據(jù)庫(kù)的連接。從DTC工具欄中拖一個(gè)Recordset控件到網(wǎng)頁(yè)中，并設(shè)置其屬性。具體如圖：

當(dāng)你拖控件到網(wǎng)頁(yè)中時(shí)，VI6.0會(huì)自動(dòng)提示你“是否使用Scripting object model”，按yes。

第三步：從DTC工具欄中拖一個(gè)Grid控件到網(wǎng)頁(yè)中，然后單擊鼠標(biāo)右鍵，設(shè)置其屬性，如：選在第二步中創(chuàng)建的Recordset控件名，選擇emp表中的字段，每頁(yè)顯示多少條記錄以及顯示格式等。非常簡(jiǎn)單方便，只要照著導(dǎo)航提示做就行了。

第四種：DHTML法一。

數(shù)據(jù)記錄顯示在一個(gè)HTML表中。它利用DHTML中表的數(shù)據(jù)綁定特性來(lái)控制記錄的分頁(yè)顯示。缺點(diǎn)就是你的翻頁(yè)方法將被限制為一種特定的方式：只能“上頁(yè)”和“下頁(yè)”而不能“首頁(yè)”和“末頁(yè)”。由于是在客戶端控制翻頁(yè)，所以，這種和第五種方法是速度最快的，但遺憾的是它只能在支持DHTML的瀏覽器上使用。

在DHTML中，

的DATASRC屬性可使表格綁定到一個(gè)數(shù)據(jù)源，另一個(gè)屬性DATAPAGESIZE可指定一頁(yè)一次顯示的記錄數(shù)。

我們來(lái)看下面的例子：

第一步：拖Recordset控件到新建的網(wǎng)頁(yè)emp4.htm中，設(shè)置其屬性，方法同第三種，此處略。

第二步：輸入下面的代碼：

1. ＜TABLE ID="Table1" DATASRC="#Recordset1_RDS" DATAPAGESIZE=5＞ //假定前面設(shè)定Recordset控件名為Recordset1。每頁(yè)顯示5條記錄。 
2. ＜THEAD＞ 
3. ＜TH ALIGN="left" WIDTH=150＞Emp ID＜/TH＞ //輸出表頭 
4. ＜TH ALIGN="left" WIDTH=200＞Last Name＜/TH＞ 
5. ＜TH ALIGN="left" WIDTH=200＞First Name＜/TH＞ 
6. ＜/THEAD＞ 
7. ＜TR＞ 
8. ＜TD＞＜DIV DATAFLD="Emp ID"＞＜/DIV＞＜/TD＞ //輸出表內(nèi)容 
9. ＜TD＞＜DIV DATAFLD="Last Name"＞＜/DIV＞＜/TD＞ 
10. ＜TD＞＜DIV DATAFLD="First Name"＞＜/DIV＞＜/TD＞ 
11. ＜/TR＞ 
12. ＜/TABLE＞ 

第三步：然后,增加一對(duì)DTCs Button按鈕控件來(lái)做翻頁(yè)導(dǎo)航，一個(gè)命名為“btnPrevious”(上一頁(yè))，一個(gè)命名為“btnNext”(下一頁(yè))。它們相應(yīng)的腳本如下：

1. ＜SCRIPT LANGUAGE=VBScript＞ 
2. Function btnPrevious_onclick() 
3. Table1.previousPage() 
4. End Function 
5. Function btnNext_onclick() 
6. Table1.nextPage() 
7. End Function 
8. ＜/SCRIPT＞ 

第五種：DHTML法二

這種方法是對(duì)第四種方法的完善。采用手工編寫(xiě)腳本的方法，使我們能做“首頁(yè)”，“末頁(yè)”翻頁(yè)導(dǎo)航按鈕，并能確定每條記錄的位置(記錄號(hào))。由于篇幅的關(guān)系，我在下面只介紹一個(gè)具體例子，并給出簡(jiǎn)要說(shuō)明。其它關(guān)于DHTML和Recordset控件的一些屬性和方法請(qǐng)讀者自行參照相關(guān)書(shū)籍。這里需要提請(qǐng)注意的是，Recordset控件與第一、二種方法中介紹的ADO的Recordset對(duì)象有些不同：Recordset控件沒(méi)有直接給出pagesize和pagecount等屬性，需要用下面介紹的方法來(lái)計(jì)算。

第一步：拖Recordset控件到新建的網(wǎng)頁(yè)emp5.htm中，名字為Recordset1，設(shè)置其屬性，方法同第三種，此處略。

第二步：定義三個(gè)全局變量和編寫(xiě)Recordset1的ondatasetcomplete(數(shù)據(jù)設(shè)置完成時(shí))腳本。

1. Dim gCurrentPageNumber //當(dāng)前頁(yè)號(hào) 
2. Dim gMaxPageNumber //最大頁(yè)數(shù) 
3. Dim gRecordsPerPage //每頁(yè)顯示記錄數(shù) 
4. gRecordsPerPage = 5 // 設(shè)置每頁(yè)顯示記錄數(shù)為5條記錄。 
5. Function Recordset1_ondatasetcomplete() 
6. totalRecordCount = Recordset1.getCount() //總的記錄條數(shù) 
7. gMaxPageNumber = Int(totalRecordCount / gRecordsPerPage) //獲得最大頁(yè)數(shù) 
8. If (totalRecordCount Mod gRecordsPerPage) ＞ 0 then 
9. gMaxPageNumber = gMaxPageNumber + 1 
10. End If 
11. End Function 

第三步：創(chuàng)建翻頁(yè)導(dǎo)航按鈕。

1. Function btnFirst_onclick() ' 翻到首頁(yè) 
2. 　gCurrentPageNumber = 1 
3. 　DisplayData() 
4. End Function 
5. Function btnPrevious_onclick() ' 翻到上一頁(yè) 
6. 　if gCurrentPageNumber ＞ 1 Then 
7. 　　gCurrentPageNumber = gCurrentPageNumber - 1 
8. 　　DisplayData() 
9. 　End If 
10. End Function 
11. Function btnNext_onclick() ' 翻到下一頁(yè) 
12. 　if gCurrentPageNumber ＜ gMaxPageNumber Then 
13. 　　gCurrentPageNumber = gCurrentPageNumber + 1 
14. 　　DisplayData() 
15. 　End If 
16. End Function 
17. Function btnLast_onclick() '翻到末頁(yè) 
18. 　gCurrentPageNumber = gMaxPageNumber 
19. 　DisplayData() 
20. End Function 

第四步：編寫(xiě)顯示每一頁(yè)的函數(shù)。其中使用了許多DHTML的屬性和方法，請(qǐng)讀者自行參考相關(guān)書(shū)籍。

1. Sub DisplayData() 
2. startRecord = ((gCurrentPageNumber - 1) * gRecordsPerPage) + 1 //計(jì)算每一頁(yè)開(kāi)始顯示的記錄號(hào)數(shù)（位置，第幾條） 
3. rowCtr = 1 
4. lblPageNumber.innerHTML = gCurrentPageNumber & "/" & gMaxPageNumber 
5. For recordPtr = startRecord To (startRecord + gRecordsPerPage - 1) //循環(huán)顯示一頁(yè)的各條記錄 
6. 　If recordPtr ＞ Recordset1.getCount() Then //顯示空表 
7. 　　Table1.rows(rowCtr).cells(0).innerHTML = "＜P＞ ＜/P＞" 
8. 　　Table1.rows(rowCtr).cells(1).innerHTML = "＜P＞ ＜/P＞" 
9. 　　Table1.rows(rowCtr).cells(2).innerHTML = "＜P＞ ＜/P＞" 
10. 　　Table1.rows(rowCtr).cells(3).innerHTML = "＜P＞ ＜/P＞" 
11. 　Else //具體顯示每一頁(yè) 
12. 　　Recordset1.moveAbsolute(recordPtr) //移動(dòng)記錄指針。 
13. 　　empID = Recordset1.fields.getValue("emp ID") 
14. 　　empLName = Recordset1.fields.getValue("first name") 
15. 　　empFName = Recordset1.fields.getValue("last name") 
16. 　　Table1.rows(rowCtr).cells(0).innerText = recordPtr ' Counter 
17. 　　Table1.rows(rowCtr).cells(1).innerText = empID 
18. 　　Table1.rows(rowCtr).cells(2).innerText = empLName 
19. 　　Table1.rows(rowCtr).cells(3).innerText = empFName 
20. 　End If 
21. 　rowCtr = rowCtr + 1 
22. Next 
23. End Sub 

另外，我們還需要在window對(duì)象的onload事件中編寫(xiě)如下腳本：

1. For rowCtr = 1 to gRecordsPerPage 
2. 　Table1.insertRow(rowCtr) ' 插一新列 
3. 　For cellCtr = 0 to 3 
4. 　　Table1.rows(rowCtr).insertCell() 
5. 　Next 
6. Next 

第六種：服務(wù)器端控制翻頁(yè)方法。

如果我們?cè)诜?wù)器端對(duì)數(shù)據(jù)進(jìn)行分頁(yè)形成HTML語(yǔ)句后再輸出到客戶端，就不會(huì)存在瀏覽器不支持DHTML的問(wèn)題了。可是用服務(wù)器端法使得我們每次翻頁(yè)時(shí)，都得讓Recordset控件重新產(chǎn)生一次，因此速度肯定要比用DHTML的方法慢。但如果服務(wù)器足夠快的話，這點(diǎn)慢客戶是察覺(jué)不到的。

下面的例子中，我將介紹一個(gè)新的DTC控件：PageObject。這個(gè)控件使被指定的網(wǎng)頁(yè)成為一個(gè)網(wǎng)頁(yè)對(duì)象，用戶在此網(wǎng)頁(yè)的服務(wù)器腳本中組織的子程序和函數(shù)可被看作是該網(wǎng)頁(yè)對(duì)象的方法。它提供了管理狀態(tài)信息的一種先進(jìn)的方法：網(wǎng)頁(yè)對(duì)象有一些屬性(變量)，用戶可以定義這些屬性的生存期。因?yàn)橐陨线@些特性，使我們?cè)诰幹品?yè)的腳本時(shí)非常方便。

但這種方法的缺點(diǎn)是：當(dāng)你按了“上頁(yè)”或“下頁(yè)”按鈕后，再瀏覽器上的按刷新按鈕，網(wǎng)頁(yè)會(huì)自動(dòng)翻頁(yè)。另外，如果按了瀏覽器上的“回退”按鈕后，再按翻頁(yè)按鈕，可能會(huì)出現(xiàn)一次亂翻。這都是因?yàn)榫W(wǎng)頁(yè)對(duì)象屬性(全局變量)造成的。

第一步：拖Recordset控件到新建的網(wǎng)頁(yè)emp6.asp中，名字為Recordset1，設(shè)置其屬性，方法同第三種，此處略。

第二步：拖PageObject控件到網(wǎng)頁(yè)中，取名叫emplist。然后右鍵單擊此控件打開(kāi)屬性頁(yè)并設(shè)置MaxPageNumber，RecordsPerPage，CurrrentPageNumber三個(gè)屬性(全局變量)。VI6.0可用get和set方法來(lái)讀寫(xiě)它們的值，具體用法請(qǐng)查閱相關(guān)資料。

第三步：編寫(xiě)Recordset1的ondatasetcomplete事件。

1. Function Recordset1_ondatasetcomplete() 
2. recordsPerPage = 5 
3. empList.setRecordsPerPage(recordsPerPage)//設(shè)置網(wǎng)頁(yè)對(duì)象每頁(yè)記錄條數(shù)屬性為5 
4. totalRecordCount = Recordset1.getCount()//獲得記錄集的總條數(shù) 
5. mpn = Int(totalRecordCount / recordsPerPage) //計(jì)算出mpn為總頁(yè)數(shù) 
6. If (totalRecordCount Mod recordsPerPage) ＞ 0 then 
7. mpn = mpn + 1 
8. End If 
9. empList.setMaxPageNumber(mpn) 
10. End Function 

第四步：拖四個(gè)button控件到網(wǎng)頁(yè)中，編寫(xiě)翻頁(yè)控制腳本。我們主要是通過(guò)改變網(wǎng)頁(yè)對(duì)象的CurrentPageNumber屬性的值來(lái)實(shí)現(xiàn)翻頁(yè)。

1. Function btnFirst_onclick()' 翻到首頁(yè) 
2. 　empList.setCurrentPageNumber(1) 
3. End Function 
4. Function btnPrevious_onclick()' 翻到上一頁(yè) 
5. 　cpn = empList.getCurrentPageNumber() 
6. 　if cpn ＞ 1 Then 
7. 　　empList.setCurrentPageNumber(cpn - 1) 
8. 　End If 
9. End Function 
10. Function btnNext_onclick()' 翻到下一頁(yè) 
11. 　cpn = empList.getCurrentPageNumber() 
12. 　if cpn ＜ empList.getMaxPageNumber() then 
13. 　　empList.setCurrentPageNumber(cpn + 1) 
14. 　End If 
15. End Function 
16. Function btnLast_onclick() ' 翻到末頁(yè) 
17. 　empList.setCurrentPageNumber( empList.getMaxPageNumber() ) 
18. End Function 

為保證首次進(jìn)入該頁(yè)時(shí)，顯示的是第一頁(yè)，我們還得編寫(xiě)該網(wǎng)頁(yè)對(duì)象的onEnter事件。

1. Function empList_onEnter() 
2. 　If empList.firstEntered Then 
3. 　　empList.setCurrentPageNumber(1) 
4. 　End If 
5. End Function 
6. 第五步：編寫(xiě)顯示每一頁(yè)的腳本。 
7. ＜HR＞＜TABLE BORDER=0＞＜TR＞//顯示表頭 
8. ＜TH ALIGN="left" WIDTH=35＞＜/TH＞ 
9. ＜TH ALIGN="left" WIDTH=150＞Emp ID＜/TH＞ 
10. ＜TH ALIGN="left" WIDTH=200＞Last Name＜/TH＞ 
11. ＜TH ALIGN="left" WIDTH=200＞First Name＜/TH＞＜/TR＞ 
12. ＜% 
13. pageNumber = empList.getCurrentPageNumber()//計(jì)算翻頁(yè)所需的各種參數(shù)，同DHTML法二 
14. recordsPerPage = empList.getRecordsPerPage() 
15. startRecord = ((pageNumber - 1) * recordsPerPage) + 1 
16. lastRecord = Recordset1.getCount() 
17. For recordPtr = startRecord To (startRecord + recordsPerPage - 1)%＞ 
18. ＜%If Recordset1.EOF = True Then%＞ 
19. ＜TR＞ 
20. ＜TD＞ ＜/TD＞ 
21. ＜TD＞ ＜/TD＞ 
22. ＜TD＞ ＜/TD＞ 
23. ＜TD＞ ＜/TD＞ 
24. ＜/TR＞ 
25. ＜%Else%＞ 
26. ＜%Recordset1.moveAbsolute(recordPtr)%＞ 
27. ＜TR＞ 
28. ＜% If recordPtr ＜= lastRecord Then %＞ 
29. ＜TD＞＜%=recordptr%＞＜/TD＞ 
30. ＜%Else%＞ 
31. ＜TD＞ ＜/TD＞ 
32. ＜% End If %＞ 
33. ＜TD＞＜%=Recordset1.fields.getValue("emp ID")%＞＜/TD＞ 
34. ＜TD＞＜%=Recordset1.fields.getValue("last name")%＞＜/TD＞ 
35. ＜TD＞＜%=Recordset1.fields.getValue("first name")%＞＜/TD＞ 
36. ＜/TR＞ 
37. ＜%End If%＞ 
38. ＜%Next%＞ 
39. ＜/TABLE＞＜HR＞ 

第七種：Data Environment Object Model（數(shù)據(jù)環(huán)境對(duì)象模型）法

Data Environment對(duì)象模型把ADO對(duì)象模型及它的對(duì)象----“Connection”，“Command”，“Recordset”，“Field”以及“Parameter”對(duì)象----抽象到一個(gè)更加容易的表單中。Data Environment Object Model把命令顯露為方法。用戶可以調(diào)用這些方法，這些方法會(huì)執(zhí)行這些命令并返回所得到的記錄集。關(guān)于DEOM對(duì)象模型詳細(xì)資料請(qǐng)參考相關(guān)書(shū)籍。我們來(lái)看下面網(wǎng)頁(yè)emp7.asp的例子：

第一步：在VI6.0的“project Explorer”窗口中的工程項(xiàng)目上右擊鼠標(biāo)并從彈出式菜單選擇“Add Data Connection”。根據(jù)VI給出的導(dǎo)航提示建立一個(gè)到數(shù)據(jù)庫(kù)的連接之后，用戶就添加了一個(gè)實(shí)現(xiàn)從ASP應(yīng)用程序訪問(wèn)數(shù)據(jù)庫(kù)的數(shù)據(jù)命令。同時(shí)，你將會(huì)在“Project Explorer”窗口中的global.asa文件下方看到一個(gè)“Data Environment”對(duì)象。

第二步：右擊“Data Environment”對(duì)象然后從彈出式菜單中選擇“Add Data Command”選項(xiàng)，添加一個(gè)數(shù)據(jù)命令Command1。根據(jù)VI6.0的導(dǎo)航提示，你可以在Command1 Properties彈出窗口的Genetal頁(yè)中選SQL Statement，輸入：select * from emp。按OK返回。

第三步：你創(chuàng)建了這個(gè)數(shù)據(jù)命令后，就已經(jīng)為該Data Environment對(duì)象創(chuàng)建了一個(gè)方法，然后就可以從腳本中調(diào)用這個(gè)方法，而且該方法將會(huì)給用戶返回一個(gè)記錄集。

thisPage.createDE() //在SOM模式下，thisPage表示當(dāng)前網(wǎng)頁(yè)對(duì)象，createDE()方法創(chuàng)建了DE對(duì)象。

DE.Command1//執(zhí)行DE對(duì)象的命令，后面可代參數(shù)，做有條件查詢時(shí)很有用。

Set rs=DE.rsCommand1//DE.rscommand1使得rs對(duì)象完全等同于一個(gè)ADO的Recordset對(duì)象。

第四步：因?yàn)閞s為ADO對(duì)象，所以，以下的實(shí)現(xiàn)翻頁(yè)代碼完全參照以上介紹的幾種方法，此處略過(guò)。

其它還有如FrontPage2000的數(shù)據(jù)庫(kù)導(dǎo)航中實(shí)現(xiàn)的方法等，因與本主題無(wú)關(guān)，此處略。

綜上所述，前面介紹的每種方法都包含了很多新的技術(shù)，由于篇幅的關(guān)系，無(wú)法深入。本文只是想通過(guò)實(shí)現(xiàn)翻頁(yè)這一具體的例子來(lái)介紹ASP網(wǎng)頁(yè)編程的多種方法;讓大家親身體驗(yàn)一下VI6.0在編制網(wǎng)頁(yè)中的強(qiáng)大功能;了解和熟悉微軟在網(wǎng)頁(yè)編程中提出的ADO、DHTML、DTC控件、SOM對(duì)象模型和DEOM對(duì)象模型的使用方法;希望能給大家在編制網(wǎng)頁(yè)時(shí)提供更多的選擇和參考。