程序如下：
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

35是哪一行

学的可以呀。

我们也搞不懂。

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

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

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