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

请问高手应该怎么写

...全文
239 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
回复
不能 沉啊
自己顶
=高手帮忙
谢谢

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧