asp压缩html类,asp在线压缩和解压缩文件（文件夹）

‘\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

‘\\

‘\\

1. c:\windows\system32\cmd.exe

‘\\ 拷贝把本文件所在的路径

‘\\

‘\\ 2. 把

c:\program\winrar\rar.exe

‘\\ 拷贝把本文件所在的路径

并改名为WinRAR.exe

‘\\

‘\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

‘\\

‘\\

compressPath(byVal s)

‘\\ 压缩文件的路径 | 字符串变体

‘\\

‘\\

decompressPath(byVal s)

‘\\ 解压缩文件的文件夹 | 字符串变体

‘\\

‘\\

compress

‘\\ 在线压缩 | sub

‘\\

‘\\ decompress

‘\\ 在线解压缩 |

sub

‘\\

‘\\ 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+"
"+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 "

" + s +

"

" + vbCrlf

end Sub

private sub callErr(byVal

s)

writeLn "

ERROR:

" +

s

response.End

end sub

private sub callSucc(byVal s)

writeLn

"

SUCCESS:

" + s

end Sub

public sub

compress

validateFile(sCompressPath)

oWshShell.run("WinRAR A " +

sCompressPath + " " + sDecompressPath & "")

if Err.number>0 then

callErr("compress lost!")

callSucc("compress " +

sDecompressPath + " to " + sCompressPath +

".rar successfully!")

end Sub

public sub

decompress

validateFile(sCompressPath)

createFolder(sDecompressPath)

oWshShell.run("WinRAR

X " + sCompressPath + " " + sDecompressPath & "")

if

Err.number>0 then callErr("decompress lost!")

callSucc("decompress

" + sCompressPath + ".rar to " +

sDecompressPath + " successfully!")

end sub

public property Let compressPath(byVal

s)

sCompressPath=physicalPath(s)

end property

public property

Let decompressPath(byVal s)

sDecompressPath=physicalPath(s)

end

property

End class

%>

/p>

Transitional//EN">

New Document

CONTENT="EditPlus">

CONTENT="">

NAME="Description" CONTENT="">

*

{

font-size:10.2pt;

font-family:tahoma;

}

‘\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

‘\\

‘\\

设有压缩文件 compress.rar

‘\\ 需压缩文件 decompressFolder 文件夹

‘\\

‘\\ 将

compress.rar 解压缩至 1 文件夹

‘\\ 将 decompressFolder 文件夹 压缩至

2.rar

‘\\

‘\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

dim oExample

set oExample=new

COMPRESS_DECOMPRESS_FILES

oExample.compressPath="decompressFolder"

oExample.decompresspath="1"

oExample.compress

oExample.compressPath="compress.rar"

oExample.decompresspath="2"

oExample.decompress

set

oExample=nothing

%>