小弟初学数组，想请大家帮帮忙看看这段程序

renwolin 发布于 2010-07-12 13:07， 517 次点击

程序如下：
dim aa()
k=0
set rsi=server.createobject("adodb.recordset")
rsi.open "select * from item",conn,1,1
do while not rsi.eof
redim preserve aa(k,4)
aa(k,0)=rsi("id")
aa(k,1)=rsi("itid")
aa(k,2)=rsi("itemname")
aa(k,3)=rsi("itemurl")
aa(k,4)=rsi("itemnote")
rsi.movenext
k=k+1
loop
rsi.close
set rsi=nothing

错误提示：Microsoft VBScript 运行时错误错误 '800a0009'

下标越界

/left.asp，行 35

6 回复

hams2010-07-12 15:03

35是哪一行

wangjy5002010-07-13 19:51

学的可以呀。

wangjy5002010-07-16 22:09

以下是引用hams在2010-7-12 15:03:20的发言：

35是哪一行

我们也搞不懂。

yms1232010-07-16 22:19

dim aa()
k=0
set rsi=server.createobject("adodb.recordset")
rsi.open "select * from item",conn,1,1
ReDim aa(rsi.recordcount,4)
do while not rsi.eof
aa(k,0)=rsi("id")
aa(k,1)=rsi("itid")
aa(k,2)=rsi("itemname")
aa(k,3)=rsi("itemurl")
aa(k,4)=rsi("itemnote")
rsi.movenext
k=k+1
loop
rsi.close
set rsi=nothing

魏兴耀2010-07-18 18:33

定义数组时好像没有定义k值，我也学习一下

jedyq2010-07-20 11:14

我也是新手，我以前在编程的时候定义数组时就像aa(k,4)用变量K就会出错，一般我都是定义一个不可能超出的范围。纯个人意见，请高手指点。