vb数组下标越界的问题
<% dim stringal
sql="select referer from lg where referer like'%baidu%'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,3
num=rs.recordcount
response.Write num
i=0
dim key()
stringal=rs("referer")
do while not rs.eof
redim preserve key(i)
key(i)=resolveRef(stringal) '该行就是第346行.
i=i+1
rs.movenext
loop
rs.close
for i=1 to num-1
response.Write key(i)
next
%>
出错提示为:
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: 'i'
/iislog/count1/keyword.asp, 第 346 行
请问大虾们该怎么解决呢?