最近給別人培訓asp 分頁，對於asp的入門新手來說，最簡單的分頁就是用Recordset 分頁技術了，他主要用於一些少量數據的分頁，對於新手學習是最好的了，對於大量數據分頁不建議用。
1．建立Recordset對象
複製程式碼程式
碼如下:Dim objMyRst
Set objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch '客戶端可批次處理
objMyRst.CursorType=adOpenStatic'光標為靜態類型
.Excute strSQL的語句建立，因為其建立的Recordset物件為adOpenFowardOnly不支援記錄集分頁
2．開啟Recordset物件
複製程式碼如下:
Dim strSql
strSql=select * from ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3．設定Recordset的PageSize屬性
複製程式碼如下:
objMyRst.PageSize=20
預設的PageSize為10
4．設定Recordset的AbsolutePage屬性
以下為引用的內容：
複製程式碼如下:
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage為1到Recordset物件的PageCount值
5．顯示資料
複製程式碼如下:
Response.Write(<table>)
PrintFieldName(objMyRst)
For
i=1 To objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
If objMyRst.Eof Then Exit Forext
Response> )
說明：
1. adOpenStatic,adUseCilentBatch,adCmdText為adovbs.inc定義的常數，要使用的話要把adovbs.inc拷到目前目錄中並包含在程式中
複製程式碼程式碼如下:
<！ --#Include File=adovbs.inc-->
2. PrintFielName,PrintFieldValue函數的程式碼如下：
複製程式碼如下:
<%
Function PrintFieldName(objMyRst)
'參數objMyRst是Recordset物件
'定義孌數
Dim objFld
Response.Write < tr bgcolor='#CCCCCC'>
For Each objFld In objMyRst.Fields
Response.Write <td> & objFld.Name & </td>
Next
Response.Write(</tr>)
End Function
Function PrintFieldValue(objMyRst)
'參數objMyRst是Recordset物件
'定義孌數
Dim objld
Response. (<tr >)
For Each objFld In objMyRst.Fields
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
Response.Write <td> & objFld.value & </td>
Next
Response.Write(<tr>)
End Function
%>