<% **************************************************************************** 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 %> |
生成一个本地文件, 生成html
最新推荐文章于 2024-02-24 15:48:58 发布