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