Question

如何将ASP一维数组的值 输出为 3 列的表格？

我已将记录集rs_xl 的数据存储在一组数组Array(i)里，i 的值为1 到rs_xl.recordcount，现想把Array(i)的值依次存入到表格里显示出来，要求表格为三列。如果数据的个数凑不齐一个完整的表格，那么把剩下的格子<td></td>里全部填为空。例如：当数据个数为2时，那么表格的第三列就空着。

Answer 1

dim str,stable,std
for i=1 to xl.recordcount
if (i mod 3)=0 then
str = "</tr>"
else
str = ""
end if
stable=stable&str&"<td>"&Array(i)&"</td>"
next

if (xl.recordcount mod 3)=1 then
std="<td></td>"
elseif (xl.recordcount mod 3)=2 then
std="<td></td><td></td>"
else
std=""
end if

response.write "<table border=1>"stable&std&"</table>"

Answer 2

　　n=rs_xl.recordcount
　　l=Int(n/3)
　　if n/3 > l then
　　 l=l+1
　　endif
　　response.write("<table>")
　　for i=1 to l
　　response.write("<tr>")
　　for j=1 to 3
　　if (i-1)*3+j<=n then
　　 response.write("<td>Array(i)</td>")
　　else
　　 response.write("<td> </td>")
　　endif
next
　　response.write("</tr>")
　　next
　　response.write("</table>")