讲解在线压缩和解压缩的ASP实现方法
2018-09-06 11:38
在线压缩/在线解压缩是一个很实用的东东，今天就为大家实例讲解一下如何用ASP来实现：
<%
’\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
’\
’\1.c:windowssystem32cmd.exe
’\拷贝把本文件所在的路径
’\
’\2.把c:programwinrar ar.exe
’\拷贝把本文件所在的路径并改名为WinRAR.exe
’\
’\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
’\
’\compressPath(byVals)
’\压缩文件的路径字符串变体
’\
’\decompressPath(byVals)
’\解压缩文件的文件夹字符串变体
’\
’\compress
’\在线压缩
’\
’\decompress
’\在线解压缩
’\
’\POWERBYMIRACLE(BLUEDESTINY)
’\
’
’\
’\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
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>NewDocument</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>
技术交流永无止境
上一篇：本人常用的分页代码