当前页面位置: » 丰搜网 » 文档中心 » 详细内容
asp实现在线压缩和解压缩
好久没来看看blog了，写了个简单的东西，希望对大家有用
附带实例
<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ 1. c:\windows\system32\cmd.exe
'\\ 拷贝把本文件所在的路径
'\\
'\\ 2. 把 c:\program\winrar\rar.exe
'\\ 拷贝把本文件所在的路径 并改名为winrar.exe
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\\
'\\ compresspath(byval s)
'\\ 压缩文件的路径 字符串变体
'\\
'\\ decompresspath(byval s)
'\\ 解压缩文件的文件夹 字符串变体
'\\
'\\ compress
'\\ 在线压缩
'\\
'\\ decompress
'\\ 在线解压缩
'\\
'\\ power by miracle (bluedestiny)
'\\
'\\ email : bluedestiny[at]126.com
'\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
option explicit
class compress_decompress_files
private version, copyright
private owshshell, ofso
private scompresspath, sdecompresspath
private sub class_initialize
version="compress_decompress_files builder 20051015"
copyright="power by miracle (bluedestiny)"
set ofso=server.createobject("scripting.filesystemobject")
set owshshell=server.createobject("wscript.shell")
writeln(version+"<br>"+copyright)
end sub
private sub class_terminate
if isobject(owshshell) then set owshshell=nothing
if isobject(ofso) then set ofso=nothing
end sub
private function physicalpath(byval s)
physicalpath=server.mappath(s)
end function
private sub validatefile(byval s)
if ofso.fileexists(s) then exit sub
if ofso.folderexists(s) then exit sub
callerr "file(folder) not exists!"
end sub
private sub createfolder(byval s)
if ofso.folderexists(s) then exit sub
ofso.createfolder(s)
end sub
private sub writeln(byval s)
response.write "<p>" + s + "</p>" + vbcrlf
end sub
private sub callerr(byval s)
writeln "<p><b>error:</b></p>" + s
response.end
end sub
private sub callsucc(byval s)
writeln "<p><b>success:</b></p>" + s
end sub
public sub compress
validatefile(scompresspath)
owshshell.run("winrar a " + scompresspath + " " + sdecompresspath & "")
if err.number>0 then callerr("compress lost!")
callsucc("compress <b>" + sdecompresspath + "</b> to <b>" + scompresspath + ".rar</b> successfully!")
end sub
public sub decompress
validatefile(scompresspath)
createfolder(sdecompresspath)
owshshell.run("winrar x " + scompresspath + " " + sdecompresspath & "")
if err.number>0 then callerr("decompress lost!")
