当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp图片采集并且本地重命名保存的函数

ASP
使用ASP开发web站点
Web设计里的软件工程思想
关于Adodb.Stream 的使用说明
处理ASP请求的内部讨论
ASP 开发准则
WebClass入门(1)
ASP代码中的容错机制
ASP、PHP和JSP的比较
asp简介和五大内置对象
全面解析Server对象
ASP的技术特点与使用方法
从ASP迁移至ASP+--最初的考虑（二）
ASP+与ASP有什么不同
session和cookie的最深刻理解
asp程序错误详细说明例表
简单WEB开发规范
HTA的简单应用
关于学习c++和编程的50个观点(学什么都适用)
常见的80004005错误及其解决方法
ASP教程：不连数据库进行查询分页的思路

No. « 13 14 15 16 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 63 ::
收藏到网摘: n/a

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

 


<%
'================================================
'作  用：保存远程的文件到本地
'参  数：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,"http://image2.sina.com.cn/ent/v/m/2006-05-18/66cb006f0a8411644ac3da5b76c88c77.gif")
response.write "保存成功"
%>