请教一个asp采集数据的问题--实在无能为力！！

<%Server.ScriptTimeOut=999999999
function CheckURL(byval A_strUrl)
set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",A_strUrl,false
XMLHTTP.send()
CheckURL=(XMLHTTP.status=200)
set XMLHTTP = nothing
end function

Dim imgurl,i,k,ki
for i=0 to 10000
imgurl="http://pic15.nipic.com/20110722/5598792_10410"&i&"000_2.jpg"
if CheckURL(imgurl) then
response.write imgurl
exit for
end if
next
%>
实际存在图片：http://pic15.nipic.com/20110722/5598792_104107157000_2.jpg
运行时出现--指定资源无法下载的错误--应该是运行时间有问题--但我iis里设置了900秒-（好像设置了也没用！），好像就过了1分钟左右就出错了！我调试时只循环1000次是可以的。但我实际要求循环1万次甚至更多次！

网络反应时间也没有这么快吧。

可以考虑使用分段的方法。