分頁|顯示|分頁 在微軟的ASP編程體系中，ADO對象的建立，使得從網頁訪問資料庫成為一件易事，特別是ADO的Recordset對象使得控制資料的輸出顯示更為方便、自由。而在Visual InterDev6.0(以下簡稱VI6.0)中，由於Script Object Model（以下簡稱SOM）、Design-Time Control(以下簡稱DTC)以及Data Environment Object Model(以下簡稱DEOM)等物件模型的引入，使網頁對資料庫的訪問設計顯得更為方便。
因為主題方面的原因，關於資料庫的串連，下文只給出代碼和簡要注釋，而把重點放在如何利用Recordset對象（或控制項）實現資料記錄的分頁顯示方面。根據我的理解，分頁顯示的關鍵就在於對ADO的Recordset對象或DTC（設計階段控制項 (DTC)）的Recordset控制項的屬性和方法的熟練把握上。
這七種分頁顯示的武器概括起來說分四類：
第一、二種我暫取名叫“純ASP法”，這也是國內的ASP網站上用得最多的方法，它們的區別僅在實現技巧的不同。這兩種方法的實現最易理解，用到的對象概念也最少，對開發環境的要求也最低（只要記事本就行）。可以說，這兩種方法的實質還是CGI的編程思想，只是在程式中引入了ADO對象而已。
第四、五種暫取名叫“SOM的DHTML法”。這兩種方法要求在VI6.0的環境下，利用微軟提出的指令碼物件模型（Script Object Model）和DHTML中Table對象的與資料庫綁定的新特性（許多書和文章只介紹了DHTML的CSS特性在樣式設計中的運用而忽略介紹其資料繫結特性），實現在用戶端控制翻頁。但它要求使用者的瀏覽器必須是支援DHTML，如：Microsoft Internet Explorer 4.0及以上的版本。
第六種暫取名叫“SOM伺服器端法”。要求在VI6.0的環境下開發，它利用微軟提出的指令碼物件模型（Script Object Model）中的幾個DTC控制項：Recordset、PageObject、Grid等在伺服器端(用戶端)實現翻頁控制。這是一種激動人心的、全新的編程方法，它把網頁看成對象(這種物件模型和傳統的DOM----document object model是有區別的：DOM只能控制用戶端，而SOM可控制伺服器端和用戶端)，它真正實現了網頁的物件導向編程。但遺憾的是，也許是我個人能力有限，這種技術我個人認為還不是很成熟，比如，與瀏覽器的結合還不是很好，這將在後文詳細說明。
第七種暫取名叫“DEOM法”。它也是利用了VI6.0中建立的資料環境物件模型（Data Environment Object Model）建立Recordset對象。這也是在網頁編程上比較少見的新方法，與SOM模型相比，自有它的優點，這將在後文詳述。
在後面所舉的所有例子原始碼，都可以直接拷貝使用，你甚至可以不懂其原理，只要把其中的粗斜體字部分換成相應自己的資料庫名或欄位名就可以了。
在開始詳細介紹各種分頁方法前，讓我們先建立一個資料庫：用Office97中的access自創一個Employee.mdb，其中建一個表emp，只設三個欄位：emp ID，last name和first name。為什麼這麼簡單，是因為我們關心的是怎樣處理recordset的結果。
第一種：參數直接代入法
這種方法是用手工建立Recordset對象，利用其pagesize（每頁指定顯示記錄數），pagecount（總頁碼數）和absolutepage（當前頁碼數）屬性來控制分頁的輸出。分頁採用＜href＞直接帶頁碼參數的方法來控制翻頁。網頁的名字為emp1.asp。原始碼如下：
＜%//建立與employee.mdb資料庫的串連。
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屬性指定了每頁要顯示的記錄條數
Page = CLng(Request("Page")) ’string型轉化為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＞"
//迴圈顯示每條記錄
rs.AbsolutePage = Page //把頁碼賦給absolutepage屬性從而知當前頁的首條記錄號
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＞"%＞
第二種：表單傳送參數法
這種方法在建立Recordset對象時與第一種相同，只是在翻頁控制時，採用＜input＞和case語句配合來實現翻頁。網頁的名字為:emp2.asp。此方法在編程邏輯上有個缺點：就是在按過“上頁”或“下頁”鈕後，再在瀏覽器上按重新整理按鈕時，會自動翻頁。原始碼如下：
if Pagenum = "" Then Pagenum = 1 //從第一頁開始顯示
//建立資料庫連接和Recordset對象執行個體rs。
與第一種方法相同，此處略過。
RS.Pagesize = 10 ’ 設定一頁中顯示的記錄條數為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")) //確定當前頁的第一條記錄號
// 顯示當前頁
同第一種方法，此處略過。
// Nav 翻頁按鈕設定
＜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控制項設計分頁
所有的方法中，這種方法最容易。你只需拖DTC中的Recordset控制項和Grid控制項到asp網頁中就行了。而且，你還能選擇是在伺服器平台還是在用戶端平台控制翻頁。缺點就是你必須用它給定的格式顯示，而不能自己自由控製表格的顯示格式。
方法如下：
在VI6.0中建一個工程emp.vip。再在工程中添加一個asp網頁：emp3.asp。
第一步：選VI6.0菜單條上的“add data connect…”，按開發工具的導航提示，你就可以很容易地建立與Employee.mdb資料庫的串連。從DTC工具列中拖一個Recordset控制項到網頁中，並設定其屬性。具體如圖：
當你拖控制項到網頁中時，VI6.0會自動提示你“是否使用Scripting object model”，按yes。
第三步：從DTC工具列中拖一個Grid控制項到網頁中，然後單擊滑鼠右鍵，設定其屬性，如：選在第二步中建立的Recordset控制項名，選擇em
