Dans les grands projets ASP, de nombreuses pages impliquent une fonction de virage de page. Si chaque page rédige un programme de tournage de pages, ces travaux réduiront l'efficacité du travail, ne seront pas propices à la modularisation du projet et ne peuvent pas réutiliser le code. Par conséquent, il est nécessaire de modulariser les fonctions telles que le tournage de la page.
Méthode de conception:
1. Lorsque vous appelez ce module, il vous suffit de passer le jeu d'enregistrements et le nombre d'enregistrements affichés sur chaque page;
2. Vous pouvez cliquer sur le lien pour tourner la page, ou vous pouvez saisir directement le numéro de page et tourner la page après appuyer sur l'appui;
3. Ne considérez pas le nom du fichier, le programme peut être sur la page actuelle à chaque fois qu'il tourne.
Après avoir réfléchi aux trois questions ci-dessus, notre module de tournage de page publique peut commencer.
<%
`` +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆ Nom du module: Page publique Turn Module
'◆ Nom du fichier: Turnpage.asp
'◆ Paramètres entrants: RS_TMP (ensemble d'enregistrements), pagesize (nombre d'enregistrements affichés par page)
'◆ Sortie: Page d'enregistrements Fonction d'affichage de virage
`` +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
Subtirpage (byRefrs_tmp, pagesize) 'rs_tmp set; Pages du nombre d'enregistrements affichés par page;
Pages dimtotalpage'total
Dimpageno 'quelle page est actuellement affichée
Nombre de dossiers dimRecordCount't
Rs_tmp.pagesize = pagesize
RecordCount = rs_tmp.recordCount
TotalPage = int (recordCount / pagesize * -1) * - 1
Pageno = request.querystring ("pageno")
«Traversez directement le nombre de pages à sauter;
Ifrequest.form ("pageno") <> "" thenpageno = request.form ("pageno")
«Si la page n'est pas sélectionnée, la première page s'affiche par défaut;
Ifpageno = "" thenpageno = 1
IfRecordCount <> 0Then
Rs_tmp.absolupage = pageno
Endire
«Obtenez le nom de fichier actuel afin que chaque page tournant soit effectuée sur la page actuelle;
Dimfilename, position
filename = request.servervariables ("script_name")
Postion = instrrev (nom de fichier, "/") + 1
«Obtenez le nom de fichier actuel afin que le lien de tournage de page pointe vers le fichier actuel;
nom de fichier = mid (nom de fichier, postion)
%>
<TableBorder = 0Width = '100%'>
<tr>
<tdalign = Left> Nombre total de pages: <fontcolor = # ff333> <% = totalPage%> </font>
Page actuelle <FontColor = # ff3333> <% = pageno%> </font>
<tdalign = "droite">
<% IfRecordCount = 0ORTOTALPAGE = 1THEN
Response.Write "Accueil | Page précédente | Page suivante | Dernière page"
Else%>
<href = "<% = nom de fichier%>? pageno = 1"> Accueil | </a>