<% ''''**************************************************************************** ''''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 %>
[VB.NET程序]把握VB.NET中的流(Stream) (三) [VB.NET程序]把握VB.NET中的流(Stream) (二) [VB.NET程序]把握VB.NET中的流(Stream) (一) [Delphi程序]variant 和 Stream 的互換 [Web开发]用ADODB.Stream代替FSO读取文本文件 [Web开发]ASP中利用ADODB.Stream对象将字节流转换为字符流 [Web开发]用Adodb.Stream将以二进制方式保存在数据库中的文… [Web开发]指南:从MySQL转向ADODB(2) [Web开发]指南:从MySQL转向ADODB(1) [Web开发]面向对象的asp编程之五--adodb的类封装
|