【Asp】XmlHttp组件二进制方式下载远程图片、文件并保存到本地

Asp XmlHttp 二进制方式下载远程图片、文件，并保存到本地：

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 '输出图片数据