ASP解压缩（在线解压缩类）
2018-09-06 11:25
复制代码 代码如下:
<%
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\
\\1.c:\windows\system32\cmd.exe
\\拷贝把本文件所在的路径
\\
\\2.把c:\program\winrar\rar.exe
\\拷贝把本文件所在的路径并改名为WinRAR.exe
\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\
\\compressPath(byVals)
\\压缩文件的路径字符串变体
\\
\\decompressPath(byVals)
\\解压缩文件的文件夹字符串变体
\\
\\compress
\\在线压缩
\\
\\decompress
\\在线解压缩
\\
\\POWERBYnever-online
\\
\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
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
callErrfile(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&)
ifErr.number>0thencallErr(compresslost!)
callSucc(compress<b>+sDecompressPath+</b>to<b>+sCompressPath+.rar</b>successfully!)
endSub
publicsubdecompress
validateFile(sCompressPath)
createFolder(sDecompressPath)
oWshShell.run(WinRARX+sCompressPath++sDecompressPath&)
ifErr.number>0thencallErr(decompresslost!)
callSucc(decompress<b>+sCompressPath+.rar</b>to<b>+sDecompressPath+</b>successfully!)
endsub
publicpropertyLetcompressPath(byVals)
sCompressPath=physicalPath(s)
endproperty
publicpropertyLetdecompressPath(byVals)
sDecompressPath=physicalPath(s)
endproperty
Endclass
%>
<!DOCTYPEHTMLPUBLIC-//W3C//DTDHTML4.0Transitional//EN>
<HTML>
<HEAD>
<TITLE>asp在线解压缩</TITLE>
<METANAME=GeneratorCONTENT=EditPlus>
<METANAME=AuthorCONTENT=>
<METANAME=KeywordsCONTENT=>
<METANAME=DescriptionCONTENT=>
<style>
*{
font-size:10.2pt;
font-family:tahoma;
}
</style>
</HEAD>
<BODY>
<%
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\
\\设有压缩文件compress.rar
\\需压缩文件decompressFolder文件夹
\\
\\将compress.rar解压缩至1文件夹
\\将decompressFolder文件夹压缩至2.rar
\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
dimoExample
setoExample=newCOMPRESS_DECOMPRESS_FILES
oExample.decompresspath=1
oExample.compress
oExample.compressPath=compress
oExample.decompresspath=2
oExample.decompress
setoExample=nothing
%>
</BODY>
</HTML>