http://www.jiemai.com/imagesupload/1582/middle/0858-1-001.jpg
上記の画像の URL を従来の ASP で「0858-1-001.jpg」という名前のファイルとして保存したいと考えています。誰かが私を助けてくれたら本当に感謝しています。そのバイトコードを読み取るために多くのaspスクリプトを使用しようとしていました。
http://www.jiemai.com/imagesupload/1582/middle/0858-1-001.jpg
上記の画像の URL を従来の ASP で「0858-1-001.jpg」という名前のファイルとして保存したいと考えています。誰かが私を助けてくれたら本当に感謝しています。そのバイトコードを読み取るために多くのaspスクリプトを使用しようとしていました。
ここにはサーバーがありませんが、ここにテスト済みの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