<%
dim i, j, icols
i = 0 '//定义i进行循环
icols = 3 '//一行有几列(正整数)
response.write("<table width=""100%"" border=""1"" cellspacing=""2"" cellpadding=""0""><tr>"&vbnewline) '//输出table头和第一个tr
do while not ors.eof '//开始输出记录集 用 for ors.recordcount next 也行
if i>0 and i mod icols = 0 then response.write("</tr><tr>"&vbnewline) '//如果列数等于 icols 换行
i = i + 1
response.write("<td width="""&formatpercent(1 / icols, 0)&""">输出第 "&i&" 条记录</td>"&vbnewline)
ors.movenext
loop '//结束输出记录集
ors.close
for j = 1 to icols -1 '//开始补足空记录,最多补icols-1条
if i mod icols = 0 then exit for '//列数已经够 icols 不再输出
i = i + 1
response.write("<td width="""&formatpercent(1 / icols, 0)&""">补足第 "&j&" 条记录</td>"&vbnewline)
next
response.write("</tr></table>"&vbnewline) '//输出table尾
%>
我要评论
网友评论