Une démonstration de table qui affiche un jeu d'enregistrements en colonnes et implémente la pagination
Auteur：Eve Cole
Date de mise à jour：2009-06-24 17:04:30
<!-- Cet exemple montre un affichage général des colonnes d'un jeu d'enregistrements, car il est parfois nécessaire d'afficher plusieurs produits par ligne au lieu d'un par ligne. S'il existe un tel tableau affiché en colonnes, insérez-y simplement le code suivant. Dans cet exemple, 2 enregistrements sont affichés dans chaque ligne et une colonne de pagination est également affichée en bas. -->
<%
'Ouvrir la base de données
Définir conn = Server.CreateObject("ADODB.Connection")
strconn="Driver={serveur SQL};server=localhost;database=northwind;uid=sa;pwd=sa;"
conn.Ouvrir strconn
'Obtenir l'adresse de cette page
Dim nom de fichier, position
fileName = Request.ServerVariables("nom_script")
position = InstrRev(nomfichier,"/")+1
nomfichier = Milieu(nomfichier,postion)
'Ouvrez le jeu d'enregistrements www.downcodes.com
set rs=server.CreateObject("adodb.recordset")
rs.open "sélectionner le titre de courtoisie, le prénom, le photopath dans la commande des employés par identifiant d'employé desc", conn, 1,1
%>
<!-- Formulaire de présentation du produit-->
<table width="90%" height="300" border="0" align="center">
<%
sinon (rs.bof et rs.eof) alors
page=4
rs.pagesize=pages
sinon isempty(Request.QueryString("page")) alors
thispage=clng(Request.QueryString("page"))
autre
cette page=1
finir si
rscount=rs.recordcount
si cette page="" alors cette page=1
si cette page<1 alors cettepage=1
si (thispage-1)*pages>rscount alors
si (pages de mod rscount) = 0 alors
cettepage=rscountpages
autre
cettepage=rscountpages+1
finir si
finir si
si (pages de mod rscount) = 0 alors
allpages=rscountpages
autre
toutes les pages=rscountpages+1
finir si
rs.absolutepage=cettepage
je = 1
%>
<tr>
<%do while not rs.eof and pages>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" width="100" height="100" border="0"></a><br>
<%=rs("titleofcourtesy")&rs("firstname")%> </td>
<%
'La division des colonnes s'effectue principalement par le jugement suivant. Dans cet exemple, deux colonnes sont affichées dans chaque ligne.
si (i mod 2) =0 alors
%>
</tr><tr>
<%end if%>
<%
pages = pages - 1
rs.movenext
je=je+1
boucle
finir si
%>
</table>
<!-- /Formulaire d'affichage du produit-->
<!-- Formulaire de pagination du produit-->
<table width="90%" border="0" align="center">
<tr>
<td> <centre>
Total <%=allpages%> pages Page actuelle <%=thispage %>
<% si cette page<>1 alors %>
<a href="<%=filename&"?page=1"%>">Page d'accueil</a> <a href="<%=filename&"?page="&(thispage-1)%>">Page précédente </a>
<% Fin Si %>
<% si cette page <> toutes les pages alors %>
<a href="<%=filename&"?page="&(thispage+1)%>">Page suivante</a> <a href="<%=filename&"?page="&allpages&""%>" >Dernière page</a>
<% Fin Si %>
</centre></td>
</tr>
</table>
<!-- /Formulaire de pagination du produit-->
