1. Criar objeto Recordset
Dim objMyRst
Definir objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'O cliente pode processar em lotes
objMyRst.CursorType=adOpenStatic 'O tipo de cursor é do tipo estático
Nota: O objeto Recordset não pode ser criado usando a instrução strSQL Set objMyRst=Connection.Excute, porque o objeto Recordset que ele cria é adOpenFowardOnly e não oferece suporte à paginação do conjunto de registros.
2. Abrir objeto Recordset
Dim strSql
strSql = selecione * da tabela
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3. Defina a propriedade PageSize do Recordset
objMyRst.PageSize=20
O tamanho da página padrão é 10
4. Defina a propriedade AbsolutePage do Recordset
Dim intCurrentPage
intPáginaAtual=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage é 1 para o valor PageCount do objeto Recordset
5． exibir dados
Response.Write(<tabela>)
ImprimirNomeCampo(objMyRst)
Para i=1 Para objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
Se objMyRst.Eof, então saia para
Próximo
Resposta.Write(</table>)
ilustrar:
1. adOpenStatic, adUseCilentBatch, adCmdText são constantes definidas por adovbs.inc. Para usá-las, copie adovbs.inc para o diretório atual e inclua-as no programa.
<! --#Incluir arquivo=adovbs.inc-->
2. O código da função PrintFielName,PrintFieldValue é o seguinte:
<%
Função PrintFieldName(objMyRst)
'O parâmetro objMyRst é um objeto Recordset
'Definir número
Dim objFld
Resposta.Write <tr bgcolor='#CCCCCC'>
Para cada objFld em objMyRst.Fields
Response.Write <td> & objFld.Name & </td>
Próximo
Resposta.Write(</tr>)
Função final
Função PrintFieldValue(objMyRst)
'O parâmetro objMyRst é um objeto Recordset
'Definir número
Dim objFld
Resposta.Write(<tr>)
Para cada objFld em objMyRst.Fields
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
Response.Write <td> & objFld.value & </td>
Próximo
Resposta.Write(<tr>)
Função final