取得远程文件并保存到本地

王朝asp·作者佚名 2006-01-09

宽屏版字体: 小|中|大|超大

'****************************************************************************

'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