It's a real hassle now, is it easy enough to be clear?
Copy Code code as follows:
<%
Dim I, J, Icols
i = 0 '//definition I for loop
Icols = 3 '//row with several columns (positive integer)
Response.Write ("<table width=" "100%" "border=" "1" "Cellspacing=" "2" "cellpadding=" "0" "><tr>" & vbNewLine) '//Output table header and first TR
Do as not ors.eof '//Start output Recordset with for ORs. RecordCount Next, too.
If i>0 and i Mod icols = 0 Then Response.Write ("</tr><tr>" &vbnewline) '//If the number of columns equals icols line-wrapping
i = i + 1
Response.Write ("<td width=" "" &formatpercent (1/icols, 0) & "" "> Output page" &i& "Record </td>" & vbNewLine)
Ors.movenext
Loop '//End output recordset
Ors.close
For j = 1 to iCols-1 '//start to complement empty records, up to ICols-1
If I Mod icols = 0 Then Exit for '////Column count is enough icols no longer output
i = i + 1
Response.Write ("<td width=" "" &formatpercent (1/icols, 0) & "" "> Complement the first" &j& "Record </td>" & vbNewLine)
Next
Response.Write ("</tr></table>" &vbnewline) '/output table end
%>