ASP保存远程图片文件到本地代码
分类:程序开发 Tags: asp 保存远程图片 评论:0 浏览:3902 最近更新时间: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检测email地址是否有效函数
• ASP抽取数据的执行效率
• 在文章内容中随机插入网站版权文字,防止采集
• ASP过滤SQL非法字符并格式化html代码,不错的功能函数集
• centos系统挂载数据盘方法
• ASP Access数据库连接关闭与.ldb文件锁定解决方法
• 中国十大ASP CMS系统介绍
• MySQL报Field‘***’doesn’t have a default value错误的解决办法
• UEditor百度编辑器在html代码模式无法更新内容的解决办法
• ASP在线创建ACCESS表或添加字段代码
-
• 影响网站关键词排名的各种因素,如何对google优化
• ASP将汉字转为拼音代码
• 支持2008中国北京奥运,各式爱国T恤图案大收集
• zoho企业邮箱开启手机验证码双重认证教程
• 最新义乌公交车线路查询网站
• opencart设置价格区间筛选教程
• 如何免费点亮、关闭QQ自由幻想图标?
• 在Win7电脑上用VirtualBox虚拟机内安装Mac OS苹果系统
• 中秋节的来历、由来、传说+中秋节诗词选
• opencart网店设置PayPal Payments Standard收款教程
-
• Google Workspace gmail企业邮箱老板监控员工邮件操作方法
• zoho企业邮箱开启手机验证码双重认证教程
• 外贸网站如何使用Google Search Console谷歌管理员工具
• 腾讯企业邮箱开启安全登录后,如何登录foxmail收发信
• 获取小红书无水印图片的原理
• iis如何支持.webp图片格式访问
• FireFox火狐浏览器有用的设置方法记录
• 最新政策 Google免费版企业邮箱个人用途可以继续保留免费版
• MySQL报Field‘***’doesn’t have a default value错误的解决办法
• 抖音国际版TikTok注册过程记录