ASP解壓縮（在線解壓縮類）
2024-05-04 11:02:12
供稿：網友
復制代碼 代碼如下:
<%
'///////////////////////////////////////////////////////////
'//
'// 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+"<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 & "")
