I feel really troublesome now. Is this simple enough?
The code copy is as follows:
<%
Dimi,j,iCols
i=0'//Define i for loop
iCols=3'//How many columns are there in a row (positive integer)
Response.Write("<tablewidth=""100%""border=""1""cellspacing=""2""cellpadding=""0""><tr>"&vbNewLine)'//Output Table header and first Tr
DoWhileNotoRs.EOF'//Start output record set with Forors.RecordCountNext, also OK
Ifi>0AndiModiCols=0ThenResponse.Write("</tr><tr>"&vbNewLine)'//If the number of columns is equal to iCols line break
i=i+1
Response.Write("<tdwidth="""&FormatPercent(1/iCols,0)&"""">Output "&i&" record</td>"&vbNewLine)
oRs.MoveNext
Loop'//End the output record set
oRs.Close
Forj=1ToiCols-1'//Start to make up for empty records, and up to 1 iCols-1
IfiModiCols=0ThenExitFor'//The number of columns is enough iCols will no longer output
i=i+1
Response.Write("<tdwidth="""&FormatPercent(1/iCols,0)&"""">Fill in the "&j&" record</td>"&vbNewLine)
Next
Response.Write("</tr></table>"&vbNewLine)'//Output Table tail
%>