La copia del código es la siguiente:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//1.c:/windows/system32/cmd.exe
'// Copiar la ruta donde se encuentra este archivo
'//
'//2.change c: /program/winrar/rar.exe
'// Copiar la ruta donde se encuentra este archivo y renombrarlo a winrar.exe
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'// compresspath (byvals)
'// ruta al archivo comprimido | variante de cadena
'//
'// Decompresspath (Byvals)
'// descomprime la carpeta del archivo | variante de cadena
'//
'//comprimir
'// compresión en línea
'//
'//descomprimir
'// descompresión en línea
'//
'// PowerByNever-Online
'//
'//Email:BlueDestiny+Elfont>126.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
OpcionExpliCit
classCompress_Decompress_Files
Vida privada, derechos de autor
Prontowshshell, OFSO
privateCompresspath, sdecompresspath
privatesubclass_initialize
versión = "compress_decompress_filesbuilder20051015"
Copyright = "PowerByMiracle (BlueDestiny)"
SetOfSO = server.createObject ("scripting.filesystemObject")
SetroWshell = server.createObject ("wscript.shell")
WriteLn (versión+"<br>"+copyright)
Endsub
privatesubclass_merminate
ifosObject (OWSHSHELL) Thensetowshell = nada
ifosObject (OFSO) thensetofso = nada
Endsub
PrivateFunctionPhysicalPath (Byvals)
PhysicalPath = Server.mappath (s)
Función final
privateUbvalidateFile (byvals)
ifofso.fileExists
ifofso.folderexists (s) thenexitsub
Callerr "Archivo (carpeta) ¡Notexists!"
Endsub
privateUbcreateFolder (byvals)
ifofso.folderexists (s) thenexitsub
OfSo.CreateFolder (s)
Endsub
PrivatesubWriteLn (Byvals)
Response.Write "<P>"+S+"</p>"+VBCRLF
Endsub
Privatesubcallerr (Byvals)
WriteLn "<p> <b> Error: </b> </p>"+S
respuesta.
Endsub
privatesubcallsucc (byvals)
WriteLn "<p> <b> éxito: </b> </p>"+S
Endsub
PublicsubCompress
ValidateFile (scompresspath)
owshshell.run ("Winrara"+scompresspath+""+sdecompresspath & "")