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

我注重语言的生动性和文体丰富性。我运用形象、贴切的措辞，将文章中的事实和观点表达得更加鲜明、引人入胜。我注重使用各种文体，如描写、叙述、议论等，使文章更具表现力和感染力。

除此之外，我特别注意内容的精炼和流畅。我仔细斟酌每个词语和句子，删除冗余和重复的部分，使文章更加精炼和紧凑。我注重句子的结构，使其更加流畅和易于理解。

<%@ Language=VBScript %>

<% Option Explicit %>

<%

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 "暂时没有可更新的文件下载"

Else

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

FilePath = Split(Temp, "|")