<%
OnErrorresumeNext
Dimr
Setr = newrar
R.AddServer.MAppath ("A.Gif")
R.AddServer.MAppath ("A.TXT")
R.AddServer.MAppath ("Test")
R.AddServer.Mappath ("Datei.asp")
r.packname = server.mappath ("xxx.dat")
R.Pack
R.RootPath = Server.Mappath ("xxx")
r.packname = server.mappath ("xxx.dat")
R.Unpack
Antwort.Write (Err.Description)
Setr = nichts
%>
<scriptuanguage = "vbScript" Runat = "Server">
'-------------------------------------------------
'Beschreibung: ASP -Verpackungsklasse
'Autor: xiaohui ([email protected])
'Link: http: //asp2004.Nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'Version: 1.0beta
'Copyright: Diese Arbeit kann kostenlos verwendet werden, aber bitte entfernen Sie keine Copyright -Informationen
'-------------------------------------------------
Klassenrar
DimFiles, Packname, S, S1, S2, RootPath, FSO, F, Buf
PrivateSubclass_initialize
Randomisieren
DiMrannum
Rannum = int (90000*RND) +10000
packname = Jahr (jetzt) & monat (jetzt) & tag (jetzt) & stündlich (jetzt) & minute (jetzt) & zweiter (jetzt) & rannum & ". ASP2004"
rootPath = server.mappath ("./")
Setfiles = server.createObject ("scripting.Dictionary")
Setfso = server.createObject ("scripting.filesystemObject")
Sets = server.createObject ("adodb.stream"): S.Open:S.Type=1
Sets1 = server.createObject ("adodb.stream"): s1.open:S1.Type=1
Sets2 = server.createObject ("adodb.stream"): s2.open:2.type=2
Ende
PrivateSubclass_terate
S.CLOSE: sets = nichts
s1.close: sets1 = nichts
S2.CLOSE: sets2 = nichts
Setfso = nichts
Ende
Publicsubadd (OBJ)
IFFFSO.FILEExists (OBJ) dann
Setf = fso.getFile (OBJ)
Dateien.Addobj, F.Size
Elseifso.FORDEREXISTS (OBJ) dann
Dateien.Addobj, -1
Setf = fso.getFolder (OBJ)
Setfc = f.files
Foreachf1infc
Add (lase (f1.Path))
Nächste
Endif
Ende
Publicsubpack
Dimstr
a = Dateien.Keys
B = Dateien.Items
fei = 0TOFILES.COUNT-1
IFB (i)> = 0Then
S. loadfromfile (a (i))
buf = S.Read
Ifnotisnull (buf) then1.write (buf)
Endif