1. Crear objeto conjunto de registros
objMyRst tenue
Establecer objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'El cliente puede procesar en lotes
objMyRst.CursorType=adOpenStatic 'El tipo de cursor es estático
Nota: El objeto Recordset no se puede crear utilizando la instrucción set objMyRst=Connection.Excute strSQL, porque el objeto Recordset que crea es adOpenFowardOnly y no admite la paginación de conjuntos de registros.
2. Abrir objeto conjunto de registros
Dim strSql
strSql=seleccionar * de ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3. Establecer la propiedad PageSize de Recordset
objMyRst.PageSize=20
El tamaño de página predeterminado es 10
4. Establecer la propiedad AbsolutePage de Recordset
Dim intCurrentPage
intPáginaActual=1
objMyRst.AbsolutePage=intPáginaCurrent
AbsolutePage es 1 para el valor PageCount del objeto Recordset
5. mostrar datos
Respuesta.Escribir(<tabla>)
Imprimir nombre de campo (objMyRst)
Para i=1 a objMyRst.PageSize
ImprimirValorCampo(objMiPrimero)
objMyRst.MoveNext
Si objMyRst.Eof entonces salga por
Próximo
Respuesta.Escribir(</table>)
ilustrar:
1. adOpenStatic, adUseCilentBatch, adCmdText son constantes definidas por adovbs.inc. Para usarlas, copie adovbs.inc al directorio actual e inclúyalas en el programa.
<! --#Incluir archivo=adovbs.inc-->
2. El código de la función PrintFielName,PrintFieldValue es el siguiente:
<%
Función PrintFieldName(objMyRst)
'El parámetro objMyRst es un objeto Recordset
'Definir numero
campo obj oscuro
Respuesta.Escribir <tr bgcolor='#CCCCCC'>
Para cada objFld en objMyRst.Fields
Respuesta.Escribir <td> & objFld.Name & </td>
Próximo
Respuesta.Escribir(</tr>)
Función final
Función PrintFieldValue(objMyRst)
'El parámetro objMyRst es un objeto Recordset
'Definir numero
campo obj oscuro
Respuesta.Escribir(<tr>)
Para cada objFld en objMyRst.Fields
'Respuesta.Escribir <td> & objMyRst.Fields(intLoop).valor & </td>
Respuesta.Escribir <td> & objFld.value & </td>
Próximo
Respuesta.Escribir(<tr>)
Función final