不用WinRar只有asp把网络空间上的文件打包下载

不用WinRar只有asp把网络空间上的文件打包下载：

<%@ Language=VBScript %>

<% Option Explicit %>

<!--#include file="asptar.asp"-->

<%

Response.Buffer = True

Response.Clear

Dim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,PH,objTar

Co=0

PH="./UpFile" '文件路径 '压缩Upfile下的所有文件

   Set objTar = New Tarball

   objTar.TarFilename="LvBBS_UpdateFile.rar"  '打包的名称

   objTar.Path=PH

   set fsoBrowse=CreateObject("Scripting.FileSystemObject")

   Set theFolder=fsoBrowse.GetFolder(Server.Mappath(PH))

   Set theSubFolders=theFolder.SubFolders

   For Each T in theFolder.Files

      Temp= Temp & T.Name & "|"

      Co=Co+1

   Next

   For Each x In theSubFolders

      For Each i In X.Files

         Temp= Temp &  X.Name&"/"&i.Name&"|"

         Co=Co+1

      Next

   Next

   If Co<1 Then

      Response.Write "暂时没有可更新的文件下载"

   'objTar.AddMemoryFile "Sorry.txt","Not File!"

   Else

      Temp=Left(Temp,Len(Temp)-1)

      FilePath=Split(Temp,"|")

      For s=0 To Ubound(FilePath)

        objTar.AddFile Server.Mappath(PH&"/"&FilePath(s))

      Next

   If Response.IsClientConnected Then

        objTar.WriteTar

        Response.Flush

   End If

   End If

   Set ObjTar = Nothing

   Set fsoBrowse= Nothing

   Set theFolder = Nothing

  Set theSubFolders = Nothing

%>

asptar.asp

<%

' UNIX Tarball creator

' ====================

' Author: Chris Read

' Version: 1.0.1

' ====================

'

' This class provides the ability to archive multiple files together into a single

' distributable file called a tarball (The TAR actually stands for Tape ARchive).

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!