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

使用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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-992988/