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

yueweiac110 易商网络信息技术有限公司 技术部经理  2008-04-23 09:40:22
<%
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

请问高手应该怎么写

...全文
188 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Jack_Senlan 2008-06-08


<%
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
%>



应该是这个意思吧,楼主给分!!
回复
wanzi_zf 2008-06-08
[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
%>
回复
for i=1 to 7
response.write("h"&i)
next
改为
for i=1 to 7
a="h"&i
response.write(a)
next
就可以了
回复
bobyle 2008-06-08
想了想,还是帮你写下,不然等于没说,不够厚道~~
代码如下:
<%
Dim cnColor,i
cnColor=Array("白色","红色","蓝色","绿色","粉色","黄色","黑色")
for i=0 to Ubound(cnColor)
response.write cnColor(i)
next
%>

希望对你有帮助!
回复
bobyle 2008-06-08
把颜色存放在数组里再输出吧,数组自己写了,哈哈,我比较懒
回复
yueweiac110 2008-04-23
不能 沉啊
自己顶
=高手帮忙
谢谢
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-23 09:40
社区公告
暂无公告