FAIRE UN PAGING COMME SUR ASPFR.COM ET VBFRANCE.COM

Signaler
-
Messages postés
1
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
21 octobre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8646-faire-un-paging-comme-sur-aspfr-com-et-vbfrance-com

Messages postés
1
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
21 octobre 2008

(l 26) : CompteurDebut = NumPageEnCours - 9 et non CompteurDebut = PageEnCours - 9
Messages postés
436
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
2 février 2010
2
monRecordset.PageSize = Le nombre de pages qu'on veux
monRecordset.CacheSize = Le nombre de pages qu'on veux
monRecordSet.PageCount retourne le nombre de pages qu'il ya / à monRecordSet.pagesize.

exemple :
NbEnrPages = 12
monRecordset.pagesize = nbEnrPages
monRecordset.Cachesize = nbEnrPages
'---------------------------------------------
S'il ya 40 enregistrements -->
Dim TotalPages
TotalPages = MonRecordset.pageCount
TotalPages sera = 4...

'---------------------------------------------
'Pour connaitre le numéro de page sur lequel on est :
Dim ActualPage.
If ActualPage "" then ActualPage 1
on peut dire :
'----------------------

If ActualPage > TotalPages Then ActualPage = TotalPages
If ActualPage < 1 Then ActualPage = 1
If TotalPages = 0 Then
Response.Write "<center>Il n'y as pas de réponse à votre requette</center>"
Else
monRecordset.AbsolutePage = ActualPage
'Le code qui affiche la page...
End If

'----------------------
If ActualPage > 1 Then
%>
[mapage.asp?page=<%= ActualPage - 1 %>&MesAutresParametres... [<< Précédent]]
<%
End If
Dim I
For I = 1 To TotalPages
If I = ActualPage Then
Response.Write I
Else
%>
[mapage.asp?page=<%= I %>&MesAutresParametres... <%= I %>]
<%
End If
Next 'I

If ActualPage < TotalPages Then
%>
[mapage.asp?page=<%= ActualPage + 1 %>&MesAutresParametres... [Suivant >>]]
<%
End If
'----------------------
Messages postés
141
Date d'inscription
lundi 24 décembre 2001
Statut
Membre
Dernière intervention
5 juillet 2007

j'utilise le paging de Vbfrance et aspfr

j'ai un probleme : voici le message d'erreur :
"L'opération demandée par l'application n'est pas prise en charge par le fournisseur. "

La ligne ou ca bug est en rouge..
de koi ca peut venir ? merci !

voici mon script :

<%@ LANGUAGE="VBSCRIPT"%>
<html>
<head>
</head>



<!--#include file="adovbs.inc"-->
<%
Dim NumPageEnCours
Dim TaillePage
Dim MaxPages
Dim MaxEnrgs
Dim CombienDeRecs
Dim MonObjRS

NumPageEnCours = Request("quelpage")
If NumPageEnCours "" Then NumPageEnCours 1
TaillePage = Request("taillepage")
If TaillePage "" Then TaillePage 16


'ouverture d'une connexion avec la base

set baselink=server.createobject("ADODB.connection")
baselink.open "Favorisodbc", "", ""

'creation de l'instruction sql

varsql= "SELECT * FROM adresse WHERE NumDom= " & request.querystring("dom")
varsql=varsql &" ORDER BY DateS DESC"

'creation du jeu d'enregistrement
set MonRecordadr=server.createobject("ADODB.recordset")
MonRecordadr.open varsql, baselink

MonRecordadr.pagesize = TaillePage
MaxPages = CInt(MonRecordadr.pagecount)
MaxEnrgs = CInt(MonRecordadr.pagesize)
[red]If Not MonRecordadr.EOF Then MonRecordadr.absolutepage = NumPageEnCours/red
CombienDeRecs = 0
%>

suite du scipt....[...]
Bon voila le truc :
il faut mettre :
If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = NumPageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If


Au lieu de


If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = PageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If
Afficher les 10 commentaires