現在感覺真麻煩，下面這樣夠簡單夠清楚了吧？
複製代碼代碼如下:
<%
Dimi,j,iCols
i=0'//定義i進行循環
iCols=3'//一行有幾列(正整數)
Response.Write("<tablewidth=""100%""border=""1""cellspacing=""2""cellpadding=""0""><tr>"&vbNewLine)'//輸出Table頭和第一個Tr
DoWhileNotoRs.EOF'//開始輸出記錄集用Forors.RecordCountNext也行
Ifi>0AndiModiCols=0ThenResponse.Write("</tr><tr>"&vbNewLine)'//如果列數等於iCols換行
i=i+1
Response.Write("<tdwidth="""&FormatPercent(1/iCols,0)&""">輸出第"&i&"條記錄</td>"&vbNewLine)
oRs.MoveNext
Loop'//結束輸出記錄集
oRs.Close
Forj=1ToiCols-1'//開始補足空記錄,最多補iCols-1條
IfiModiCols=0ThenExitFor'//列數已經夠iCols不再輸出
i=i+1
Response.Write("<tdwidth="""&FormatPercent(1/iCols,0)&""">補足第"&j&"條記錄</td>"&vbNewLine)
Next
Response.Write("</tr></table>"&vbNewLine)'//輸出Table尾
%>