asp 数组 输出问提 在线等 急,谢谢

[yueweiac110]

<%
h1="白色"
h2="红色"
h3="蓝色"
h4="绿色"
h5="粉色"
h6="黄色"
h7="黑色"
l1="adicolor lo"
l2="adicolor hi"
l3="Century LO"
l4="Stan smith Comfort"
l5="Super Star II"
l6="Bill Memullrn For Foot Locker"
for j=1 to 6
for i=1 to 7
response.write("h"&i)
next
response.Write("<br>")
next

%>
想达到的目的是
白色红色蓝色绿色粉色黄色黑色
白色红色蓝色绿色粉色黄色黑色
白色红色蓝色绿色粉色黄色黑色
白色红色蓝色绿色粉色黄色黑色
白色红色蓝色绿色粉色黄色黑色
白色红色蓝色绿色粉色黄色黑色
白色红色蓝色绿色粉色黄色黑色

结果输出的是
h1h2h3h4h5h6h7
h1h2h3h4h5h6h7
h1h2h3h4h5h6h7
h1h2h3h4h5h6h7
h1h2h3h4h5h6h7
h1h2h3h4h5h6h7

请问高手应该怎么写

[yueweiac110]

不能 沉啊
自己顶
=高手帮忙
谢谢

[bobyle]

把颜色存放在数组里再输出吧,数组自己写了,哈哈,我比较懒

[bobyle]

想了想,还是帮你写下,不然等于没说,不够厚道~~
代码如下:
<%
Dim cnColor,i
cnColor=Array("白色","红色","蓝色","绿色","粉色","黄色","黑色")
for i=0 to Ubound(cnColor)
response.write cnColor(i)
next
%>

希望对你有帮助!

[一把编程的菜刀]

for i=1 to 7
response.write("h"&i)
next
改为
for i=1 to 7
a="h"&i
response.write(a)
next
就可以了

[wanzi_zf]

[Quote=引用 4 楼 bobyle 的回复:]
想了想,还是帮你写下,不然等于没说,不够厚道~~
代码如下:
<%
Dim cnColor,i
cnColor=Array("白色","红色","蓝色","绿色","粉色","黄色","黑色")
for i=0 to Ubound(cnColor)
response.write cnColor(i)
next
%>

希望对你有帮助!
[/Quote]

补充下：

<% 
Dim cnColor,i,j 
cnColor=Array("白色","红色","蓝色","绿色","粉色","黄色","黑色") 
for j=0 to 5
for i=0 to Ubound(cnColor) 
response.write cnColor(i) 
next
response.write ("</br>")
next 
%>

[Jack_Senlan]

<% 
h="白色,红色,蓝色,绿色,粉色,黄色,黑色" 
l="adicolor lo,adicolor hi,Century LO,Stan smith Comfort,Super Star II,Bill Memullrn For Foot Locker,none" 


h_Array = Split(h,",")
l_Array = Split(l,",")

For I = 0 To Ubound(h_Array)
 
    Response.Write h_Array(I)&l_Array(I)&"<BR>"

Next
%> 

应该是这个意思吧,楼主给分!!