Кода -копия выглядит следующим образом:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//1.c://windows/system32/cmd.exe
'// Скопировать путь, в котором находится этот файл
'//
'//2.change C: /program/winrar/rar.exe
'// Скопировать путь, в котором находится этот файл, и переименовать его в winrar.exe
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'// compresspath (byvals)
'// Путь к сжатому файлу | вариант строки
'//
'// decompresspath (byvals)
'// распаковывать папку файла | String Variant
'//
'//компресс
'// онлайн сжатие
'//
'// Декомпресс
'// онлайн декомпрессия
'//
'// powerbynever-online
'//
'//Email:bluedestiny®126.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
OptionExplice
classcompress_decompress_files
Личные, авторские права
PrivateWshell, Ofso
Privatescompresspath, Sdecompresspath
privatesubclass_initialize
версия = "compress_decompress_filesbuilder20051015"
Copyright = "PowerBymiracle (Bluedestiny)"
Setofso = server.createObject ("scripting.filesystemobject")
Setowshshell = server.createObject ("wscript.shell")
writeln (версия+"<br>"+авторское право)
заканчивая
PrivateBclass_terminate
ifosobject (owshshell) thensetowshshell = ничего
ifosobject (ofso) thensetofso = ничего
заканчивая
privatefunctionPhysicalPath (byvals)
PhysicalPath = server.mappath (ы)
конечная функция
Privatesubvalidatefile (byvals)
ifofso.filexists (ы) Thenexitsub
ifofso.folderexists (ы) Thenexitsub
Callerr "файл (папка) notexists!"
заканчивая
PrivateBreateFolder (Byvals)
ifofso.folderexists (ы) Thenexitsub
ofso.createfolder (ы)
заканчивая
privatesubwriteln (byvals)
response.write "<p>"+s+"</p>"+vbcrlf
заканчивая
Privatesubcallerr (Byvals)
writeln "<p> <b> ошибка: </b> </p>"+s
response.end
заканчивая
privatesubcallsucc (byvals)
writeln "<p> <b> Успех: </b> </p>"+s
заканчивая
publicsubcompress
Validatefile (ScompressPath)
owshshell.run ("winrara"+scompresspath+""+sdecompresspath & ")