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

  '调用方法如下

SaveAddr=Server.MapPath("demo.gif")
SourceURL="http://www.google.cn/intl/zh-CN/images/logo_cn.gif"
Call SaveRemoteFile(SaveAddr,SourceURL)
%>
Tag


« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3