Bonjour le forum,
J'ai actuellement du code de pagination qui me permet de naviguer entre mes différentes pages.
Je peux donc aller d'une page à l'autre.
Par facilitée, j'aurais aimé avoir la possibilité d'aller à la première page et à la dernière page.
J'aurais aussi voulu faire 1-2-3-4-5 (pour 5 pages) et pouvoir aller directement à la page 4 quand je suis par exemple à la page 2.
Voici le code que j'utilise pour la pagination, il fonctionne très bien mais pourraît être améliorer :
La première partie du code :
La seconde partie du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Select Case Request.QueryString("Direction") Case "" Session("CurrentPage") = 1 Case "Next" Session("CurrentPage") = Session("CurrentPage") + 1 Case "Prev" Session("CurrentPage") = Session("CurrentPage") - 1 End Select
La troisième partie du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 dim nbrepage rst.PageSize = 30 rst.AbsolutePage = CLng(Session("CurrentPage")) nbrepage = rst.pagecount
Vous pensez que c'est possible de faire cela à partir de ce code ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 <%If CLng(Session("CurrentPage")) > 1 Then %> <a href="page.asp?Direction=Prev"><img src="gauche.jpg" alt="Page précédente" width="29" height="26" border="0" /> <% End If %> </a> <%If CLng(Session("CurrentPage")) < rst.Pagecount Then %> <a href="page.asp?Direction=Next"><img src="droite.jpg" alt="Page suivante" width="29" height="26" border="0" /></a><a href="page.asp?Direction=Next"> <% End If %>
Merci d'avance pour votre aide.
bgs
Partager