A cópia do código é a seguinte:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////5
'//
'//1.c:/windows/system32/cmd.exe
'// Copie o caminho em que este arquivo está localizado
'//
'//2.change c: /program/winrar/rar.exe
'// Copie o caminho em que este arquivo está localizado e renomeie -o para winrar.exe
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////5
'//
'// CompressPath (ByVals)
'// caminho para o arquivo comprimido | variante da string
'//
'// descompacta (ByVals)
'// descompacte a pasta da variante do arquivo | string
'//
'//compressa
'// Compressão online
'//
'//descomprimir
'// Descompressão online
'//
'// PowerbyNever-online
'//
'//Email: buedestinyssot ]126.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////5
OptionExplicit
ClassCompress_Decompress_files
PrivateVersion, direitos autorais
PrivateowShshell, Ofso
PrivatesCompressPath, sDecompressPath
privatesubclass_initialize
versão = "Compress_decompress_filesbuilder20051015"
Copyright = "PowerByMiracle (BlueDestiny)"
SETOFSO = server.createObject ("scripting.filesystemobject")
Secowshell = server.createObject ("wscript.shell")
Writeln (versão+"<br>"+direitos autorais)
endsub
privatesubclass_termine
IfosObject (OWSHSHELL) THENSETOWSHSHELL = NADA
ifosObject (OFSO) thensetofSo = nada
endsub
PrivateFunctionPhysicalPath (Byvals)
PhysicalPath = Server.Mappath (s)
Função final
PrivateSubValidateFile (Byvals)
ifofso.FileExists (s) ThenExitsub
ifofso.PoldErexists (s) ThenExitsub
Caller "Arquivo (pasta) NotoMexists!"
endsub
PrivateSubcreatEfolder (ByVals)
ifofso.PoldErexists (s) ThenExitsub
OFSO.CREATEFOLDER (s)
endsub
Privatesubwriteln (Byvals)
Response.Write "<p>"+s+"</p>"+vbcrlf
endsub
PrivatesubCallerr (Byvals)
Writeln "<p> <b> Erro: </b> </p>"+s
resposta.END
endsub
privatesubcallsucc (ByVals)
Writeln "<p> <b> Sucesso: </b> </p>"+s
endsub
PublicsubCompress
ValidateFile (ScompressPath)
OWSHSHELL.RUN ("WINRARA"+SCOMPRESSPATH+""+SDECOMPRESSPATH & "