1. Создать объект набора записей
Dim objMyRst
Установите objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'Клиент может обрабатывать пакеты
objMyRst.CursorType=adOpenStatic 'Тип курсора — статический.
Примечание. Объект Recordset невозможно создать с помощью инструкции Set objMyRst=Connection.Excute strSQL, поскольку создаваемый им объект Recordset — это adOpenFowardOnly и не поддерживает разбиение по страницам набора записей.
2. Открыть объект набора записей
Дим стрскл
strSql=выбрать * из таблицы
objMyRst.Oepn strSql, ActiveConnection,,,adCmdText
3． Установите свойство PageSize Recordset.
objMyRst.PageSize=20
Размер страницы по умолчанию равен 10.
4. Установите свойство AbsolutePage Recordset.
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage имеет значение 1 для значения PageCount объекта Recordset.
5． отображать данные
Response.Write(<таблица>)
PrintFieldName(objMyRst)
Для i=1 Для objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
Если objMyRst.Eof, то выйти за
Следующий
Ответ.Запись(</таблица>)
проиллюстрировать:
1. adOpenStatic, adUseCilentBatch, adCmdText — константы, определенные adovbs.inc. Чтобы использовать их, скопируйте adovbs.inc в текущий каталог и включите их в программу.
<! --#Include File=adovbs.inc-->
2. Код функции PrintFielName, PrintFieldValue выглядит следующим образом:
<%
Функция PrintFieldName(objMyRst)
'Параметр objMyRst является объектом Recordset
'Определить номер
Тусклый объект objFld
Response.Write <tr bgcolor='#CCCCCC'>
Для каждого objFld в objMyRst.Fields
Response.Write <td> & objFld.Name & </td>
Следующий
Ответ.Запись(</tr>)
Конечная функция
Функция PrintFieldValue(objMyRst)
'Параметр objMyRst является объектом Recordset
'Определить номер
Тусклый объект objFld
Ответ.Запись(<tr>)
Для каждого objFld в objMyRst.Fields
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
Response.Write <td> & objFld.value & </td>
Следующий
Ответ.Запись(<tr>)
Конечная функция