<٪
onerrorresumenext
Dimr
setr = newrar
R.Addserver.mappath ("A.GIF")
R.Addserver.mappath ("A.TXT")
R.Addserver.mappath ("اختبار")
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
استجابة. write (err.description)
setr = لا شيء
٪>
<scriptLanguage = "vbscript" runat = "server">
'-----------------------------------------------
الوصف: فئة التغليف ASP
'المؤلف: xiaohui ([email protected])
"الرابط: http: //asp2004.nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'النسخة: 1.0beta
حقوق الطبع والنشر: هذا العمل مجاني للاستخدام ، ولكن يرجى عدم إزالة معلومات حقوق الطبع والنشر
'-----------------------------------------------
classrar
dimfiles ، packname ، s ، s1 ، s2 ، rootpath ، fso ، f ، buf
privatesubclass_initialize
عشوائي
ديمرينوم
rannum = int (90000*rnd) +10000
Packname = year (الآن) وشهر (الآن) و day (الآن) وساعة (الآن) و Minute (الآن) والثانية (الآن) و 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
ينتهي
privatesubclass_terminate
S.Close: مجموعات = لا شيء
s1.close: sets1 = لا شيء
S2.Close: Sets2 = لا شيء
setfso = لا شيء
ينتهي
publicsubadd (OBJ)
ifffso.filexists (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))
التالي
Endif
ينتهي
publicsubpack
Dimster
a = files.keys
ب = ملفات
fori = 0tofiles.count-1
IFB (i)> = 0then
s.loadfromfile (a (i))
buf = s.read
ifnotisnull (buf) thens1.write (buf)
Endif