Question

ASP高手请进，一个颇具挑战性的问题，难倒我了

这是一个很伤脑筋的问题，请求各位大虾帮帮我，
因为我没分了，愿意以后有分了全部给高手，说到做到
下面的代码呢，是生成静态子页面的程序，因为我的首页有一个推荐产品的地方，我在数据库新建了一个TJ_tj表，然后把产品数据库的id放在里面做连接，这样就要循环产品数据库了吧，看代码

'读取模板先

set rs0=server.CreateObject("adodb.recordset")
sql="select * from moban where type=2"
rs0.open sql,conn,1,1

'打开tuijian数据库
set rs=server.CreateObject("adodb.recordset")
sql="select * from TJ_tj"
rs.open sql,conn,1,3

do while not rs.eof '

mb2=rs0("moban_html") 'list页静态模板

'打开并循环产品数据库（有好几个产品数据库，所以用了rs("ybm")）
set rs1=server.CreateObject("adodb.recordset")
sql="select * from "&rs("ybm")&" where id="&rs("yid")&""
rs1.open sql,conn,1,1

'开始赋值了。。。。。。。。。。。。。

g_spbh=rs1("spbh")
g_title=rs1("spbt")

'注意问题就出现这里了，产品数据库里有个color字段，是以复选框的方式存如数据库的。
'比如“白色,黑色,蓝色,紫色”
'然后我就用split分割啊
color=split(rs1("color"),",")
'让后我在用for循环
for i=0 to ubound(color)
g_color=color(i)
next
'这样我以为就ok了，没想到输出错误

Set fso = Server.CreateObject("Scripting.FileSystemObject")'创建FSO对象
Set list = fso.CreateTextFile(Server.MapPath("../list/"&rs1("id")&".html"))

mb2=replace(mb2,"$l_spbh$",g_spbh)
mb2=replace(mb2,"$l_title$",g_title)
mb2=replace(mb2,"$l_color$",g_color)

list.writeline mb2
list.close

rs.movenext
loop
rs1.close
set rs1=nothing
rs.close
set rs=nothing
rs0.close
set rs0=nothing
response.Write("<script>alert('推荐栏目静态子页面生成成功！');history.back()</script>")

问题：请问如何在循环体内正确循环数组呢

因为产品颜色不同，输出的信息也不同

id color

1 白色,黑色,红色

2 绿色,红色,蓝色

3 金色,青色,白色

Answer 1

面对此处的激烈活动与在另一处同时
保持寂静而毫无意义的状态之间的抉择。
一种意识到自己行将毁灭的意识
与一种不眠的哈哈可怕的睡眠