Ce code permet de mettre en page vos résultats à partir d'une base de données Access, de façon à les afficher 10 par 10 ou 20 par 20 ... avec un lien suivant et précédent.
Ce script est facilement adaptable, et conviendra parfaitement aux débutants.
Source / Exemple :
<html>
<head>
<title>Pagination par SuperYan.</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
'********************************************************************************
'* Pagination par SuperYan. | Site : www.superyan.com | E-mail : yan@superyan.com
'*
'* Récupération de la variable "page". C'est la variable que l'internaute
'* envoie (méthode GET) lorsqu'il clique sur le lien "suite" ou "retour".
'********************************************************************************
page=trim(request.querystring("page"))
if page="" then page="0"
'******************************************************************************
'* La variable nombre_enregistrements détermine le nombre de données à afficher
'******************************************************************************
nombre_enregistrements=5
'********************************************
'* Connexion à la base de données en DSN Less
'********************************************
set cnx=server.createobject("adodb.connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/votre_base_access.mdb"
cnx.open connstring
'*************************************
'* Création et exécution de la requête
'*************************************
req_sql="SELECT * FROM ma_table"
set rs=cnx.execute(req_sql)
rs.move (page)
'************************************************************
'* Boucle qui va afficher tous les champs spécifié de la base
'************************************************************
for i = 1 to nombre_enregistrements
%>
Enregistrement n° : <%=rs("champ_num")%>
<br>
Nom : <%=rs("champ_nom")%>
<br><br>
<%
rs.movenext
if rs.eof then
stopici="stopici"
exit for
end if
next
'**********************
'* Fermeture de la base
'**********************
rs.close
set rs = nothing
cnx.close
set cnx = nothing
'*****************************************************************
'* La suite du code affiche ou grise les liens "suite" ou "retour"
'*****************************************************************
%>
<br>
<br>
<font face="Arial, Helvetica, sans-serif" size="2">
<%if page <> "0" then %>
<a href="pagination.asp?page=<%=page-nombre_enregistrements%>">retour</a>
<%
else
%>
<font color="#999999">retour</font>
<%
end if
if stopici <> "stopici" then
%>
| <a href="pagination.asp?page=<%=page+nombre_enregistrements%>">suite</a>
<%
else
%>
| <font color="#999999">suite</font>
<%
end if
%>
</font>
</body>
</html>
Conclusion :
Voila, voila, il ne vous reste plus qu'à "enjoliver" et adapter cet exemple à vos pages :-)
Bonne programmation,
SuperYan.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.