<%
'Programme de pages
' total_records nombre total d'enregistrements
'Everypage_records affiche le nombre d'enregistrements par page
' current_page numéro de la page actuelle
' url L'URL à transmettre, qui peut contenir des variables à transmettre, telles que "list.asp?" ou "list.asp?keyword=key&"
' L'appel du programme est relativement simple, mais il est toujours plus gênant que PHP Continuez à travailler dur
sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records) then.
total_records=Int(total_records)
autre
total_enregistrements=0
finir si
si IsNumeric (everypage_records) alors
chaque page_records = Int (chaque page_records)
si Everypage_records <=0 alors
chaquepage_records=10
finir si
autre
chaquepage_records=10
finir si
si IsNumeric (current_page) alors
page_actuelle=Int(page_actuelle)
autre
page_actuelle=1
finir si
'Obtenir le nombre total de pages, c'est-à-dire la dernière page
si total_records mod everypage_records=0 alors
last_page=Int(total_records/everypage_records)
autre
last_page=Int(total_records/everypage_records)+1
finir si
'Déterminez si current_page répond à la norme et attachez la valeur à la page
si page_actuelle>=dernière_page alors
page=dernière_page
elseif page_actuelle <=1 alors
page=1
autre
page=page_actuelle
finir si
'Page précédente
si page<=0 alors
préparation=0
autre
préparation=page-1
finir si
'Page suivante
si page=dernière_page alors
page suivante=0
autre
page suivante=page+1
finir si
'Commencer à enregistrer sur cette page
firstcount=prepg*everypage_records
'Fin de l'enregistrement de cette page
si page suivante>=1 alors
lastcount=(nextpg-1)*everypage_records
autre
dernier décompte=total_records
finir si
'Démarrer la pagination du code à barres de navigation
pagenav=""
pagenav1=""
pagenav=pagenav&"Afficher les <b>"&firstcount&"-"&lastcount&"</b> enregistrements au total <b>"&total_records&"</b> enregistrements"
pagenav1=pagenav1&"Afficher les <b>"&firstcount&"-"&lastcount&"</b> enregistrements au total <b>"&total_records&"</b> enregistrements"
si dernière_page>1 alors
'Quand il y a des pages de recto et de verso
pagenav=pagenav&" <a href='"&url&"page=1'>Page d'accueil</a> "
pagenav1=pagenav1&" <a href=""&url&"page=1'>Page d'accueil</a> "
si prépg>=1 alors
pagenav=pagenav&" <a href=""&url&"page="&prepg&"'>Page précédente</a> "
pagenav1=pagenav1&" <a href=""&url&"page="&prepg&"'>Page précédente</a> "
autre
pagenav=pagenav&"page précédente"
pagenav1=pagenav1&"page précédente"
finir si
si page suivante>=1 alors
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>Page suivante</a> "
pagenav1=pagenav1&" <a href=""&url&"page="&nextpg&"'>Page suivante</a> "
autre
pagenav=pagenav&"page suivante"
pagenav1=pagenav1&"page suivante"
finir si
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>Dernière page</a> "
pagenav1=pagenav1&" <a href=""&url&"page="&last_page&"'>Dernière page</a> "
pagenav=pagenav&"Aller à la page <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location="""&url&" page=""+text100.value'>"
pagenav=pagenav&" total "&last_page&" page"
pagenav1=pagenav1&" à la page <input type=text name=text101 id=text101 value="&page&" size=3><input type=button name=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" total "&dernière_page&" pages"
fin si
fin sous
%>