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