asp实现在线压缩和解压缩

最新推荐文章于 2021-06-03 03:13:43 发布

china_skag

最新推荐文章于 2021-06-03 03:13:43 发布

阅读量685

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP 文章标签： asp generator class html function file

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/china_skag/article/details/1531018

ASP 专栏收录该内容

34 篇文章

订阅专栏

本文介绍了一个使用VBScript编写的简单类库，该类库能够实现文件的压缩与解压缩功能。通过调用WinRAR命令行工具，用户可以轻松地压缩指定文件夹或将压缩文件解压到指定目录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

附带实例

<%

'/////////////////////////////

'/

'/ 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!")

callSucc("decompress <b>" + sCompressPath + ".rar</b> to <b>" + sDecompressPath + "</b> 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

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<HEAD>

<TITLE> New Document </TITLE>

<META NAME="Generator" CONTENT="EditPlus">

<META NAME="Author" CONTENT="">

<META NAME="Keywords" CONTENT="">

<META NAME="Description" CONTENT="">

<style>

* {

font-size:10.2pt;

font-family:tahoma;

}

</style>

</HEAD>

<BODY>

<%

'/////////////////////////////

'/

'/ 设有压缩文件 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

%>

</BODY>

</HTML>

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。