加上循环执行效率变得很低的问题

Question

主要代码如下:
<% 
dim stringal,num,i
sql="select referer from lg where referer like'%yahoo%'"
set rs=server.CreateObject("adodb.recordset")  
rs.open sql,conn,3,3  
num=rs.recordcount  
i=0   
do while not rs.eof and i<=num-1
redim preserve key(i)
key(i)=rs("referer")
stringal=resolveRef(rs("referer"))
if stringal<>""then
sql="insert into google(stringal) values('"&stringal&"')"
conn.execute(sql)
i=i+1
end if
rs.movenext
loop
%>
测试出num=4即 rs记录集里共有四条记录.当用do while not rs.eof and i<=num-1时执行总是提示脚本运行超时(我设置的脚本超时时间为500秒还超时),cpu使用率100%,而当把每条记录直接赋值给调用函数resolveRef 并且执行插入语句的时候,却执行的很快,这是为什么?
为什么加了循环就变得如此慢呢?
望高手给予解决......

Answer 1

i = i + 1
好像放在了if endif之间了，这样不是每次都加1.也就有可能永远不执行了，估计是这个原因。