J'ai toujours eu un mal de tête avec les boucles multi-lignes ou multi-colonnes dans Asp. Aujourd'hui, j'ai posté le code suivant en guise de souvenir. Il a été complètement modifié sous la direction de Brother Big Bird. est limité et je ne peux faire que l'étape suivante :
Code ASP/Visuel Basic
Copiez le code comme suit :
<%
Const p=6 '2 éléments par page
définir rs = serveur.createobject (adodb.recordset)
sql = Sélectionnez * dans l'ordre d'affichage par identifiant Desc
rs.Open sql, conn, 1
je = 0
faire sans rs.eof
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> largeur=150 hauteur=98 /></td>
<%
Si (i+1) Mod 3 =0 Alors
Réponse.Ecrire </tr>
Si je <(p-1) Alors Response.Write <tr>
Fin si
je=i+1
si i>p alors quittez do
rs.movenext
Boucle
Si je Mod 3 <>0 Alors
Pour m=3-(i Mod 3) À 1 Étape -1
réponse.write<td> </td>
Suivant
réponse.write</tr>
Fin si
Si je = 3 Alors
réponse.write <td> </td><td> </td><td> </td></tr>
Terminer si
rs.fermer
définir rs = rien
%>
Le code précédent n'a pas changé
Copiez le code comme suit :
<%
Const p=6 '2 éléments par page
définir rs = serveur.createobject (adodb.recordset)
sql = Sélectionnez * dans l'ordre d'affichage par identifiant Desc
rs.Open sql, conn, 1
je = 1
faire sans rs.eof
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> largeur=150 hauteur=98 /></td>
<%
si je mod 3 = 0 alors
Réponse.Write(</tr><tr>)
finir si
je=i+1
si i>p alors quittez do
rs.movenext
Boucle
rs.fermer
définir rs = rien
%>