The code copy is as follows:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//1.c:/windows/system32/cmd.exe
'//Copy the path where this file is located
'//
'//2.Change c:/program/winrar/rar.exe
'//Copy the path where this file is located and rename it to WinRAR.exe
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
'//
'//compressPath(byVals)
'//Path to compressed file|String variant
'//
'//decompressPath(byVals)
'//Decompress the folder of the file|String variant
'//
'//compress
'//Online compression
'//
'//decompress
'//Online decompression
'//
'//POWERBYnever-online
'//
'//EMAIL:Bluedestiny[at]126.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////
OPTIONEXPLICIT
classCOMPRESS_DECOMPRESS_FILES
privateversion, copyright
privateoWshShell,oFso
privatesCompressPath,sDecompressPath
privatesubclass_initialize
version="COMPRESS_DECOMPRESS_FILESBUILDER20051015"
copyright="POWERBYMIRACLE(BLUEDESTINY)"
SetoFso=server.CreateObject("scripting.FileSystemObject")
SetoWshShell=server.CreateObject("Wscript.Shell")
writeLn(version+"<br>"+copyright)
endSub
privatesubclass_terminate
ifosobject(oWshShell)thensetoWshShell=nothing
ifosobject(oFso)thensetoFso=nothing
endSub
privatefunctionphysicalPath(byVals)
physicalPath=server.mappath(s)
endFunction
privatesubvalidateFile(byVals)
ifoFso.FileExists(s)thenexitsub
ifoFso.FolderExists(s)thenexitsub
callErr"file(folder)notexists!"
endSub
privatesubcreateFolder(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
response.End
endsub
privatesubcallSucc(byVals)
writeLn"<p><b>SUCCESS:</b></p>"+s
endSub
publicsubcompress
validateFile(sCompressPath)
oWshShell.run("WinRARA"+sCompressPath+""+sDecompressPath&"")