复制代码代码如下:
<%
'///////////////////////////////////////////////////////////
'//
'//1.c:/windows/system32/cmd.exe
'//拷贝把本文件所在的路径
'//
'//2.把c:/program/winrar/rar.exe
'//拷贝把本文件所在的路径并改名为WinRAR.exe
'//
'///////////////////////////////////////////////////////////
'//
'//compressPath(byVals)
'//压缩文件的路径|字符串变体
'//
'//decompressPath(byVals)
'//解压缩文件的文件夹|字符串变体
'//
'//compress
'//在线压缩
'//
'//decompress
'//在线解压缩
'//
'//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
ifisobject(oWshShell)thensetoWshShell=nothing
ifisobject(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&"")