ASP解压缩(在线解压缩类)
ASP解压缩(在线解压缩类)
发布时间:2016-12-29 来源:查字典编辑
摘要:复制代码代码如下:

复制代码 代码如下:

<%

'\

'

'1.c:windowssystem32cmd.exe

'拷贝把本文件所在的路径

'

'2.把c:programwinrarrar.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&"")

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="Generator"CONTENT="EditPlus">

<METANAME="Author"CONTENT="">

<METANAME="Keywords"CONTENT="">

<METANAME="Description"CONTENT="">

<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.compressPath="decompressFolder"

oExample.decompresspath="1"

oExample.compress

oExample.compressPath="compress"

oExample.decompresspath="2"

oExample.decompress

setoExample=nothing

%>

</BODY>

</HTML>

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新ASP教程学习
热门ASP教程学习
编程开发子分类