Je me sens vraiment gênant maintenant. Est-ce que le suivant est assez simple?
La copie de code est la suivante:
<%
Dimi, J, ICOLS
i = 0 '// définir I pour la boucle
icols = 3 '// Combien de colonnes y a-t-il dans une ligne (entier positif)
Response.Write ("<TableWidth =" "100%" "border =" "1" "CellSpacing =" "2" "Cellpadding =" "0" "> <tr>" & vbnewline) '// En-tête de table de sortie et premier tr
DowhileNotors.eof '// Démarrer l'enregistrement de sortie avec Forors.RecordCountNext, également OK
Ifi> 0AnDimodicols = 0TheNResponse.write ("</tr> <tr>" & vbnewline) '// Si le nombre de colonnes est égal à la pause de la ligne iCOLS
i = i + 1
Response.Write ("<tdWidth =" "" & FormatPecent (1 / ICOLS, 0) & "" "" "> output" & i & "enregistrer </td>" & vbnewline)
ours
Loop '// terminer l'ensemble d'enregistrements de sortie
ours
Forj = 1toicols-1 '// Commencez à compenser les enregistrements vides, et jusqu'à 1 ICOLS-1
Ifimodicols = 0Thenexitfor '// Le nombre de colonnes est suffisant ICOLS ne sortira plus
i = i + 1
Response.Write ("<tdWidth =" "" & FormatperCent (1 / ICOLS, 0) & "" ""> Remplissez le "& j &" enregistrer </td> "& vbnewline)
Suivant
Response.Write ("</tr> </ table>" & vbnewline) '// Table de sortie Tail
%>