= document.all.namedItem("addme") ''获取对象ID:delcheck''
for each otag in tagID
if otag.checked then
set objrow=otag.parentelement.parentelement.parentelement ''获取对象的行;''
downurl=objrow.cells(1).children(0).children(0).children(0).src
filename=objrow.cells(3).children(0).innertext
http.open "GET",downurl,False
http.send
set aso=createobject("ADODB.Stream")
aso.type=1
aso.open
aso.write http.ResponseBody
aso.savetofile "★网易下载图片★\" & filename & "."&fileext,2
aso.close
end if
next
infotext.innertext=infotext.innertext & vbcrlf & "文件下载成功。"
infotext.innertext=infotext.innertext & vbcrlf & "文件保存在:" & vbcrlf &"“★网易下载图片★”下"
end sub
sub downloadfile()
infotext.innertext= "正在下载文件...." ''"
window.settimeout "download()",200
end sub
sub changevalue()
AID=array("130","112","67","14","122","158")
PID=array("90","91","89","34","198","200")
if Atype.selectedindex=0 then
for i=0 to 5
imagetype.options(i+2).value=PID(i)
next
else
for i=0 to 5
imagetype.options(i+2).value=AID(i)
next
end if
end sub
</script>
