1. Créer un objet Recordset
Dim objMyRst
Définir objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'Le client peut traiter par lots
objMyRst.CursorType=adOpenStatic 'Le type de curseur est de type statique
Remarque : L'objet Recordset ne peut pas être créé à l'aide de l'instruction Set objMyRst=Connection.Excute strSQL, car l'objet Recordset qu'il crée est adOpenFowardOnly et ne prend pas en charge la pagination des jeux d'enregistrements.
2. Ouvrir l'objet Recordset
Dim strSql
strSql=sélectionner * depuis ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3. Définir la propriété PageSize de Recordset
objMyRst.PageSize=20
La taille de page par défaut est 10
4. Définir la propriété AbsolutePage de Recordset
Dim intPageActuelle
intCurrentPage = 1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage vaut 1 pour la valeur PageCount de l'objet Recordset
5. afficher les données
Réponse.Write(<table>)
Nom du champ d'impression (objMyRst)
Pour i=1 À objMyRst.PageSize
PrintFieldValue (objMyRst)
objMyRst.MoveNext
Si objMyRst.Eof alors quittez pour
Suivant
Réponse.Write(</table>)
illustrer:
1. adOpenStatic, adUseCilentBatch, adCmdText sont des constantes définies par adovbs.inc Pour les utiliser, copiez adovbs.inc dans le répertoire actuel et incluez-les dans le programme.
<! --#Include File=adovbs.inc-->
2. Le code de la fonction PrintFielName,PrintFieldValue est le suivant :
<%
Fonction PrintFieldName (objMyRst)
'Le paramètre objMyRst est un objet Recordset
'Définir le numéro
Dim objFld
Réponse.Write <tr bgcolor='#CCCCCC'>
Pour chaque objFld dans objMyRst.Fields
Réponse.Write <td> & objFld.Name & </td>
Suivant
Réponse.Write(</tr>)
Fonction de fin
Fonction PrintFieldValue(objMyRst)
'Le paramètre objMyRst est un objet Recordset
'Définir le numéro
Dim objFld
Réponse.Write(<tr>)
Pour chaque objFld dans objMyRst.Fields
'Réponse.Write <td> & objMyRst.Fields(intLoop).value & </td>
Réponse.Write <td> & objFld.value & </td>
Suivant
Réponse.Write(<tr>)
Fonction de fin