在微軟的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)在客戶(hù)端控制翻頁(yè)。但它要求用戶(hù)的瀏覽器必須是支持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ù)器端(客戶(hù)端)實(shí)現(xiàn)翻頁(yè)控制。這是一種激動(dòng)人心的、全新的編程方法，它把網(wǎng)頁(yè)看成對(duì)象(這種對(duì)象模型和傳統(tǒng)的DOM----document object model是有區(qū)別的：DOM只能控制客戶(hù)端，而SOM可控制服務(wù)器端和客戶(hù)端)，它真正實(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è)采用＜href＞直接帶頁(yè)碼參數(shù)的方法來(lái)控制翻頁(yè)。網(wǎng)頁(yè)的名字為emp1.asp。源代碼如下：

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

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

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

第三種：用Grid控件設(shè)計(jì)分頁(yè)
所有的方法中，這種方法最容易。你只需拖DTC中的Recordset控件和Grid控件到asp網(wǎng)頁(yè)中就行了。而且，你還能選擇是在服務(wù)器平臺(tái)還是在客戶(hù)端平臺(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è)”。由于是在客戶(hù)端控制翻頁(yè)，所以，這種和第五種方法是速度最快的，但遺憾的是它只能在支持DHTML的瀏覽器上使用。
在DHTML中，＜TABLE＞的DATASRC屬性可使表格綁定到一個(gè)數(shù)據(jù)源，另一個(gè)屬性DATAPAGESIZE可指定一頁(yè)一次顯示的記錄數(shù)。
我們來(lái)看下面的例子：
第一步：拖Recordset控件到新建的網(wǎng)頁(yè)emp4.htm中，設(shè)置其屬性，方法同第三種，此處略。
第二步：輸入下面的代碼：

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

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

＜SCRIPT LANGUAGE=VBScript＞
Function btnPrevious_onclick()
Table1.previousPage()
End Function
Function btnNext_onclick()
Table1.nextPage()
End Function
＜/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í)）腳本。

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

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

Function btnFirst_onclick() ' 翻到首頁(yè)
　gCurrentPageNumber = 1
　DisplayData()
End Function
Function btnPrevious_onclick() ' 翻到上一頁(yè)
　if gCurrentPageNumber ＞ 1 Then
　　gCurrentPageNumber = gCurrentPageNumber - 1
　　DisplayData()
　End If
End Function
Function btnNext_onclick() ' 翻到下一頁(yè)
　if gCurrentPageNumber ＜ gMaxPageNumber Then
　　gCurrentPageNumber = gCurrentPageNumber + 1
　　DisplayData()
　End If
End Function
Function btnLast_onclick() '翻到末頁(yè)
　gCurrentPageNumber = gMaxPageNumber
　DisplayData()
End Function

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

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

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

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

第六種：服務(wù)器端控制翻頁(yè)方法。
如果我們?cè)诜?wù)器端對(duì)數(shù)據(jù)進(jìn)行分頁(yè)形成HTML語(yǔ)句后再輸出到客戶(hù)端，就不會(huì)存在瀏覽器不支持DHTML的問(wèn)題了。可是用服務(wù)器端法使得我們每次翻頁(yè)時(shí)，都得讓Recordset控件重新產(chǎn)生一次，因此速度肯定要比用DHTML的方法慢。但如果服務(wù)器足夠快的話，這點(diǎn)慢客戶(hù)是察覺(jué)不到的。
下面的例子中，我將介紹一個(gè)新的DTC控件：PageObject。這個(gè)控件使被指定的網(wǎng)頁(yè)成為一個(gè)網(wǎng)頁(yè)對(duì)象，用戶(hù)在此網(wǎng)頁(yè)的服務(wù)器腳本中組織的子程序和函數(shù)可被看作是該網(wǎng)頁(yè)對(duì)象的方法。它提供了管理狀態(tài)信息的一種先進(jìn)的方法：網(wǎng)頁(yè)對(duì)象有一些屬性（變量），用戶(hù)可以定義這些屬性的生存期。因?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事件。

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

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

Function btnFirst_onclick()' 翻到首頁(yè)
　empList.setCurrentPageNumber(1)
End Function
Function btnPrevious_onclick()' 翻到上一頁(yè)
　cpn = empList.getCurrentPageNumber()
　if cpn ＞ 1 Then
　　empList.setCurrentPageNumber(cpn - 1)
　End If
End Function
Function btnNext_onclick()' 翻到下一頁(yè)
　cpn = empList.getCurrentPageNumber()
　if cpn ＜ empList.getMaxPageNumber() then
　　empList.setCurrentPageNumber(cpn + 1)
　End If
End Function
Function btnLast_onclick() ' 翻到末頁(yè)
　empList.setCurrentPageNumber( empList.getMaxPageNumber() )
End Function

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

Function empList_onEnter()
　If empList.firstEntered Then
　　empList.setCurrentPageNumber(1)
　End If
End Function
第五步：編寫(xiě)顯示每一頁(yè)的腳本。
＜HR＞＜TABLE BORDER=0＞＜TR＞//顯示表頭
＜TH ALIGN="left" WIDTH=35＞＜/TH＞
＜TH ALIGN="left" WIDTH=150＞Emp ID＜/TH＞
＜TH ALIGN="left" WIDTH=200＞Last Name＜/TH＞
＜TH ALIGN="left" WIDTH=200＞First Name＜/TH＞＜/TR＞
＜%
pageNumber = empList.getCurrentPageNumber()//計(jì)算翻頁(yè)所需的各種參數(shù)，同DHTML法二
recordsPerPage = empList.getRecordsPerPage()
startRecord = ((pageNumber - 1) * recordsPerPage) + 1
lastRecord = Recordset1.getCount()
For recordPtr = startRecord To (startRecord + recordsPerPage - 1)%＞
＜%If Recordset1.EOF = True Then%＞
＜TR＞
＜TD＞ ＜/TD＞
＜TD＞ ＜/TD＞
＜TD＞ ＜/TD＞
＜TD＞ ＜/TD＞
＜/TR＞
＜%Else%＞
＜%Recordset1.moveAbsolute(recordPtr)%＞
＜TR＞
＜% If recordPtr ＜= lastRecord Then %＞
＜TD＞＜%=recordptr%＞＜/TD＞
＜%Else%＞
＜TD＞ ＜/TD＞
＜% End If %＞
＜TD＞＜%=Recordset1.fields.getValue("emp ID")%＞＜/TD＞
＜TD＞＜%=Recordset1.fields.getValue("last name")%＞＜/TD＞
＜TD＞＜%=Recordset1.fields.getValue("first name")%＞＜/TD＞
＜/TR＞
＜%End If%＞
＜%Next%＞
＜/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把命令顯露為方法。用戶(hù)可以調(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ù)的連接之后，用戶(hù)就添加了一個(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ì)給用戶(hù)返回一個(gè)記錄集。
thisPage.createDE() //在SOM模式下，thisPage表示當(dāng)前網(wǎng)頁(yè)對(duì)象，createDE()方法創(chuàng)建了DE對(duì)象。
DE.Command1//執(zhí)行DE對(duì)象的命令，后面可代參數(shù)，做有條件查詢(xún)時(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í)提供更多的選擇和參考。