IT猫扑网:您身边最放心的安全下载站! 最新更新|软件分类|软件专题|手机版|论坛转贴|软件发布

您当前所在位置:首页网络编程Asp编程 → asp图片采集并且本地重命名保存的函数

asp图片采集并且本地重命名保存的函数

时间:2015/6/28来源:IT猫扑网作者:网管联盟我要评论(0)

图片采集程序,将一个图片保存到本机上,并重新命名。


<%
'================================================
'作  用:保存远程的文件到本地
'参  数:LocalFileName ------ 本地文件名
'  RemoteFileUrl ------ 远程文件URL
'返回值:True  ----成功
' False ----失败
'================================================
Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
 Dim Ads, Retrieval, GetRemoteData
 On Error Resume Next
 Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
 With Retrieval
  .Open "Get", s_RemoteFileUrl, False, "", ""
  .Send
  GetRemoteData = .ResponseBody
 End With
 Set Retrieval = Nothing
 Set Ads = Server.CreateObject("Adodb.Stream")
 With Ads
  .Type = 1
  .Open
  .Write GetRemoteData
  .SaveToFile Server.MapPath(s_LocalFileName), 2
  .Cancel()
  .Close()
 End With
 Set Ads=nothing
End Sub
%>


<%
path="./pic/1.gif"
Call SaveRemoteFile(path,"https://image2.sina.com.cn/ent/v/m/2006-05-18/66cb006f0a8411644ac3da5b76c88c77.gif")
response.write "保存成功"
%>

关键词标签:命名,保存,函数,本地,

相关阅读

文章评论
发表评论

热门文章 Active Server Pages 错误 'ASP 0131'解决方Active Server Pages 错误 'ASP 0131'解决方

相关下载

人气排行 ASP下标越界的解决方法ASP代码中如何屏蔽ip地址 禁止某IP段访问网站“文件共享锁定数溢出” 原因及解决方法无法写入数据库的解决方法如何用ASP来获取客户端真实IP的地址用Asp编程实现QQ的在线情况查询ASP常用函数列表ASP用FSO生成HTML简单实例+详解[原创]