ASP保存远程图片文件到本地代码
分类:程序开发 Tags: asp 保存远程图片 评论:0 浏览:4203 最近更新时间:2008/6/13 17:47:43
- <%
- 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
- %>
本文地址:/351/
-
• asp如何读取txt文本内容代码
• 支付宝即时到账POST按钮代码
• asp获取内容中第一张图片和全部图片代码
• ASP提交Post数据到远程网站的方法
• win2003空间支持access2007、2010数据库.accdb的方法
• ASP经常用到的代码,比较全,不可不看!
• ASP输出26个英文字母的方法代码
• ASP数据库连接、显示、添加、删除、查询等简单操作教程
• ASP几种常见分页代码
• asp使用CDO.Message发送邮件详细代码集合