Accueil > > > AFFICHAGE PAR PAGE DU RÉSULTAT D'UNE REQUÊTE
 AFFICHAGE PAR PAGE DU RÉSULTAT D'UNE REQUÊTE
 Information sur la source
 Description
Lorsque que le résultat d'une requête retourne beaucoup d'enregistrements, il peut être utile de l'afficher sur plusieurs pages. Cette source le fait pour des photos. Le détails des photos (chemin, width, height, titre, description, etc) est entreposé dans une table SQL.
 Source
<!-- #include file="include/constantes.asp" -->
<html>
<head>
<title>Result</title>
</head>
<%
'---------------------------------------------------------------
'-------------------Déclaration des variables-------------------
'---------------------------------------------------------------
Dim I 'As Integer
Dim strHTLM 'As String
Dim strPage 'As String
Dim intNbrEnregis 'As Integer
Dim intPhotoAffiche 'As Integer
Dim intPhotoTotal 'As Integer
Dim boFinPhoto 'As Boolean
Dim intNbrPage 'As Integer
Dim intNbrCol 'As Integer
'---------------------------------------------------------------
'-----------Création de la connection et du recordset-----------
'---------------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DB_CONNECTION_STRING 'Définit dans le #Include File
set rs = server.CreateObject("ADODB.RECORDSET")
'---------------------------------------------------------------
'------------------Définition des Variables---------------------
'---------------------------------------------------------------
'Variables pour la pagination
intNbrEnregis = 25 'Nombre de photos par pages
intPhotoAffiche = 0 'Nombre de photos affichées sur la page en cours
intPhotoTotal = 0 'Nombre de photo au total
intNbrCol = 5 'Nombre de photos par rangée
strPage = TRIM(Request.QueryString("page")) 'la page que l'on veut afficher
IF strPage = "" THEN
strPage = 0
END IF
'Variables pour la requête
ReqSql = "SELECT * FROM Photo"
ReqSql = ReqSql & " Where Ce_que_vous_voulez"
ReqSql = ReqSql & " ORDER BY PhotoId" 'C'est important de définir un ordre immuable, surtout si vous utiliser SQL
'---------------------------------------------------------------
'-------------------Exécution de la requête---------------------
'---------------------------------------------------------------
Rs.Open ReqSql, Conn
Rs.MoveFirst
'---------------------------------------------------------------
'-------------------Affichage des résultats---------------------
'---------------------------------------------------------------
do While Not Rs.EOF
intPhotoTotal = intPhotoTotal + 1
Rs.MoveNext
Loop
Response.Write "Il y a " & intPhotoTotal & " photo(s)."
IF Rs.EOF AND Rs.BOF THEN
Response.Write "<FONT SIZE=+3 COLOR=""#357A95""><DIV ALIGN=""center"">Il n'y a de photos pour cette requête</DIV></FONT>"
ELSE
Rs.MoveFirst
Rs.Move (strPage * intNbrEnregis)
on error resume next
Do While Not Rs.EOF
For I = 1 to intNbrCol
intPhotoAffiche = intPhotoAffiche + 1
If I = 1 then 'prépare une nouvelle rangée
Response.Write "<tr>"
End If
strHTML = "<td><A HREF=""model.asp?Id=" & Rs.Fields("PhotoId") &""" alt="""" border=""0""></a></td>"
Response.Write (strHTML) 'En cliquant sur la photo, celle-ci s'agrandit selon les paramêtres recueillit dans la BD
If I = intNbrCol then 'Ferme la rangée
Response.Write "</tr>"
End If
Rs.MoveNext
If Rs.EOF then
If I <> intNbrCol then 'Ferme la rangée si le recordset est terminé mais que la rangé ne l'est pas
Response.Write "</tr>"
End If
Exit For 'Il n'y a plus de photos à afficher
End If
Next
If intPhotoAffiche = intNbrEnregis Then 'On arrête l'affichage
Exit Do
End If
Loop
END IF
%>
</table>
<br>
<font face="Arial, Helvetica, sans-serif" size="2">
<%If intPhotoTotal > intNbrEnregis Then 's'il y a plus de photos que permis sur une page
'définir le nombre de pages requises
If intPhotoTotal mod intNbrEnregis > 0 then
intNbrPage = 1
Else
intNbrPage = 0
End if
intNbrPage = IntNbrPage + (intPhotoTotal \ intNbrEnregis)
'définir le nom des pages (De quelle photos à quelle photos) ex: | 1-25 | 26-43 |
Response.Write "| "
For I = 0 to intNbrPage -1
If I <> IntNbrPage - 1 then
Response.Write "<a href=""Result_By_Page.asp?page="& I &""">" & 1 + (I * intNbrEnregis) & "-" & intNbrEnregis + (I * intNbrEnregis) & "</a>"
Else
Response.Write "<a href=""Result_By_Page.asp?page="& I &""">" & 1 + (I * intNbrEnregis) & "-" & (I * intNbrEnregis) + (intPhotoTotal - (I * intNbrEnregis)) & "</a>"
End If
Response.Write " | "
Next
End If%>
</font>
</body>
</html>
<%
Rs.Close
Conn.close
Set Rs = nothing
set Conn = nothing
%>
 Conclusion
1- DB_CONNECTION_STRING est définit dans un le #Include File. Voyez les codes sources sur ce site pour savoir comment faire.
2- Assurez vous de bien définir la clause ORDER BY sur un champ Identity si vous voulez que le résultat s'affiche toujours dans le même ordre.
3- Évitez de faire plusieurs Response.Write comme j'ai fait. Mettez-les plutôt dans une variable que vous imprimez à la toute fin de la procédure. Cela sauvera beaucoup de requête aux serveurs.
4- Visitez http://www.lesetoiles.com sous la rubrique "Galerie de photos". Vous y trouverez un exemple fonctionel.
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
|
Derniers Blogs
 IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
 GRIDVIEW CHECKBOXGRIDVIEW CHECKBOX par invent001
Cliquez pour lire la suite par invent001 OUTIL MYSQLOUTIL MYSQL par nobla
Cliquez pour lire la suite par nobla
Logiciels
 sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|