在微軟的ASP編程體系中，ADO對象的建立，使得從網(wǎng)頁訪問數(shù)據(jù)庫成為一件易事，特別是ADO的Recordset對象使得控制數(shù)據(jù)的輸出顯示更為方便、自由。而在Visual InterDev6.0(以下簡稱VI6.0)中，由于Script Object Model（以下簡稱SOM）、Design-Time Control(以下簡稱DTC)以及Data Environment Object Model(以下簡稱DEOM)等對象模型的引入，使網(wǎng)頁對數(shù)據(jù)庫的訪問設(shè)計顯得更為方便。
因為主題方面的原因，關(guān)于數(shù)據(jù)庫的連接，下文只給出代碼和簡要注釋，而把重點放在如何利用Recordset對象（或控件）實現(xiàn)數(shù)據(jù)記錄的分頁顯示方面。根據(jù)我的理解，分頁顯示的關(guān)鍵就在于對ADO的Recordset對象或DTC（設(shè)計時控件）的Recordset控件的屬性和方法的熟練把握上。
這七種分頁顯示的武器概括起來說分四類：
第一、二種我暫取名叫“純ASP法”，這也是國內(nèi)的ASP網(wǎng)站上用得最多的方法，它們的區(qū)別僅在實現(xiàn)技巧的不同。這兩種方法的實現(xiàn)最易理解，用到的對象概念也最少，對開發(fā)環(huán)境的要求也最低（只要記事本就行）?？梢哉f，這兩種方法的實質(zhì)還是CGI的編程思想，只是在程序中引入了ADO對象而已。
第四、五種暫取名叫“SOM的DHTML法”。這兩種方法要求在VI6.0的環(huán)境下，利用微軟提出的腳本對象模型（Script Object Model）和DHTML中Table對象的與數(shù)據(jù)庫綁定的新特性（許多書和文章只介紹了DHTML的CSS特性在樣式設(shè)計中的運用而忽略介紹其數(shù)據(jù)綁定特性），實現(xiàn)在客戶端控制翻頁。但它要求用戶的瀏覽器必須是支持DHTML，如：Microsoft Internet Explorer 4.0及以上的版本。
第六種暫取名叫“SOM服務(wù)器端法”。要求在VI6.0的環(huán)境下開發(fā)，它利用微軟提出的腳本對象模型（Script Object Model）中的幾個DTC控件：Recordset、PageObject、Grid等在服務(wù)器端(客戶端)實現(xiàn)翻頁控制。這是一種激動人心的、全新的編程方法，它把網(wǎng)頁看成對象(這種對象模型和傳統(tǒng)的DOM----document object model是有區(qū)別的：DOM只能控制客戶端，而SOM可控制服務(wù)器端和客戶端)，它真正實現(xiàn)了網(wǎng)頁的面向?qū)ο缶幊?。但遺憾的是，也許是我個人能力有限，這種技術(shù)我個人認(rèn)為還不是很成熟，比如，與瀏覽器的結(jié)合還不是很好，這將在后文詳細(xì)說明。
第七種暫取名叫“DEOM法”。它也是利用了VI6.0中建立的數(shù)據(jù)環(huán)境對象模型（Data Environment Object Model）建立Recordset對象。這也是在網(wǎng)頁編程上比較少見的新方法，與SOM模型相比，自有它的優(yōu)點，這將在后文詳述。
在后面所舉的所有例子源代碼，都可以直接拷貝使用，你甚至可以不懂其原理，只要把其中的粗斜體字部分換成相應(yīng)自己的數(shù)據(jù)庫名或字段名就可以了。
在開始詳細(xì)介紹各種分頁方法前，讓我們先創(chuàng)建一個數(shù)據(jù)庫：用Office97中的access自創(chuàng)一個Employee.mdb，其中建一個表emp，只設(shè)三個字段：emp ID，last name和first name。為什么這么簡單，是因為我們關(guān)心的是怎樣處理recordset的結(jié)果。
第一種：參數(shù)直接代入法
這種方法是用手工建立Recordset對象，利用其pagesize（每頁指定顯示記錄數(shù)），pagecount（總頁碼數(shù)）和absolutepage（當(dāng)前頁碼數(shù)）屬性來控制分頁的輸出。分頁采用＜href＞直接帶頁碼參數(shù)的方法來控制翻頁。網(wǎng)頁的名字為emp1.asp。源代碼如下：
＜%//建立與employee.mdb數(shù)據(jù)庫的連接。
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=employee.mdb"
//建立emp表的Recordset對象實例rs。
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "emp", conn, 3
PageSize = 10 //pagesize屬性指定了每頁要顯示的記錄條數(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＞第一頁＜/A＞"
Response.Write "＜A HREF=emp1.asp?Page=" (Page-1) "＞上一頁＜/A＞"
End If
If Page ＜＞ rs.PageCount Then
Response.Write "＜A HREF=emp1.asp?Page=" (Page+1) "＞下一頁＜/A＞"
Response.Write "＜A HREF=emp1.asp?Page="rs.PageCount "＞最后一頁＜/A＞"
End If
Response.write"頁碼：" Page "/" rs.PageCount "＜/font＞"
//每一頁的顯示
//顯示表頭
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 //把頁碼賦給absolutepage屬性從而知當(dāng)前頁的首條記錄號
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對象時與第一種相同，只是在翻頁控制時，采用＜input＞和case語句配合來實現(xiàn)翻頁。網(wǎng)頁的名字為:emp2.asp。此方法在編程邏輯上有個缺點：就是在按過“上頁”或“下頁”鈕后，再在瀏覽器上按刷新按鈕時，會自動翻頁。源代碼如下：
if Pagenum = "" Then Pagenum = 1 //從第一頁開始顯示
//建立數(shù)據(jù)庫連接和Recordset對象實例rs。
與第一種方法相同，此處略過。
RS.Pagesize = 10 ' 設(shè)置一頁中顯示的記錄條數(shù)為10條
// 確定翻頁的動作
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)前頁的第一條記錄號
// 顯示當(dāng)前頁
同第一種方法，此處略過。
// Nav 翻頁按鈕設(shè)置
＜form method="GET" action="emp2.asp"＞
＜input type="submit" name="NAV" Value="首頁"＞
＜input type="submit" value="上頁" name="NAV"＞
＜input type="submit" value="下頁" name="NAV"＞
＜input type="submit" value="末頁" name="NAV"＞＜/form＞
第三種：用Grid控件設(shè)計分頁
所有的方法中，這種方法最容易。你只需拖DTC中的Recordset控件和Grid控件到asp網(wǎng)頁中就行了。而且，你還能選擇是在服務(wù)器平臺還是在客戶端平臺控制翻頁。缺點就是你必須用它給定的格式顯示，而不能自己自由控制表格的顯示格式。
方法如下：
在VI6.0中建一個工程emp.vip。再在工程中添加一個asp網(wǎng)頁：emp3.asp。
第一步：選VI6.0菜單條上的“add data connect…”，按開發(fā)工具的導(dǎo)航提示，你就可以很容易地建立與Employee.mdb數(shù)據(jù)庫的連接。從DTC工具欄中拖一個Recordset控件到網(wǎng)頁中，并設(shè)置其屬性。具體如圖：
當(dāng)你拖控件到網(wǎng)頁中時，VI6.0會自動提示你“是否使用Scripting object model”，按yes。
第三步：從DTC工具欄中拖一個Grid控件到網(wǎng)頁中，然后單擊鼠標(biāo)右鍵，設(shè)置其屬性，如：選在第二步中創(chuàng)建的Recordset控件名，選擇emp表中的字段，每頁顯示多少條記錄以及顯示格式等。非常簡單方便，只要照著導(dǎo)航提示做就行了。
第四種：DHTML法一。
數(shù)據(jù)記錄顯示在一個HTML表中。它利用DHTML中表的數(shù)據(jù)綁定特性來控制記錄的分頁顯示。缺點就是你的翻頁方法將被限制為一種特定的方式：只能“上頁”和“下頁”而不能“首頁”和“末頁”。由于是在客戶端控制翻頁，所以，這種和第五種方法是速度最快的，但遺憾的是它只能在支持DHTML的瀏覽器上使用。
在DHTML中，＜TABLE＞的DATASRC屬性可使表格綁定到一個數(shù)據(jù)源，另一個屬性DATAPAGESIZE可指定一頁一次顯示的記錄數(shù)。
我們來看下面的例子：
第一步：拖Recordset控件到新建的網(wǎng)頁emp4.htm中，設(shè)置其屬性，方法同第三種，此處略。
第二步：輸入下面的代碼：
＜TABLE ID="Table1" DATASRC="#Recordset1_RDS" DATAPAGESIZE=5＞ //假定前面設(shè)定Recordset控件名為Recordset1。每頁顯示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＞
第三步：然后,增加一對DTCs Button按鈕控件來做翻頁導(dǎo)航，一個命名為“btnPrevious”（上一頁），一個命名為“btnNext”（下一頁）。它們相應(yīng)的腳本如下：
＜SCRIPT LANGUAGE=VBScript＞
Function btnPrevious_onclick()
Table1.previousPage()
End Function
Function btnNext_onclick()
Table1.nextPage()
End Function
＜/SCRIPT＞
第五種：DHTML法二
這種方法是對第四種方法的完善。采用手工編寫腳本的方法，使我們能做“首頁”，“末頁”翻頁導(dǎo)航按鈕，并能確定每條記錄的位置（記錄號）。由于篇幅的關(guān)系，我在下面只介紹一個具體例子，并給出簡要說明。其它關(guān)于DHTML和Recordset控件的一些屬性和方法請讀者自行參照相關(guān)書籍。這里需要提請注意的是，Recordset控件與第一、二種方法中介紹的ADO的Recordset對象有些不同：Recordset控件沒有直接給出pagesize和pagecount等屬性，需要用下面介紹的方法來計算。
第一步：拖Recordset控件到新建的網(wǎng)頁emp5.htm中，名字為Recordset1，設(shè)置其屬性，方法同第三種，此處略。
第二步：定義三個全局變量和編寫Recordset1的ondatasetcomplete（數(shù)據(jù)設(shè)置完成時）腳本。
Dim gCurrentPageNumber //當(dāng)前頁號
Dim gMaxPageNumber //最大頁數(shù)
Dim gRecordsPerPage //每頁顯示記錄數(shù)
gRecordsPerPage = 5 // 設(shè)置每頁顯示記錄數(shù)為5條記錄。
Function Recordset1_ondatasetcomplete()
totalRecordCount = Recordset1.getCount() //總的記錄條數(shù)
gMaxPageNumber = Int(totalRecordCount / gRecordsPerPage) //獲得最大頁數(shù)
If (totalRecordCount Mod gRecordsPerPage) ＞ 0 then
gMaxPageNumber = gMaxPageNumber + 1
End If
End Function
第三步：創(chuàng)建翻頁導(dǎo)航按鈕。
Function btnFirst_onclick() ' 翻到首頁
gCurrentPageNumber = 1
DisplayData()
End Function
Function btnPrevious_onclick() ' 翻到上一頁
if gCurrentPageNumber ＞ 1 Then
gCurrentPageNumber = gCurrentPageNumber - 1
DisplayData()
End If
End Function
Function btnNext_onclick() ' 翻到下一頁
if gCurrentPageNumber ＜ gMaxPageNumber Then
gCurrentPageNumber = gCurrentPageNumber + 1
DisplayData()
End If
End Function
Function btnLast_onclick() '翻到末頁
gCurrentPageNumber = gMaxPageNumber
DisplayData()
End Function
第四步：編寫顯示每一頁的函數(shù)。其中使用了許多DHTML的屬性和方法，請讀者自行參考相關(guān)書籍。
Sub DisplayData()
startRecord = ((gCurrentPageNumber - 1) * gRecordsPerPage) + 1 //計算每一頁開始顯示的記錄號數(shù)（位置，第幾條）
rowCtr = 1
lblPageNumber.innerHTML = gCurrentPageNumber "/" gMaxPageNumber
For recordPtr = startRecord To (startRecord + gRecordsPerPage - 1) //循環(huán)顯示一頁的各條記錄
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 //具體顯示每一頁
Recordset1.moveAbsolute(recordPtr) //移動記錄指針。
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對象的onload事件中編寫如下腳本：
For rowCtr = 1 to gRecordsPerPage
Table1.insertRow(rowCtr) ' 插一新列
For cellCtr = 0 to 3
Table1.rows(rowCtr).insertCell()
Next
Next
第六種：服務(wù)器端控制翻頁方法。
如果我們在服務(wù)器端對數(shù)據(jù)進行分頁形成HTML語句后再輸出到客戶端，就不會存在瀏覽器不支持DHTML的問題了?？墒怯梅?wù)器端法使得我們每次翻頁時，都得讓Recordset控件重新產(chǎn)生一次，因此速度肯定要比用DHTML的方法慢。但如果服務(wù)器足夠快的話，這點慢客戶是察覺不到的。
下面的例子中，我將介紹一個新的DTC控件：PageObject。這個控件使被指定的網(wǎng)頁成為一個網(wǎng)頁對象，用戶在此網(wǎng)頁的服務(wù)器腳本中組織的子程序和函數(shù)可被看作是該網(wǎng)頁對象的方法。它提供了管理狀態(tài)信息的一種先進的方法：網(wǎng)頁對象有一些屬性（變量），用戶可以定義這些屬性的生存期。因為以上這些特性，使我們在編制翻頁的腳本時非常方便。
但這種方法的缺點是：當(dāng)你按了“上頁”或“下頁”按鈕后，再瀏覽器上的按刷新按鈕，網(wǎng)頁會自動翻頁。另外，如果按了瀏覽器上的“回退”按鈕后，再按翻頁按鈕，可能會出現(xiàn)一次亂翻。這都是因為網(wǎng)頁對象屬性（全局變量）造成的。
第一步：拖Recordset控件到新建的網(wǎng)頁emp6.asp中，名字為Recordset1，設(shè)置其屬性，方法同第三種，此處略。
第二步：拖PageObject控件到網(wǎng)頁中，取名叫emplist。然后右鍵單擊此控件打開屬性頁并設(shè)置MaxPageNumber，RecordsPerPage，CurrrentPageNumber三個屬性（全局變量）。VI6.0可用get和set方法來讀寫它們的值，具體用法請查閱相關(guān)資料。
第三步：編寫Recordset1的ondatasetcomplete事件。
Function Recordset1_ondatasetcomplete()
recordsPerPage = 5
empList.setRecordsPerPage(recordsPerPage)//設(shè)置網(wǎng)頁對象每頁記錄條數(shù)屬性為5
totalRecordCount = Recordset1.getCount()//獲得記錄集的總條數(shù)
mpn = Int(totalRecordCount / recordsPerPage) //計算出mpn為總頁數(shù)
If (totalRecordCount Mod recordsPerPage) ＞ 0 then
mpn = mpn + 1
End If
empList.setMaxPageNumber(mpn)
End Function
第四步：拖四個button控件到網(wǎng)頁中，編寫翻頁控制腳本。我們主要是通過改變網(wǎng)頁對象的CurrentPageNumber屬性的值來實現(xiàn)翻頁。
Function btnFirst_onclick()' 翻到首頁
empList.setCurrentPageNumber(1)
End Function
Function btnPrevious_onclick()' 翻到上一頁
cpn = empList.getCurrentPageNumber()
if cpn ＞ 1 Then
empList.setCurrentPageNumber(cpn - 1)
End If
End Function
Function btnNext_onclick()' 翻到下一頁
cpn = empList.getCurrentPageNumber()
if cpn ＜ empList.getMaxPageNumber() then
empList.setCurrentPageNumber(cpn + 1)
End If
End Function
Function btnLast_onclick() ' 翻到末頁
empList.setCurrentPageNumber( empList.getMaxPageNumber() )
End Function
為保證首次進入該頁時，顯示的是第一頁，我們還得編寫該網(wǎng)頁對象的onEnter事件。
Function empList_onEnter()
If empList.firstEntered Then
empList.setCurrentPageNumber(1)
End If
End Function
第五步：編寫顯示每一頁的腳本。
＜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()//計算翻頁所需的各種參數(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)境對象模型）法
Data Environment對象模型把ADO對象模型及它的對象----“Connection”，“Command”，“Recordset”，“Field”以及“Parameter”對象----抽象到一個更加容易的表單中。Data Environment Object Model把命令顯露為方法。用戶可以調(diào)用這些方法，這些方法會執(zhí)行這些命令并返回所得到的記錄集。關(guān)于DEOM對象模型詳細(xì)資料請參考相關(guān)書籍。我們來看下面網(wǎng)頁emp7.asp的例子：
第一步：在VI6.0的“project Explorer”窗口中的工程項目上右擊鼠標(biāo)并從彈出式菜單選擇“Add Data Connection”。根據(jù)VI給出的導(dǎo)航提示建立一個到數(shù)據(jù)庫的連接之后，用戶就添加了一個實現(xiàn)從ASP應(yīng)用程序訪問數(shù)據(jù)庫的數(shù)據(jù)命令。同時，你將會在“Project Explorer”窗口中的global.asa文件下方看到一個“Data Environment”對象。
第二步：右擊“Data Environment”對象然后從彈出式菜單中選擇“Add Data Command”選項，添加一個數(shù)據(jù)命令Command1。根據(jù)VI6.0的導(dǎo)航提示，你可以在Command1 Properties彈出窗口的Genetal頁中選SQL Statement，輸入：select * from emp。按OK返回。
第三步：你創(chuàng)建了這個數(shù)據(jù)命令后，就已經(jīng)為該Data Environment對象創(chuàng)建了一個方法，然后就可以從腳本中調(diào)用這個方法，而且該方法將會給用戶返回一個記錄集。
thisPage.createDE() //在SOM模式下，thisPage表示當(dāng)前網(wǎng)頁對象，createDE()方法創(chuàng)建了DE對象。
DE.Command1//執(zhí)行DE對象的命令，后面可代參數(shù)，做有條件查詢時很有用。
Set rs=DE.rsCommand1//DE.rscommand1使得rs對象完全等同于一個ADO的Recordset對象。
第四步：因為rs為ADO對象，所以，以下的實現(xiàn)翻頁代碼完全參照以上介紹的幾種方法，此處略過。
其它還有如FrontPage2000的數(shù)據(jù)庫導(dǎo)航中實現(xiàn)的方法等，因與本主題無關(guān)，此處略。
綜上所述，前面介紹的每種方法都包含了很多新的技術(shù)，由于篇幅的關(guān)系，無法深入。本文只是想通過實現(xiàn)翻頁這一具體的例子來介紹ASP網(wǎng)頁編程的多種方法；讓大家親身體驗一下VI6.0在編制網(wǎng)頁中的強大功能；了解和熟悉微軟在網(wǎng)頁編程中提出的ADO、DHTML、DTC控件、SOM對象模型和DEOM對象模型的使用方法；希望能給大家在編制網(wǎng)頁時提供更多的選擇和參考。
您可能感興趣的文章:- 用vbs模擬的一個asp的分頁顯示功能
- ASP Recordset 分頁顯示數(shù)據(jù)的方法(修正版)
- asp長文章用分頁符來分頁顯示
- asp.net 文章內(nèi)容分頁顯示的代碼
- asp.net 分頁顯示數(shù)據(jù)表的數(shù)據(jù)的代碼
- asp.net 通用分頁顯示輔助類(改進版)
- asp.net 文章分頁顯示實現(xiàn)代碼
- Asp 解析 XML并分頁顯示源碼
