ASP保存远程图片

  < %

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)
% >

转载于:https://www.cnblogs.com/cnky/p/3485993.html