保存远程图片相关文章

2008-6-13 ASP保存远程图片文件到本地代码
分类：程序开发 Tags： asp 保存远程图片评论：0 浏览：4429
<% Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=True dim Ads,Retrieval,GetRemoteData Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", RemoteFileUrl, False, "", "" .Send If .Readystate<>4 then SaveRemoteFile=False Exit Function End If GetRemoteData = .ResponseBody End With Set Retrieval = Nothing Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile server.MapPath(LocalFileName),2 .Cancel() .Close() End With Set Ads=nothing End Function %> <% '以下为调用示例： remoteurl="http://www.yiwu-jewelry.cn/images_yiwu/logo.jpg"'远程文件名（绝对全路径） localfile="images/"&Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名（可自定义） If SaveRemoteFile(localfile,remoteurl)=True Then Response.Write("成功保存："&localfile) End If %> <% Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=True dim Ads,Retrieval,GetRemoteData Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", RemoteFileUrl, False, "", "" .Send If .Readystate

总数: 1 页次: 1 / 1 首页 <<上一页 1 下一页>> 末页