【下一篇】 【上一篇】
0

asp函数：SaveRemoteFile

作者：情留メ蚊子  发表于：2008年11月30日 14:29  分类：技术文档  1828 次阅读 

  1. '============================================ 
  2.  
  3. '函数名：SaveRemoteFile 
  4.  
  5. '作 用：远程文件自动保存到本地服务器 
  6.  
  7. '参数：RemoteFileUrl ------远程文件URL 
  8.  
  9. '参数：LocalFileName ------本地文件名 
  10.  
  11. '============================================ 
  12.  
  13. Sub SaveRemoteFile(RemoteFileUrl,LocalFileName) 
  14.  
  15.     Dim Ads, Retrieval, GetRemoteData 
  16.  
  17.     On Error Resume Next 
  18.     Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") 
  19.     With Retrieval 
  20.         .Open "Get", RemoteFileUrl, False, "", "" 
  21.  
  22.         .Send 
  23.         GetRemoteData = .ResponseBody 
  24.  
  25.     End With 
  26.     Set Retrieval = Nothing 
  27.     Set Ads = Server.CreateObject("Adodb.Stream") 
  28.     With Ads 
  29.         .Type = 1 
  30.         .Open 
  31.         .Write GetRemoteData 
  32.  
  33.         .SaveToFile LocalFileName, 2 
  34.         .Cancel() 
  35.         .Close() 
  36.     End With 
  37.     Set Ads=nothing 
  38. End Sub 

 

本文固定链接: http://www.94qing.com/technology/asp-SaveRemoteFile/ | 情留メ蚊子's Blog

作者: 情留メ蚊子
该日志由 情留メ蚊子 于2008年11月30日发表在技术文档分类下， 你可以发表评论，并 在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: asp函数：SaveRemoteFile | 情留メ蚊子's Blog
关键词：

您可能还会对这些文章感兴趣！

    asp函数：SaveRemoteFile：目前有0 条评论

      给我评论

      看不清？点击更换

      快捷键：Ctrl+Enter
      Copyright © 2007-2011 情留メ蚊子s Blog. All Rights Reserved . Design by Weisay
      粤ICP备08119471号 | MQBlog | RSS