ITPub博客

首页 > 应用开发 > IT综合 > 使用XMLHttp和ADODB.Stream取得远程文件并保存到本地 (转)

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

原创 IT综合 作者:worldblog 时间:2007-12-13 16:29:13 0 删除 编辑
使用XMLHttp和ADODB.Stream取得远程文件并保存到本地 (转)[@more@]

<%
'****************************************************************************
'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
%>


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992988/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2411225