使用XMLHttp和ADODB.Stream取得远程文件并保存到本地

原创 2003年03月21日 09:22:00

<%
'****************************************************************************
'PageName:GetRemoteFiles.asp
'Function:Download the files to Server
'Author:xiaotian
'Last Modified at:2003-3-19
'****************************************************************************

'取得远程文件并保存到本地
Function GetRemoteFiels(RemotePath, LocalPath, FileName)
Dim strBody
Dim FilePath

    On Error Resume Next

    '取得流
 strBody = GetBody(RemotePath)
 '取得保存的文件名
 if Right(LocalPath, 1) <> "/" then LocalPath = LocalPath & "/"
 FilePath = LocalPath & GetFileName(RemotePath, FileName)
 '保存文件
 if SaveToFile(strBody, FilePath) = true and err.Number = 0 then
     GetRemoteFiles = true
 else
     GetRemoteFiles = false
 end if

End Function

'远程获取内容
Function GetBody(url)
Dim Retrieval
    '建立XMLHTTP对象
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", url, False, "", ""
        .Send
        GetBody = .ResponseBody
    End With
    Set Retrieval = Nothing
End Function

'重组文件名
Function GetFileName(RemotePath, FileName)
Dim arrTmp
Dim strFileExt
    arrTmp = Split(RemotePath, ".")
 strFileExt = arrTmp(UBound(arrTmp))
    GetFileName = FileName & "." & strFileExt
End Function

'将流内容保存为文件
Function SaveToFile(Stream, FilePath)
Dim objStream

    On Error Resume Next

    '建立ADODB.Stream对象,必须要ADO 2.5以上版本
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 1  '以二进制模式打开
    objStream.Open
    objstream.write Stream
    objstream.SaveToFile FilePath, 2
    objstream.Close()
    '关闭对象,释放资源
    Set objstream = Nothing

 if err.Number <> 0 then
     SaveToFile = false
 else
     SaveToFile = true
 end if
End Function
%>

php保存文章中远程图片到本地

php保存远程图片到本地,php正则匹配文章中的图片地址
  • u010349417
  • u010349417
  • 2013年12月04日 14:16
  • 791

javaScript读取txt文档的FSO对象和ADODB.Stream对象

转自:http://blog.163.com/chaosumin@126/blog/static/86387403201092793610651 在使用JavaScript读取txt文档...
  • kezhen
  • kezhen
  • 2014年12月05日 16:52
  • 1805

VB/VBA中实现数据库与文件的存取

编程完成数据库与文件的数据相互存取 'VB/VBA中实现数据库中的文件存取 '示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串 ' '*******************...
  • lijil168
  • lijil168
  • 2013年10月04日 18:19
  • 1470

VBS之adodb.stream对象的方法/属性

adodb.stream对象的方法/属性 Cancel 方法 使用方法如下 Object.Cancel 说明:取消执行挂起的异步 Execute 或 Open 方法的调用。 C...
  • icanlove
  • icanlove
  • 2014年09月19日 10:21
  • 9354

java 中 excel生成并文件下载保存到本地(三)

一个包搞定了先看看项目结构 servlet类 package com.dragon.action;import java.io.IOException;import java.io.OutputStr...
  • u010416069
  • u010416069
  • 2015年05月22日 09:28
  • 4034

二维码保存本地及上传实现

1.引包 QR 码最常见的应用便是为网站中一个特定的网页或下载页带来流量。因此,QR码常常会编码URL或网站地址,用户可以通过手机摄像头扫描,并在其浏览器中打开。URL可以直接编码在QR码中。 Q...
  • bd0806
  • bd0806
  • 2017年06月06日 18:05
  • 274

php将远程图片下载保存到本地

转载地址:http://www.cnblogs.com/mengxiaotian/p/5051579.html /* *功能:php完美实现下载远程图片保存到本地 *参数:文件url,保存文件目...
  • xiaowei_321123
  • xiaowei_321123
  • 2017年07月18日 16:35
  • 73

如何: 保存到文件的邮件附件

如何: 保存到文件的邮件附件 文章编号: 173353 - 查看本文应用于的产品 查看机器翻译免责声明 Microsoft 支持页面的机器翻译 展开全部 | 关闭全部 本页 ...
  • mhfh611
  • mhfh611
  • 2013年08月01日 11:17
  • 1346

关于如何将一个对象保存到本地文件之ObjectOutputStream、ObjectInputStream的使用小结。

做项目的时候,经常会需要本地保存一些对象,如果用数据库去保存吧,会显得大材小用;比如保存用户的登陆信息,一些页面的初始化数据,用于离线显示等等...接口返回给你一大串js格式的字符串,通常大家都会去建...
  • L_xiaole
  • L_xiaole
  • 2016年08月11日 17:51
  • 886

CBitmap 保存到文件

// http://blog.sina.com.cn/s/blog_6ee382440100moeu.html // http://apps.hi.baidu.com/share/detail/328...
  • heyzol
  • heyzol
  • 2014年03月05日 20:40
  • 3566
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用XMLHttp和ADODB.Stream取得远程文件并保存到本地
举报原因:
原因补充:

(最多只允许输入30个字)