<%
Onerrorresumenext
Dimr
Setr = newrar
r.addserver.mappath ("a.gif")
r.addserver.mappath ("a.txt")
r.addserver.mappath ("test")
r.addserver.mappath ("file.asp")
r.packName = server.mappath ("xxx.dat")
r.pack
r.rootpath = server.mappath ("xxx")
r.packName = server.mappath ("xxx.dat")
R.Unpack
Response.Write (Err.Description)
Setr = rien
%>
<criptLanguage = "vbscript" runat = "server">
'-----------------------------------------------------
'Description: cours d'emballage ASP
'Auteur: XiaoHui ([email protected])
'Lien: http: //asp2004.nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'Version: 1.0beta
'Copyright: ce travail est gratuit, mais veuillez ne pas supprimer les informations sur le droit d'auteur
'-----------------------------------------------------
Classe
DimFiles, PackName, S, S1, S2, RootPath, FSO, F, BUF
PrivésubClass_Initialize
Randomiser
Diable
rannum = int (90000 * rnd) +10000
packName = année (maintenant) et mois (maintenant) et jour (maintenant) et hour (maintenant) & Minute (maintenant) & Second (maintenant) & Rannum & ". ASP2004"
rootpath = server.mappath ("./")
SetFiles = server.createObject ("scripting.dictionary")
Setfso = server.createObject ("scripting.filesystemObject")
Sets = server.createObject ("adodb.stream"): s.open:.type=1
Sets1 = server.createObject ("adodb.stream"): s1.open:s1.type=1
Sets2 = server.createObject ("adodb.stream"): s2.open:s2.type=2
Fin
PrivésUbclass_termince
S.Close: sets = rien
s1.close: sets1 = rien
S2.Close: sets2 = rien
Setfso = rien
Fin
Publicsubadd (OBJ)
Ifffso.fileexists (obj) puis
Setf = fso.getfile (obj)
files.addobj, f.size
Elseifso.folderexists (obj) alors
files.addobj, -1
Setf = fso.getfolder (obj)
Setfc = f.files
Foreachf1infc
Ajouter (lCase (f1.path))
Suivant
Endire
Fin
Publicsubpack
DIMSTR
a = fichiers.keys
b = files.items
fori = 0tofiles.Count-1
IFB (i)> = 0THEN
S.LoadFromfile (a (i))
buf = s.read
Ifnotisnull (buf) thens1.write (buf)
Endire