ASP解壓縮（在線解壓縮類）

2024-05-04 10:58:36

字體：大中小

供稿：網(wǎng)友

復(fù)制代碼代碼如下:

<%
'///////////////////////////////////////////////////////////
'//
'// 1. c:/windows/system32/cmd.exe
'// 拷貝把本文件所在的路徑
'//
'// 2. 把 c:/program/winrar/rar.exe
'// 拷貝把本文件所在的路徑并改名為WinRAR.exe
'//
'///////////////////////////////////////////////////////////
'//
'// compressPath(byVal s)
'// 壓縮文件的路徑 | 字符串變體
'//
'// decompressPath(byVal s)
'// 解壓縮文件的文件夾 | 字符串變體
'//
'// compress
'// 在線壓縮
'//
'// decompress
'// 在線解壓縮
'//
'// POWER BY never-online
'//
'// 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

上一篇：使用VB將ASP代碼封裝到DLL文件

下一篇：TSYS一個(gè)新聞多種特性時(shí)如何進(jìn)行前臺(tái)更新?

發(fā)表評(píng)論

共有條評(píng)論