不用不用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).
‘ These are common UNIX files which contain uncompressed data.
‘
‘ So what is this useful for? Well, it allows you to effectively combine multiple
‘ files into a single file for downloading. The TAR files are readable and extractable
‘ by a wide variety of tools, including the very widely distributed WinZip.
‘
‘ This script can include two types of data in each archive, file data read from a disk,
‘ and also things direct from memory, like from a string. The archives support files in
‘ a binary structure, so you can store executable files if you need to, or just store
‘ text.
‘
‘ This class was developed to assist me with a few projects and has grown with every
‘ implementation. Currently I use this class to tarball XML data for archival purposes
‘ which allows me to grab 100’s of dynamically created XML files in a single download.
‘
‘ There are a small number of properties and methods, which are outlined in the
‘ accompanying documentation.
‘
Class Tarball
Public TarFilename ‘ Resultant tarball filename
Public UserID ‘ UNIX user ID
Public UserName ‘ UNIX user name
Public GroupID ‘ UNIX group ID
Public GroupName ‘ UNIX group name
Public Permissions ‘ UNIX permissions
Public BlockSize ‘ Block byte size for the tarball (default=512)
Public IgnorePaths ‘ Ignore any supplied paths for the tarball output
Public BasePath ‘ Insert a base path with each file
Public Path
‘ Storage for file information
Private objFiles,TmpFileName
Private objMemoryFiles
‘ File list management subs, very basic stuff
Public Sub AddFile(sFilename)
objFiles.Add sFilename,sFilename
End Sub
Public Sub RemoveFile(sFilename)
objFiles.Remove sFilename
End Sub
Public Sub AddMemoryFile(sFilename,sContents)
objMemoryFiles.Add sFilename,sContents
End Sub
Public Sub RemoveMemoryFile(sFilename)
weixin_38732519
- 粉丝: 2
最新资源
- 工程的项目管理系统解决方案设计.doc
- 自动喷泉PLC-控制系统.doc
- 校园无线网络技术及应用发展(英文版).pptx
- 综合实践活动课《网络的利与弊》分析PPT课件.ppt
- LED显示屏控制软件操作手册Wifi精简版.doc
- 项目管理文档规格表样本.doc
- 计算机技术系请假条存根.doc
- 完美版课件单片机原理与接口技术复习重点.ppt
- 基于JEE的猪肉质量安全可追溯网络化系统研究基于We.pptx
- 企业大数据架构图网络拓扑.pptx
- 极限运算法则07278.pptx
- 银行ATM机无线网络组网解决方案.doc
- 弱电工程师培训资料-第三章-分类设计要求-7机房-综合布线系统的电气防护原则.doc
- 动漫网站策划书.doc
- 互联网环境下内部审计的华丽转身[会计实务优质文档].doc
- 网络系统施工报告.doc
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
评论0