[摘要]")’分割字串，取得里面地址列表 allimg="" newimg="" for i=1 to ubound(arrimg) if arrimg(i...
")’分割字串，取得里面地址列表
allimg=""
newimg=""
for i=1 to ubound(arrimg)
if arrimg(i)<>"" and instr(allimg,arrimg(i))<1 then’看这个图片是否已经下载过
fname=baseurl&cstr(i&mid(arrimg(i),instrrev(arrimg(i),".")))
saveimage(arrimg(i),fname)‘保存地址的函数，过程见上面
allimg=allimg&"
关键词：用XMLHTTP组件解析图片地址并保存