Comment appliquer la pagination dans ASP

Également dans ASP, il est possible d'appliquer le pagination d'enregistrements à la fois pour éviter temps de chargement élevés et aussi parce qu'un page avec trop d'enregistrements ce serait trop long à consulter.

Par pagination on entend une division des enregistrements produits par une même requête mais répartis sur plusieurs pages, où en réalité la page est toujours la même, seuls les résultats changent selon le choix du numéro de page parcourue.

Comment appliquer la pagination dans ASP

Voyons en résumé notre page Asp :

<% Dim DBConn,strconn
définir dbconn=server.createobject(“ADODB.connection”)

strconn=”Fournisseur = Microsoft.Jet.OLEDB.4.0; Source de données = » & Server.MapPath (« données/utenti.mdb »)

dbconn.open strconn

ObjRS faible

Définir objRS = Server.CreateObject ("ADODB.Recordset")

RecordsPerPagina = 5' NOMBRE D'ENREGISTREMENTS A AFFICHER POUR CHAQUE PAGE

page = Demande ("page")

si page="" alors page=1

strSQL = « SELECT * FROM sorgenti ordre par nomesorgente ; »

objRS.open strSQL, DBConn, 1

objRS.PageSize = RecordsPerPagina

objRS.AbsolutePage = page

Si objRS.Eof=True ou objRS.Bof=True alors

Réponse.Ecrire " Aucun résultat trouvé "

autre

Response.Write (“ Nome Linguaggio Autore ”)

Pour i=1 à RecordsPerPagina

si non objRS.EOF alors

Réponse.Écrire(“ ” & objRS(“nomesorgente”) & “ ”)

Réponse.Écrire(“ ” & objRS(“linguaggio”) & “ ”)

Réponse.Écrire(“ ” & objRS(“pseudo”) & “ ”)

objRS.MoveNext

fin si

Suivant

Response.Write (“ ”)

fin si

Réponse.Écrire " Pagine : "

Pour pag=1 à objRS.PageCount

Réponse.Ecrivez " "

Response.Write pag

Réponse.Ecrivez " "

Suivant

Réponse.Écrire " "

objRS.Fermer

Définir objRS=Rien

DBConn.Fermer

Définir DBConn=Rien

%>

Dites-moi si cela marche pour vous.