白酒订货会宣传单:请教一个ASP数组排列的问题?

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/14 18:55:42
a="a,b,c,d,e,0,1,2,3,5,6,7,8,9"
b=split(a,",")
for L1=0 to ubound(b)
for L2=0 to ubound(b)
for L3=0 to ubound(b)
Response.Write L1&L2&L3&"<BR>"
next
next
Next
数组b按三位数一行排列
我想在第一个for之前就得到总行数,请问怎么写?

dim a,b,i
a="a,b,c,d,e,0,1,2,3,4,5,6,7,8,9"
b=split(a,",")
for i=lbound(b) to ubound(b) step 3
Response.Write b(i) & " "
if (i+1)<=ubound(b) then Response.Write b(i+1) & " "
if (i+2)<=ubound(b) then Response.Write b(i+2)

if (i mod 3)=0 then Response.Write "<br>"
next