Ich fühle mich jetzt wirklich mühsam. Ist das einfach genug?
Die Codekopie lautet wie folgt:
<%
Dimi, J, Icols
i = 0 '// definiere i für Schleife
ICOLS = 3 '// Wie viele Spalten gibt es in einer Zeile (positive Ganzzahl)
Antwort.Write ("<tablewidth =" "100%" "border =" "1" "cellspacing =" "2" "cellpadding =" "0" ""> <tr> "& vbNewline) '// Ausgangstabelle Header und First Tr
Dowhilenotors.eof '// Ausgangsrekord mit feors.recordCountnext, auch OK
Ifi> 0andimodicols = 0ThenResponse.write ("</tr> <tr>" & vbNewline) '// Wenn die Anzahl der Spalten gleich der ICOLS -Linienspannung ist
i = i+1
Response.write ("<tdwidth =" "" & formatpercent (1/iCols, 0) & "" ""> Ausgabe "& i &" Datensatz </td> "& vbNewline)
ors.Movenext
Loop '// beenden Sie den Ausgabetratensatz fest
ORS.CLOSE
FORJ = 1TOICOLS-1 '// Beginnen Sie, leere Datensätze auszugleichen, und bis zu 1 ICOLS-1
IfImodicols = 0Thenexitfor '// Die Anzahl der Spalten ist genügend ICOLs ausgegeben
i = i+1
Response.write ("<tdwidth =" "" & formatpercent (1/iCols, 0) & "" ""> Füllen Sie den "& j &" -Ertrat </td> "& vbNewline) ein.
Nächste
Response.write ("</tr> </table>" & vbNewline) '// Ausgabetabelle Schwanz
%>