Recommandé: Parse ASP Instance: Slide News Code Ce qui suit est le contenu référencé :!
1. Créer un objet RecordSet
| Ce qui suit est le contenu cité: Objmyrst sombre Définir objmyrst = server.createObject (adodb.recordSet) objmyrst.cursorlocation = aduseclientbatch 'Le client peut être traité par lots objmyrst.cursortype = adoptenstatic 'Le type de curseur est statique |
Remarque: l'objet RecordSet ne peut pas être créé à l'aide de l'instruction de SET objmyrST = Connection.Excute STRSQL, car l'objet RecordSet qu'il a créé est adoptéfowardly ne prend pas en charge la pagination des enregistrements d'enregistrements.
2. Ouvrez l'objet RecordSet
| Ce qui suit est le contenu cité: STRSQL DIM strSql = select * à partir de l'IETable objmyrst.oepn strSql, activeConnection ,, adcmdText 3. Définissez la propriété PageSize de Recordset objmyrst.pagesize = 20 La pages de pages par défaut est 10 |
3. Définissez la propriété Absolutepage de Recordset
| Ce qui suit est le contenu cité: Dim intcurrentpage intcurrentPage = 1 objmyrst.absolupage = intcurrentPage Absolutepage est 1 à la valeur de PageCount de l'objet de coffre |
4. Afficher les données
| Ce qui suit est le contenu cité: Réponse.write (<ball>) PrintfieldName (objmyrst) Pour i = 1 à objmyrst.pagesize PrintFieldValue (objmyrst) objmyrst.movènext Si objmyrst.eof alors sortez pour Suivant Réponse.write (</plow>) |
illustrer:
1. Si vous souhaitez l'utiliser, copiez ADOVBS.inc au répertoire actuel et incluez-le dans le programme.
| Ce qui suit est le contenu cité: <! - # inclure file = ADOVBS.inc -> 2. Le code de PrintFielName et PrintFieldValue est le suivant: <% Fonction printfieldName (objmyrst) 'Le paramètre Objmyrst est un objet de coffre-fort 'Définir le décompte DIM OBJFLD Réponse.write <tr bgcolor = '# cccccc'> Pour chaque objfld dans objmyrst. champs Réponse.write <td> & objfld.name & </td> Suivant Réponse.write (</tr>) Fonction finale Fonction PrintFieldValue (objmyrst) 'Le paramètre Objmyrst est un objet de coffre-fort 'Définir le décompte DIM OBJFLD Response.Write (<Tr>) Pour chaque objfld dans objmyrst. champs 'Response.Write <Td> & objmyrst.fields (intloop) .value & </td> Réponse.write <td> & objfld.value & </td> Suivant Response.Write (<Tr>) Fonction finale %> |
Partager: Interprétez le code de la requête de mots multi-clés Dans le développement Web, je rencontre souvent plusieurs paires de mots clés de requêtes à champ unique, que j'implémente habituellement via des tableaux dynamiques. Bien sûr, plusieurs mots clés sont généralement séparés par des espaces ou. Je suppose que plusieurs mots clés sont séparés par des espaces, la chaîne de mots clés est KeySTR et le code spécifique est