还有人吗？ASP中VBS数组老出错！急啊！明天交不差了，请一定帮忙了。

[covien]

代码如下：
-------------------------------------------------
dim BCarr(10)
set rs=conn.execute ("select * from class where b_classid=0 order by classid")
i=0
Do While Not rs.EOF
' redim Preserve BCarr(i)
BCarr(i)=array(rs("classid"),rs("classname"))
response.write BCarr(0)(1)&"<br>"
i=i+1
rs.movenext
loop
response.write BCarr(0)(1)&"<br>"
--------------------------------------------------------

response.write BCarr(0)(1)&"<br>"这一句是用来测式的，运行到这一句就出现“错误 '80020009' 发生意外。”
放在上面的那一句却不会出错，可把BCarr(0)(1)中的0改为i结果都一样！真是怪啊。

[jim.ma]

用 rs.getrows

看看

[covien]

我这和recordset没有关系吧，问题出在数组呢。

[nchen123]

BCarr(0, 1) 不是　BCarr(0)(1)

[nchen123]

http://expert.csdn.net/Expert/topic/2173/2173882.xml?temp=.9965631

[covien]

经过刚刚反复测试，发现真正问题所在：
是数据库内容RS(" ")并没有真正的赋值到变量中，所以在跳出循环后就会出现错误。
然后我改成如下：
set rs=conn.execute ("select * from writ_class where b_classid=0 order by classid")
i=0
Do While Not rs.EOF
redim Preserve BCarr(i)
BC=rs("classid")
BD=rs("classname")
BCarr(i)=array(BC,BD)
i=i+1
rs.movenext
loop

果然验证了我的想法，通了！不过程序是通了，我却不能想通！为什么 BCarr(i)=array(rs("classid"),rs("classname"))这样不能把值赋与变量呢。希望能有人解答。

[stefli]

呵呵！
不是很清楚，不过，我原来遇到过left函数，和这个一样。
还是要先把rs("")赋给一个变量才能搞定。