【下一篇】 【上一篇】
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

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

    给我评论

    看不清?点击更换

    快捷键:Ctrl+Enter