problem pagination overflow

**debutantasp** · 27/11/2007, 03h27

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
<%
Nmax = 10 ' nombre par page
Ndeb = Cint(request.queryString("num"))
 
' nombre total de fiches
SQL="SELECT count(*) FROM [fichiers]"
RS2 = conn.execute(SQL)
Ntotal = RS2(0) - 1 ' commence à 0
 
' sélectionne les fiches de la table
Set RS = server.createobject("ADODB.Recordset")
SQL="SELECT TOP " & (Ndeb+Nmax)_
& " * FROM [fichiers]"
RS.Open SQL,Conn , 3, 3
 
' Avance à la 1ère
RS.Move(Ndeb)
' tant qu'il reste des fiches
while not RS.eof
' affiche le champ
response.write RS("cat_titre") & "<br>"
' fiche suivante
RS.MOVENEXT
wend%>
 
<br>
 
<table cellpadding=3><tr>
<% ' NAVIGATION
' Des fiches avant ?
if Ndeb > 0 then%>
<td>
<A href="?num=0">Début</A>
<A href="?num=<%=Ndeb-Nmax%>">Retour</A>
</td>
<%end if%>
<td>
<% ' Page courante
Npag = int(Ndeb/Nmax)+1 : Npag2 = Npag-1
tmp = "<b>" & Npag & "</b>"
' Max 9 pages avant
while Npag2>0 AND Npag2>Npag-10
tmp = "<A href='?num=" & ((Npag2-1)*Nmax)_
& "'>" & Npag2 & "</A> " & tmp
Npag2 = Npag2-1
wend
' Max 9 pages après
Npag2 = Npag
while Npag2*Nmax<=Ntotal AND Npag2<Npag+9
Npag2 = Npag2+1
tmp = tmp & " <A href='?num=" & ((Npag2-1)*Nmax)_
& "'>" & Npag2 & "</A>"
wend
response.write tmp
%>
</td>
<% ' Des fiches après ?
if Ntotal>Ndeb+Nmax then%>
<td>
<A href="?num=<%=Ndeb+Nmax%>">Suite</A>
<A href="?num=<%=int(Ntotal/10)*10%>">Fin</A>
 
</td>
<%end if
 
RS.close : set RS=nothing%>
</tr></table>
 
</BODY></HTML>
<% conn.close : Set conn=nothing %>

Bonjour
j'ai fait ce code et il m'as donné comme erreur "overflow"
normalement il doit afficher juste 10 enregistrements mais il affcihe tout et lorsque je click sur page 2 3 ou bien suite il me donne cette erreur.
Merci

**debutantasp** · 27/11/2007, 18h16

Coucou, personne a me repondre ?

**Immobilis** · 27/11/2007, 22h33

Salut,

Tu devrais refaire une recherche sur la pagination sur le forum ou google car la methode que tu emplois n'est pas la bonne.
Il y a en effet des propriétés et methodes specifiques pour gérer ce besoin.

A+

**TekP@f** · 27/11/2007, 22h51

Salut,

T'as sorti l'artillerie lourde pour pas grand chose ...

http://msdn2.microsoft.com/fr-fr/library/bb469836.aspx

**Immobilis** · 27/11/2007, 22h59

J'ai pas trouvé la partie 2...
Par contre voici un script que tu peux copier coller:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
 
<body>
<%
Dim strSQL
 
Const adOpenKeyset = 1
 
Set objConnection = Server.CreateObject("ADODB.Connection")
OBJConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\<CHEMIN>\<MABASE>.mdb;Persist Security Info=False"
 
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.PageSize = 20
objRecordset.Open "SELECT * FROM MATABLE", 1, 3
 
dim i, PageNum
i = 0
 
IF request.QueryString("PageNum") <> "" THEN
	IF objRecordset.AbsolutePage <= objRecordset.pagecount THEN
		objRecordset.AbsolutePage = request.QueryString("PageNum")
		PageNum = request.QueryString("PageNum")
	END IF
ELSE
	PageNum = 1
END IF
 
IF NOT objRecordset.EOF AND NOT objRecordset.BOF THEN
	while not objRecordset.EOF AND i<= objRecordset.PageSize
		response.Write(objRecordset("Client_Name") & "&nbsp;" & objRecordset("Client_Code") &"<br>")
		i=i+1
		objRecordset.MoveNext
	wend
ELSE
	response.Write("Pas d'enregistrements")
END IF
response.Write("You are page " & PageNum & " of " & objRecordset.Pagecount & "<br>")
If cint(PageNum) > 1 Then
	response.Write("<a href='Untitled-2.asp?Direction=Prev&PageNum=" & PageNum - 1 & "'>Enregistrements précédents</a>&nbsp;")
End If
If cint(PageNum) < objRecordset.Pagecount Then
	response.Write("<a href='Untitled-2.asp?Direction=Next&PageNum=" & PageNum + 1 & "'>Enregistrements suivants</a>")
End If
 
objRecordset.Close
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
%> 
</body>
</html>

A+

**debutantasp** · 28/11/2007, 22h42

Merci Immobilis pour le code, ca marche tres bien j'ai meme ajouté qlq trucs comme fin debut et je les ai affichés en meme temps comme ca :
Début Présédent page 2 de 5 Suivant Fin
je veux ajouter une class a ces liens mais je ne sais pas ou je la mettre et est ce qu'on peut modifier ce code pour afficher tout les pages par exemple pages <lien>1</lien><lien>2</lien>... et en cliquant sur un numero on pas a la page correspendante. Je vais essayer de le faire aussi.
Merci

problem pagination overflow

ASP

Vue hybride

Discussions similaires

Partager

Partager