<%
OnErrorReSumenext
Dimr
SetR = newrar
r.addserver.mappath ("a.gif")
r.addserver.mappath ("a.txt")
r.addserver.mappath ("teste")
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 = nada
%>
<scriptLanguage = "vBScript" runat = "server">
'-----------------------------------------------------
'Descrição: ASP Packaging Class
'Autor: Xiaohui ([email protected])
'Link: http: //asp2004.nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'Versão: 1.0beta
'Direitos autorais: este trabalho é gratuito para usar, mas não remova as informações de direitos autorais
'-----------------------------------------------------
Classrar
Dimfiles, PackName, S, S1, S2, Rootpath, FSO, F, BUF
Privatesubclass_initialize
Randomizar
DIMRANNUM
rannum = int (90000*rnd) +10000
packName = ano (agora) e mês (agora) e dia (agora) e hora (agora) & minuto (agora) e segundo (agora) & rannum & ". ASP2004"
rootpath = server.mappath ("./")
Setfiles = server.createObject ("scripting.dictionary")
Setfso = server.createObject ("scripting.filesystemobject")
Sets = server.createObject ("adodb.stream"): s.open:stype=1
Sets1 = server.createObject ("adodb.stream"): s1.open:s1.type=1
Sets2 = server.createObject ("adodb.stream"): s2.open:s2.type=2
Endsub
Privatesubclass_termine
S.Close: Conjuntos = nada
S1.Close: Sets1 = Nada
S2.Close: Sets2 = nada
Setfso = nada
Endsub
Publicsubadd (OBJ)
Ifffso.FileExists (OBJ) então
Setf = fso.getFile (OBJ)
files.addobj, f.size
Elseifso.Polderexists (OBJ) então
files.addobj, -1
Setf = fso.getFolder (obj)
Setfc = f.files
Foreachf1infc
Add (lcase (f1.path))
Próximo
Endif
Endsub
Publicsubpack
Dimstr
a = files.keys
b = arquivos.items
fori = 0tofiles.count-1
Ifb (i)> = 0then
s.loadfromfile (a (i))
buf = s.read
Ifnotisnull (buf) thens1.write (buf)
Endif