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

也想出现在这里？点击联系我~

1. <%@Language=VBScript%>
2. <%OptionExplicit%>
3. <!–#includefile="asptar.asp"–>
4. <%
5. Response.Buffer=True
6. Response.Clear
7. DimCo,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,PH,objTar
8. Co=0
9. PH="./UpFile"'文件路径'压缩Upfile下的所有文件
10. SetobjTar=NewTarball
11. objTar.TarFilename="LvBBS_UpdateFile.rar"'打包的名称
12. objTar.Path=PH
13. setfsoBrowse=CreateObject("Scripting.FileSystemObject")
14. SettheFolder=fsoBrowse.GetFolder(Server.Mappath(PH))
15. SettheSubFolders=theFolder.SubFolders
16. ForEachTintheFolder.Files
17. Temp=Temp&T.Name&"|"
18. Co=Co+1
19. Next
20. ForEachxIntheSubFolders
21. ForEachiInX.Files
22. Temp=Temp&X.Name&"/"&i.Name&"|"
23. Co=Co+1
24. Next
25. Next
26. IfCo<1Then
27. Response.Write"暂时没有可更新的文件下载"
28. 'objTar.AddMemoryFile"Sorry.txt","NotFile!"
29. Else
30. Temp=Left(Temp,Len(Temp)-1)
31. FilePath=Split(Temp,"|")
32. Fors=0ToUbound(FilePath)
33. objTar.AddFileServer.Mappath(PH&"/"&FilePath(s))
34. Next
35. IfResponse.IsClientConnectedThen
36. objTar.WriteTar
37. Response.Flush
38. EndIf
39. EndIf
40. SetObjTar=Nothing
41. SetfsoBrowse=Nothing
42. SettheFolder=Nothing
43. SettheSubFolders=Nothing
45. %>
47. asptar.asp
49. <%
50. 'UNIXTarballcreator
51. '====================
52. 'Author:ChrisRead
53. 'Version:1.0.1
54. '====================
55. '
56. 'Thisclassprovidestheabilitytoarchivemultiplefilestogetherintoasingle
57. 'distributablefilecalledatarball(TheTARactuallystandsforTapeARchive).
58. 'ThesearecommonUNIXfileswhichcontainuncompresseddata.
59. '
60. 'Sowhatisthisusefulfor?Well,itallowsyoutoeffectivelycombinemultiple
61. 'filesintoasinglefilefordownloading.TheTARfilesarereadableandextractable
62. 'byawidevarietyoftools,includingtheverywidelydistributedWinZip.
63. '
64. 'Thisscriptcanincludetwotypesofdataineacharchive,filedatareadfromadisk,
65. 'andalsothingsdirectfrommemory,likefromastring.Thearchivessupportfilesin
66. 'abinarystructure,soyoucanstoreexecutablefilesifyouneedto,orjuststore
67. 'text.
68. '
69. 'Thisclasswasdevelopedtoassistmewithafewprojectsandhasgrownwithevery
70. 'implementation.CurrentlyIusethisclasstotarballXMLdataforarchivalpurposes
71. 'whichallowsmetograb100'sofdynamicallycreatedXMLfilesinasingledownload.
72. '
73. 'Thereareasmallnumberofpropertiesandmethods,whichareoutlinedinthe
74. 'accompanyingdocumentation.
75. '
76. ClassTarball
77. PublicTarFilename'Resultanttarballfilename
79. PublicUserID'UNIXuserID
80. PublicUserName'UNIXusername
81. PublicGroupID'UNIXgroupID
82. PublicGroupName'UNIXgroupname
84. PublicPermissions'UNIXpermissions
86. PublicBlockSize'Blockbytesizeforthetarball(default=512)
88. PublicIgnorePaths'Ignoreanysuppliedpathsforthetarballoutput
89. PublicBasePath'Insertabasepathwitheachfile
90. PublicPath
92. 'Storageforfileinformation
93. PrivateobjFiles,TmpFileName
94. PrivateobjMemoryFiles
96. 'Filelistmanagementsubs,verybasicstuff
97. PublicSubAddFile(sFilename)
98. objFiles.AddsFilename,sFilename
99. EndSub
101. PublicSubRemoveFile(sFilename)
102. objFiles.RemovesFilename
103. EndSub
105. PublicSubAddMemoryFile(sFilename,sContents)
106. objMemoryFiles.AddsFilename,sContents
107. EndSub
109. PublicSubRemoveMemoryFile(sFilename)
110. objMemoryFiles.RemovesFilename
111. EndSub
113. 'Sendthetarballtothebrowser
114. PublicSubWriteTar()
115. DimobjStream,objInStream,lTemp,aFiles
117. SetobjStream=Server.CreateObject("ADODB.Stream")'Themainstream
118. SetobjInStream=Server.CreateObject("ADODB.Stream")'Theinputstreamfordata
120. objStream.Type=2
121. objStream.Charset="x-ansi"'GoodoldextendedASCII
122. objStream.Open
124. objInStream.Type=2
125. objInStream.Charset="x-ansi"
127. 'Gothroughallfilesstoredondiskfirst
128. aFiles=objFiles.Items
130. ForlTemp=0toUBound(aFiles)
131. objInStream.Open
132. objInStream.LoadFromFileaFiles(lTemp)
133. objInStream.Position=0
134. 'ExportFileaFiles(lTemp),objStream,objInStream
135. TmpFileName=replace(aFiles(lTemp),Server.Mappath(Path)&"\\","")
136. ExportFileTmpFileName,objStream,objInStream
137. objInStream.Close
138. Next
140. 'Nowaddstufffrommemory
141. aFiles=objMemoryFiles.Keys
143. ForlTemp=0toUBound(aFiles)
144. objInStream.Open
145. objInStream.WriteTextobjMemoryFiles.Item(aFiles(lTemp))
146. objInStream.Position=0
147. ExportFileaFiles(lTemp),objStream,objInStream
148. objInStream.Close
149. Next
151. objStream.WriteTextString(BlockSize,Chr(0))
153. 'Rewindthestream
154. 'Remembertochangethetypebacktobinary,otherwisethewritewilltruncate
155. 'pastthefirstzerobytecharacter.
156. objStream.Position=0
157. objStream.Type=1
158. 'Setallthebrowserstuff
159. Response.AddHeader"Content-Disposition","filename="&TarFilename
160. Response.ContentType="application/x-tar"
161. Response.BinaryWriteobjStream.Read
163. 'Closeitandgohome
164. objStream.Close
165. SetobjStream=Nothing
166. SetobjInStream=Nothing
167. EndSub
169. 'Buildaheaderforeachfileandsendthefilecontents
170. PrivateSubExportFile(sFilename,objOutStream,objInStream)
171. DimlStart,lSum,lTemp
173. lStart=objOutStream.Position'Recordwhereweareupto
175. IfIgnorePathsThen
176. 'Weignoreanypathsprefixedtoourfilenames
177. lTemp=InStrRev(sFilename,"\\")
178. iflTemp<>0then
179. sFilename=Right(sFilename,Len(sFilename)-lTemp)
180. endif
181. sFilename=BasePath&sFilename
182. EndIf
184. 'Buildtheheader,everythingisASCIIinoctalexceptforthedata
185. objOutStream.WriteTextLeft(sFilename&String(100,Chr(0)),100)
186. objOutStream.WriteText"100"&Right("000"&Oct(Permissions),3)&""&Chr(0)'Filemode
187. objOutStream.WriteTextRight(String(6,"")&CStr(UserID),6)&""&Chr(0)'uid
188. objOutStream.WriteTextRight(String(6,"")&CStr(GroupID),6)&""&Chr(0)'gid
189. objOutStream.WriteTextRight(String(11,"0")&Oct(objInStream.Size),11)&Chr(0)'size
190. objOutStream.WriteTextRight(String(11,"0")&Oct(dateDiff("s","1/1/197010:00",now())),11)&Chr(0)'mtime(Numberofsecondssince10amonthe1stJanuary1970(10amcorrect?)
191. objOutStream.WriteText"0"&String(100,Chr(0))'chksum,typeflagandlinkname,writeoutallblankssothattheactualchecksumwillgetcalculatedcorrectly
192. objOutStream.WriteText"ustar"&Chr(0)'magicandversion
193. objOutStream.WriteTextLeft(UserName&String(32,Chr(0)),32)'uname
194. objOutStream.WriteTextLeft(GroupName&String(32,Chr(0)),32)'gname
195. objOutStream.WriteText"40"&String(4,Chr(0))'devmajor,devminor
196. objOutStream.WriteTextString(167,Chr(0))'prefixandleader
197. objInStream.CopyToobjOutStream'Sendthedatatothestream
199. if(objInStream.SizeModBlockSize)>0then
200. objOutStream.WriteTextString(BlockSize-(objInStream.SizeModBlockSize),Chr(0))'Paddingtothenearestblockbyteboundary
201. endif
203. 'Calculatethechecksumfortheheader
204. lSum=0
205. objOutStream.Position=lStart
207. ForlTemp=1ToBlockSize
208. lSum=lSum+(Asc(objOutStream.ReadText(1))And&HFF&)
209. Next
211. 'Insertit
212. objOutStream.Position=lStart+148
213. objOutStream.WriteTextRight(String(7,"0")&Oct(lSum),7)&Chr(0)
215. 'Movetotheendofthestream
216. objOutStream.Position=objOutStream.Size
217. EndSub
219. 'Starteverythingoff
220. PrivateSubClass_Initialize()
221. SetobjFiles=Server.CreateObject("Scripting.Dictionary")
222. SetobjMemoryFiles=Server.CreateObject("Scripting.Dictionary")
224. BlockSize=512
225. Permissions=438'UNIX666
227. UserID=0
228. UserName="root"
229. GroupID=0
230. GroupName="root"
232. IgnorePaths=False
233. BasePath=""
235. TarFilename="new.tar"
236. EndSub
238. PrivateSubClass_Terminate()
239. SetobjMemoryFiles=Nothing
240. SetobjFiles=Nothing
241. EndSub
242. EndClass
243. %>