การคัดลอกรหัสมีดังนี้:
-
-
-
'//1.c:/windows/system32/cmd.exe
'// คัดลอกพา ธ ที่ไฟล์นี้อยู่
-
'//2.change C: /program/winrar/rar.exe
'// คัดลอกพา ธ ที่ไฟล์นี้อยู่และเปลี่ยนชื่อเป็น winrar.exe
-
-
-
'// compresspath (byvals)
'// พา ธ ไปยังไฟล์บีบอัด | ตัวแปรสตริง
-
'// decompresspath (byvals)
'// decompress โฟลเดอร์ของไฟล์ | ตัวแปรสตริง
-
'// ประคบ
'// การบีบอัดออนไลน์
-
'// decompress
'// การบีบอัดออนไลน์
-
'// powerbynever-online
-
'//email:bluedestiny อยู่ที่เดียวกัน 126.com
-
-
ตัวเลือก Explicit
classcompress_decompress_files
PrivateVersion ลิขสิทธิ์
Privateowshshell, OFSO
PrivateScompressPath, sdecompresspath
Privatesubclass_initialize
เวอร์ชัน = "compress_decompress_filesbuilder20051015"
Copyright = "PowerByMiracle (bluedestiny)"
setOfso = server.createObject ("Scripting.FilesYstemObject")
setowshshell = server.createObject ("wscript.shell"))
writeln (เวอร์ชัน+"<br>"+ลิขสิทธิ์)
enddub
privateSubclass_terminate
ifosObject (Owshshell) thensetowshshell = ไม่มีอะไร
ifosObject (OFSO) thensetofso = ไม่มีอะไร
enddub
PrivateFunctionphysicalPath (byvals)
PhysicalPath = Server.Mappath (s)
endfunction
PrivatesubvalidateFile (byvals)
ifofso.fileexists (s) thenexitsub
ifofso.folderexists (s) thenexitsub
callerr "ไฟล์ (โฟลเดอร์) notexists!"
enddub
PrivatesubCreateFolder (byvals)
ifofso.folderexists (s) thenexitsub
OFSO.CreateFolder (s)
enddub
PrivatesubwriteLn (byvals)
Response.write "<p>"+s+"</p>"+vbcrlf
enddub
Privatesubcallerr (byvals)
writeln "<p> <b> ข้อผิดพลาด: </b> </p>"+s
Response.end
enddub
Privatesubcallsucc (byvals)
writeln "<p> <b> ความสำเร็จ: </b> </p>"+s
enddub
Publicsubcompress
ValidateFile (ScompressPath)
OWSHSHELL.RUN ("Winrara"+ScompressPath+""+SdecompressPath & "")