Discussion :

[beegees]

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 :

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 seconde 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

La troisième partie du 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&eacute;c&eacute;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 %>

Vous pensez que c'est possible de faire cela à partir de ce code ?

Merci d'avance pour votre aide.

bgs

[amar00]

recupérer via http le numéro de page voulu en reprenant ta façon de faire(variable de session) ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim numPage : numPage  = Request("numPage ")
if numPage  <>"" then
    Session("CurrentPage") = Cint(numPage)
else 
     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
End if

Puis plus bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<%If CLng(Session("CurrentPage")) > 1 Then %> 
         <a href="page.asp?Direction=Prev"><img src="gauche.jpg" alt="Page pr&eacute;c&eacute;dente" width="29" height="26" border="0" /> 
         <% End If %> 
       </a> 
        <% dim j
               FOR j=1 to nbrepage %>
                  <a href="page.asp?numPage=<%=j%>"><%=j%><%
                  <%if j<>nbrepage then Response.write("&nbsp;-&nbsp;")
                  %></a>
               <%NEXT
          %>     
         <%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 %>

[beegees]

Bonjour amar00,

Merci pour ton aide.

J'ai appliqué ce que tu as écris mais j'ai quelque soucis.

Voici la première partie de mon code (avec tes rectifications) :

<%

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
dim numPage : numPage  = Request("numPage ")
if numPage  <>"" then
    Session("CurrentPage") = Cint(numPage)
else 
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

et la seconde partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<%If CLng(Session("CurrentPage")) > 1 Then %>
         <a href="page.asp?Direction=Prev"><img src="gauche.jpg" alt="Page pr&eacute;c&eacute;dente" width="29" height="26" border="0" />
         <% End If %>
 
		 <% dim j
               FOR j=1 to nbrepage %>
                  <a href="page.asp?numPage=<%=j%>"><%=j%><%
                  <%if j<>nbrepage then Response.write("&nbsp;-&nbsp;")
                  %></a>
               <%NEXT
          %>  
 
<%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 %>

J'obtiens ce message d'erreur :

Erreur de compilation Microsoft VBScript erreur '800a0400'

Instruction attendue

/serveur/page.asp, ligne 104

<%if j<>nbrepage then Response.write("&nbsp;-&nbsp;")

La ligne 103 et 104 correspondent à ceci :

'103

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<a href="page.asp?numPage=<%=j%>"><%=j%><%

'104

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 <% if j<>nbrepage then Response.write("&nbsp;-&nbsp;")

Je présûme que c'est un <% de trop.

Quand je l'envlève, j'ai ce message d'erreur :

Erreur de compilation Microsoft VBScript erreur '800a03f6'

'End' attendu

/serveur/page.asp, ligne 170

La ligne 170 correspond à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set cnn = Nothing

Ce message d'erreur est moin "parlant", qu'en penses-tu ?

Merci encore pour ton aide.

bgs

[amar00]

c'est bien un <% de trop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<%If CLng(Session("CurrentPage")) > 1 Then %> 
         <a href="page.asp?Direction=Prev"><img src="gauche.jpg" alt="Page pr&eacute;c&eacute;dente" width="29" height="26" border="0" /> 
         <% End If %> 
       </a> 
        <% dim j 
               FOR j=1 to nbrepage %> 
                  <a href="page.asp?numPage=<%=j%>"><%=j%><% 
                  if j<>nbrepage then Response.write("&nbsp;-&nbsp;") 
                  %></a> 
               <%NEXT 
          %>      
         <%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 %>

[beegees]

Resalut,

Le problème est qu'en corrigeant le <%, le message d'erreur

End attendu

reste (voir message précédent stp).


Qu'en penses-tu ?

Merci
bgs

[amar00]

<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="page.asp?Direction=Prev"><img src="gauche.jpg" alt="Page pr&eacute;c&eacute;dente" width="29" height="26" border="0" />
<% End If %>
</a>
<% dim j
FOR j=1 to nbrepage %>
<a href="page.asp?numPage=<%=j%>"><%=j%><%
if j<>nbrepage then
Response.write("&nbsp;-&nbsp;")
end if
%></a>
<%NEXT
%>
<%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 %>

[beegees]

Il manquait un end if au début.

Maintenant je vois 1 2 3 4 5 avec les tirets.

Par contre quand je clique sur un des numéros, rien ne change excepté l'adresse :

http://IP/Serveur/page.asp?numPage=3

mais ça reste avec les valeurs de la première page.

Tu crois qu'on peut arrangé cela ?

Merci pour ton aide.

bgs

[amar00]

il faut bien vérifier que tu fais
Session("CurrentPage") = Request("numPage")
avant d'écrire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rst.AbsolutePage = CLng(Session("CurrentPage"))

[beegees]

Resalut,

Il me semble avoir fait comme tu as dit mais c'est toujours pareil.

Voici le code complet (du début) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<% 
'Ce code permet de naviguer entre les différentes pages de consultation.
dim numPage : numPage  = Request("numPage ")
if numPage  <>"" then
    Session("CurrentPage") = Cint(numPage)
else 
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 
End if
 
dim cnn 
dim nbrepage
Set cnn = Server.CreateObject("ADODB.Connection") 
cnn.Open "delibes" 
Dim strSQL 
strSQL = strSQL & "SELECT * FROM [BA1]" 
Set rst = Server.CreateObject("ADODB.Recordset")
rst.PageSize = 30 
rst.Open strSQL, cnn, 3, 3 
rst.AbsolutePage = CLng(Session("CurrentPage")) 
nbrepage = rst.pagecount
%>

Merci pour tout.

[amar00]

il y a un espace en trop
remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Request("numPage ")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Request("numPage")

[beegees]

En plein dans le mille

Je suis super étonné qu'un simple espace peut perturbé le tout

Sache que sans toi je n'y serais sans doute pas arriver.

Je te remercie mille fois et je te souhaîte un bon Week-end.

bgs