<%
OnerRorResumenext
Димр
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 = ничего
%>
<scriptlanguage = "vbscript" runat = "server">
'-----------------------------------------------------
'Описание: класс упаковки ASP
Автор: xiaohui ([email protected])
Ссылка: http: //asp2004.nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'Версия: 1.0beta
'Copyright: эта работа бесплатна для использования, но, пожалуйста, не удаляйте информацию об авторском праве
'-----------------------------------------------------
Классрар
Dimfiles, PackName, S, S1, S2, RootPath, FSO, F, Buf
Privatesubclass_initialize
Рандомизировать
Dimrannum
rannum = int (90000*rnd) +10000
PackName = Год (сейчас) и месяц (сейчас) и день (сейчас) и час (сейчас) и минута (сейчас) и второй (сейчас) и 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:s2.type=2
Заканчивая
PrivateBclass_terminate
S.Close: Sets = ничего
S1.close: sets1 = ничего
s2.close: sets2 = ничего
Setfso = ничего
Заканчивая
Publicsubadd (obj)
Ifffso.fileexists (OBJ) тогда
Setf = fso.getfile (obj)
files.addobj, f.size
Elseifso.folderexists (OBJ) тогда
files.addobj, -1
Setf = fso.getFolder (obj)
Setfc = f.files
Foreachf1infc
Добавить (lcase (f1.path))
Следующий
Эндиф
Заканчивая
Publicsubpack
Димстр
a = files.keys
b = files.items
fori = 0tofiles.count-1
Ifb (i)> = 0then
s.loadfromfile (a (i))
buf = s.read
Ifnotisnull (buf) thens1.write (buf)
Эндиф