现在感觉真麻烦，下面这样够简单够清楚了吧？
复制代码 代码如下:
<%
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尾
%>