ASP保存远程图片文件到本地代码
分类:程序开发 Tags: asp 保存远程图片 评论:0 浏览:3930 最近更新时间: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/
-
• UEditor百度编辑器在html代码模式无法更新内容的解决办法
• 打开网页自动弹出QQ对话框代码
• .htaccess中的apache rewrite规则写法详解
• asp检测email地址是否有效函数
• 把Access 2010 .accdb文件格式转换为Access 2003 .mdb操作方法
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
• asp中判断一个字符是不是汉字
• 支持中文转换的Asp UrlDecode函数
• 利用ASP显示当前网站在线人数代码
• ASP生成静态页面HTML的方法
-
• 关于网站paypal在线支付接口代码问题
• rs.open sql,conn,1,1和rs.open sql,conn,1,3的意思
• iis如何支持.webp图片格式访问
• FCKEditor2.5编辑器设置及修改方法For ASP,支持UTF-8编码
• 263企业邮箱配置foxmail收发信教程
• 如何免费点亮、关闭熄灭QQTalk团队语音图标?
• 安装浏览器插件Fatkun,实现下载任意网页上的图片视频
• 解决ZOHO企业邮箱发信提示服务器不支持ssl,发信失败问题
• 11.11光棍节搞笑短信+光棍节搞笑QQ表情+光棍节的由来
• 国外提供域名免费DNS解析服务商收集