Die Codekopie lautet wie folgt:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//1.c:/windows/system32/cmd.exe
'// Kopieren Sie den Pfad, auf dem sich diese Datei befindet
'//
'//2.Change c: /program/winrar/rar.exe
'// Kopieren Sie den Pfad, in dem sich diese Datei befindet, und benennen Sie sie in Winrar.exe um
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'// CompressPath (BYVALS)
'// Pfad zur komprimierten Datei | String -Variante
'//
'// DecompressPath (Byvals)
'// dekomprimieren den Ordner der Datei -String -Variante
'//
'//Kompresse
'// Online -Komprimierung
'//
'//dekomprimieren
'// Online -Dekompression
'//
'// PowerByNever-online
'//
'//Email: bloedEstiny für 926.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
OptionExPlicit
classCompress_decpress_files
Privatversion, Urheberrecht
privateowshshell, vonso
private CompressPath, SDecompressPath
privateSubclass_initialize
Version = "compress_decpress_filesbuilder20051015"
Copyright = "PowerByMiracle (Bluedestiny)"
SetOfSO = server.createObject ("scripting.filesystemObject"))
Setowshshell = server.createObject ("wscript.shell")
WriteLN (Version+"<br>"+Copyright)
Ende
privateSubclass_terate
ifosObject (owshshell) thensetowshshell = nichts
ifosObject (ofso) thensetofso = nichts
Ende
privatfunktionPhysicalPath (Byvals)
PhysicalPath = Server.Mappath (s)
Endfunktion
privateSubvalidateFile (Byvals)
IFOFSO.FILEExists (s) thexitsub
IFOFSO.FORDEREXISTS (S) STEEXITSUB
Callerr "Datei (Ordner) Notizer!"
Ende
privateSubCreateFolder (Byvals)
IFOFSO.FORDEREXISTS (S) STEEXITSUB
OFSO.CreateFolder (en)
Ende
privateSubwriteln (Byvals)
response.write "<p>"+s+"</p>"+vbcrlf
Ende
privateSubcallerr (Byvals)
WRITELN "<p> <b> Fehler: </b> </p>"+s
Antwort.end
Ende
privateSubcallsucc (Byvals)
WriteLN "<p> <b> Erfolg: </b> </p>"+s
Ende
publicsubcompress
validate file (scompressPath)
owshshell.run ("Winrara"+ScomPressPath+""+SDecompressPath & "")