<%
OnerrorresumeNext
Dimr
Setr = newrar
r.addserver.mappath ("a.gif")
r.addserver.mappath ("a.txt")
r.addserver.mappath ("tes")
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 = tidak ada
%>
<scriptLanguage = "vbscript" runat = "server">
'-----------------------------------------------------
'Deskripsi: kelas pengemasan ASP
'Penulis: Xiaohui ([email protected])
'Tautan: http: //asp2004.nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'Versi: 1.0Beta
'Hak Cipta: Karya ini gratis untuk digunakan, tapi tolong jangan hapus informasi hak cipta
'-----------------------------------------------------
Classrar
Dimfiles, Packname, S, S1, S2, Rootpath, FSO, F, Buf
Privatesubclass_initialize
Mengacak
Dimrannum
rannum = int (90000*rnd) +10000
packname = tahun (sekarang) & bulan (sekarang) & hari (sekarang) & jam (sekarang) & menit (sekarang) & kedua (sekarang) & rannum & ". ASP2004"
rootpath = server.mappath ("./")
SetFiles = Server.CreateObject ("Scripting.Dictionary")
SetFSO = server.CreateObject ("Scripting.FilesystemObject")
Set = server.createObject ("adodb.stream"): s.open:sype=1
Sets1 = server.createObject ("adodb.stream"): s1.open:s1.type=1
Sets2 = server.CreateObject ("adodb.stream"): s2.open:s2.type=2
Endsub
Privatesubclass_terminate
S.close: set = tidak ada
s1.close: sets1 = tidak ada
s2.close: sets2 = tidak ada
Setfso = tidak ada
Endsub
Publicsubadd (OBJ)
Ifffso.fileexists (OBJ) lalu
Setf = fso.getFile (OBJ)
file.addobj, f.size
Elseifso.folderexists (OBJ) Lalu
file.addobj, -1
Setf = fso.getFolder (OBJ)
Setfc = f.files
Foreachf1infc
Tambahkan (lcase (f1.path))
Berikutnya
Endif
Endsub
Publicsubpack
Dimstr
a = file.keys
b = file.items
fori = 0tofiles.count-1
Ifb (i)> = 0then
S.LoadFromFile (A (i))
buf = s.read
IFNOTISNULL (buf) thens1.write (buf)
Endif