|
|
Vous êtes ici : Forums > Langage PHP > Pagination style google
Pagination style google
Bonjour a tous,
J'ai un script de pagination qui fonctionne tres bien mais le probleme c'est que j'ai bcp d'enregistrement dans ma table il q'uils m'affiche tout les numeros de page (exemple page 1 sur 650 avec mes 650 numeros de pages affiches).
Je voudrais modifier mon code pour quil affiche que les 20 premieres pages et ensuite un bouton suivant qui m'affiche les 20 suivantes.
Si qq pourrais m'aider ce serais tres gentil. :(
merci d'avance
Voici mon code :
<%
Dim conn
Dim Ref
Dim rs_temp
Dim NbElementParPage
Dim Page
Dim SQL
'---- Définition du nombre d'éléments par page
NbElementParPage=20
if not rs_temp.eof then '--- Il y a des éléments dans la table
'--- On initialise le nombre d'éléments par page
rs_temp.Pagesize=NbElementParPage
'---- Traitement de la variable page
if request("page")="" then '--- Si le paramètre page est vide
Page=1 '---- On commence à la page 1
else
if isnumeric(request("page")) then '---- Si le paramètre page est bien numérique
page=cdbl(request("page")) '-----On en prend sa partie entière et on remplit la variable page
if page > rs_temp.pagecount then '----- Si la variable page est supérieure au nombre de pages
response.write("une erreur s'est produite")
rs_temp.close '---- Fermeture des connexions base de données
set rs_temp=nothing
conn.close
set conn=nothing
response.write("une erreur s'est produite")
response.flush '---- On arrête l'exécution
response.End '---- Cette option nécessite de placer en entête du document response.buffer=true
end if
else '--- Le paramètre page n'est pas numérique
response.write("une erreur s'est produite")
rs_temp.close '---- Fermeture des connexions base de données
set rs_temp=nothing
conn.close
set conn=nothing
response.flush '---- On arrête l'exécution
response.End
end if
end if
rs_temp.absolutepage=page
%>
<% for i=1 to rs_temp.pagecount %>
<a href="mapage.asp?page=<% = i %>"><% = i %></a>
<% Next %>
Message posté le 18/06/2004
par rogue1228
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
20/11/2008 -
A la découverte des tests d’interfaces graphiques avec Visual Studio 2010
Microsoft introduit dans sa version 2010 de Visual Studio les « Coded UI Tests », ou « Tests d’inter ...
|
20/11/2008 -
PDC 2008 - Windows Azure vu par Grégory Renard
Grégory vous propose de découvrir en vidéo - et en 5 minutes - les annonces faites autour de Windows ...
|
20/11/2008 -
Microsoft prépare une suite antivirus gratuite
L’éditeur abandonne Live One Care, sa solution payante, au profit de Morro, une suite antivirus grat ...
|
19/11/2008 -
Comprendre le fonctionnement des Rules de WF
L'activité Policy va nous permettre de piloter nos workflows à partir de règles simples mais efficac ...
|
18/11/2008 -
Trucs & Astuces sur Visual Studio 2008, suite et fin !
Cette dernière partie de l'article de Grégory vous présente divers trucs et astuces sur les Web Serv ...
|
18/11/2008 -
Le multi-targeting de Visual Studio et les Services Packs
Visual Studio 2008 vous permet de choisir une version cible du Framework .NET pour vos projets.
Cec ...
|
18/11/2008 -
Microsoft inaugure son propre magasin Internet
Du matériel et des logiciels à acheter "directement à la source"...Le Microsoft Store ouvre dans qua ...
|
|
|
