分享ASP保存远程图片操作代码

奇9网小编这里分享一组关于ASP保存远程图片的操作代码，希望对大家有帮助！有很多的采集程序，以及文章内容编辑软件都会带有远程保存图片的功能，其中的原理就是利用xmlhttp对象获取图片！这是网络中一位网友自己参照网上代码写出来的，效果非常不错，有兴趣的朋友，可以试一下！这段代码与网络中区别不大，都是一个函数：

<%
Function SaveRemoteFile(sSavePath,sRemoteFileUrl)
　　On Error Resume Next
　　SaveRemoteFile = False
　　Dim oXML : Set oXML = Server.CreateObject("Microsoft.XMLHTTP")
　　With oXML
　　　　.Open "Get",sRemoteFileUrl,False,"",""
　　　　.Send
　　　　If .Status<>200 Then Exit Function
　　　　RemoteDate = .ResponseBody
　　End With
　　Set oXML = Nothing
　　Dim oStream : Set oStream = Server.CreateObject("Adodb.Stream")
　　With oStream
　　　　.Type = 1
　　　　.Open
　　　　.Write RemoteDate
　　　　.SaveToFile sSavePath,2
　　　　If Err.Number=0 Then SaveRemoteFile = True
　　　　.Close()
　　End With
　　Set oStream = Nothing
End Function

End Function'调用方法如下


SaveAddr=Server.MapPath("demo.gif")
SourceURL="Call SaveRemoteFile(SaveAddr,SourceURL)
%>
Tag

你可能还想知道：如何给笔记本电脑加装固态硬盘