现在感觉真麻烦，下面这样够简单够清楚了吧？

复制代码 代码如下:

<%

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尾

%>