从 URL 读取字节码经典 asp

【问题标题】：Read Bytecode classic asp from URL从 URL 读取字节码经典 asp
【发布时间】：2012-05-25 11:24:39
【问题描述】：

http://www.jiemai.com/imagesupload/1582/middle/0858-1-001.jpg

我想在经典 ASP 中将上述图像 URL 保存为名称为“0858-1-001.jpg”的文件。如果有人帮助我，我真的很感激。我试图使用许多 asp 脚本来读取该字节码。

【问题讨论】：

请帮帮我，因为我从上周开始就卡住了
请不要在 cmets 中包含代码，请使用问题的编辑功能来提高其质量。包括您实际遇到的问题的详细信息。
谢谢安东尼，我得到了解决方案我真的很感激至少你回答了我
如果您解决了问题，请将您所做的作为新答案发布并接受，或者删除此问题。

【解决方案1】：

这里还没有服务器，但这里是经过测试的 vbscript 版本，要在 asp 中使用它，您只需将 creatObject 替换为 Server.CreateObject

function download(url, destination)
  download = false
  on error resume next
  set xml = CreateObject("Microsoft.XMLHTTP")
  xml.Open "GET", url, False
  xml.Send
  if err.number = 0 then
    if xml.readystate = 4 then
      if xml.status = 200 then 
        wscript.echo xml.readystate
        wscript.echo xml.status
        set oStream = createobject("Adodb.Stream")
        const adTypeBinary = 1,  adSaveCreateOverWrite = 2, adSaveCreateNotExist = 1 
        oStream.type = adTypeBinary
        oStream.open
        oStream.write xml.responseBody
        oStream.saveToFile destination, adSaveCreateOverWrite
        oStream.close
        set oStream = nothing
        download = true
      end if
    end if
  end if
  set xml = Nothing
end function

【讨论】：