-
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
Response.write (err.description)
setr = ไม่มีอะไร
-
<scriptLanguage = "vbscript" runat = "เซิร์ฟเวอร์">
-
'คำอธิบาย: คลาสบรรจุภัณฑ์ ASP
'ผู้แต่ง: Xiaohui ([email protected])
'ลิงก์: http: //asp2004.nethttp: //blog.csdn.net/iuhxqhttp: //bbs.asp2004.net
'เวอร์ชัน: 1.0beta
'ลิขสิทธิ์: งานนี้ใช้งานได้ฟรี แต่โปรดอย่าลบข้อมูลลิขสิทธิ์
-
ชั้นเรียน
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
enddub
privateSubclass_terminate
s.close: sets = ไม่มีอะไร
s1.close: sets1 = ไม่มีอะไร
s2.close: sets2 = ไม่มีอะไร
setfso = ไม่มีอะไร
enddub
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))
ต่อไป
endif
enddub
Publicsubpack
Dimstr
a = files.keys
b = files.items
fori = 0tofiles.count -1
ifb (i)> = 0 แล้ว
s.loadfromfile (a (i))
buf = s.read
ifnotisnull (buf) thens1.write (buf)
endif