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

ASP
如何在 Access 2003 和 Access 2002 中创建 DSN 的连接到 SQLServer 对链接表
值得收藏的一些HTML、JavaScript、ASP代码
Asp遍历服务器对象的代码
保证asp叶面一定不会出现乱码 UTF8
ASP 非法字符过滤函数
ASP FSO文件处理函数大全
asp 常用函数用法
文章内页类
Asp类 的数据库领域
ASP ACCESS 日期操作语句小结 By Stabx
经典的分页完整程序+注释
vbcrlf的意思
js+asp总结
解决rs.absolutepage=-1的问题
ASP实现URL编码
FileSystemObject 对象
写入文本文件的过程函数(ASP)
FSO的强大功能
FSO 读出TXT文件
不用模板，只用ASP+FSO生成静态HTML页的一个方法

No. « 39 40 41 42 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 136 ::
收藏到网摘: 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 "保存成功"
%>