ASP保存远程图片 - ASP教程
发布时间：2016-10-02 12:38:00 所属栏目：Asp教程 来源：站长网
导读：记得很多的编辑器、自动采集系统都一个自动保存远程图片的功能，大概原理就是利用xmlhttp对象获取图片，然后用流对象写入保存，参照网上的代码，自己写了一个，与流传的代码没什么区别！代码如下，就一个函数: %Function SaveRemoteFile(sSavePath,sRemoteF
记得很多的编辑器、自动采集系统都一个自动保存远程图片的功能，大概原理就是利用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
'调用方法如下
SaveAddr=Server.MapPath("demo.gif")
SourceURL="http://www.google.cn/intl/zh-CN/images/logo_cn.gif"
Call SaveRemoteFile(SaveAddr,SourceURL)
%>
Tag （编辑：南平站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
