asp实现在线压缩和解压缩

最新推荐文章于 2021-01-14 12:06:21 发布
最新推荐文章于 2021-01-14 12:06:21 发布 · 169 阅读 · 0
文章标签：

#ASP #Windows #C #C++ #C#

本文介绍了一个使用VBScript编写的简单类模块，该模块能够进行文件压缩和解压缩操作。通过调用WinRAR命令行工具，此脚本可以轻松地将指定文件夹压缩为RAR文件或将RAR文件解压到指定目录。

附带实例

<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\
'\1.c:windows\system32\cmd.exe
'\拷贝把本文件所在的路径
'\
'\2.把c:program\winrar\rar.exe
'\拷贝把本文件所在的路径并改名为WinRAR.exe
'\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\
'\compressPath(byVals)
'\压缩文件的路径|字符串变体
'\
'\decompressPath(byVals)
'\解压缩文件的文件夹|字符串变体
'\
'\compress
'\在线压缩
'\
'\decompress
'\在线解压缩
'\
'\POWERBYMIRACLE(BLUEDESTINY)
'\
'\EMAIL:Bluedestiny[at]126.com
'\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

OPTIONEXPLICIT

classCOMPRESS_DECOMPRESS_FILES

privateversion,copyright
privateoWshShell,oFso
privatesCompressPath,sDecompressPath

privatesubclass_initialize
version="COMPRESS_DECOMPRESS_FILESBUILDER20051015"
copyright="POWERBYMIRACLE(BLUEDESTINY)"
SetoFso=server.CreateObject("scripting.FileSystemObject")
SetoWshShell=server.CreateObject("Wscript.Shell")
writeLn(version+"<br>"+copyright)
endSub
privatesubclass_terminate
ifisobject(oWshShell)thensetoWshShell=nothing
ifisobject(oFso)thensetoFso=nothing
endSub
privatefunctionphysicalPath(byVals)
physicalPath=server.mappath(s)
endFunction
privatesubvalidateFile(byVals)
ifoFso.FileExists(s)thenexitsub
ifoFso.FolderExists(s)thenexitsub
callErr"file(folder)notexists!"
endSub
privatesubcreateFolder(byVals)
ifoFso.FolderExists(s)thenexitSub
oFso.createFolder(s)
endSub
privatesubwriteLn(byVals)
response.write"<p>"+s+"</p>"+vbCrlf
endSub
privatesubcallErr(byVals)
writeLn"<p><b>ERROR:</b></p>"+s
response.End
endsub
privatesubcallSucc(byVals)
writeLn"<p><b>SUCCESS:</b></p>"+s
endSub

publicsubcompress
validateFile(sCompressPath)
oWshShell.run("WinRARA"+sCompressPath+""+sDecompressPath&"")
ifErr.number>0thencallErr("compresslost!")
callSucc("compress<b>"+sDecompressPath+"</b>to<b>"+sCompressPath+".rar</b>successfully!")
endSub
publicsubdecompress
validateFile(sCompressPath)
createFolder(sDecompressPath)
oWshShell.run("WinRARX"+sCompressPath+""+sDecompressPath&"")
ifErr.number>0thencallErr("decompresslost!")
callSucc("decompress<b>"+sCompressPath+".rar</b>to<b>"+sDecompressPath+"</b>successfully!")
endsub

publicpropertyLetcompressPath(byVals)
sCompressPath=physicalPath(s)
endproperty
publicpropertyLetdecompressPath(byVals)
sDecompressPath=physicalPath(s)
endproperty

Endclass
%>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">
<HTML>
<HEAD>
<TITLE>NewDocument</TITLE>
<METANAME="Generator"CONTENT="EditPlus">
<METANAME="Author"CONTENT="">
<METANAME="Keywords"CONTENT="">
<METANAME="Description"CONTENT="">
<style>
*{
font-size:10.2pt;
font-family:tahoma;
}
</style>
</HEAD>

<BODY>
<%
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'\
'\设有压缩文件compress.rar
'\需压缩文件decompressFolder文件夹
'\
'\将compress.rar解压缩至1文件夹
'\将decompressFolder文件夹压缩至2.rar
'\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

dimoExample

setoExample=newCOMPRESS_DECOMPRESS_FILES
oExample.compressPath="decompressFolder"
oExample.decompresspath="1"
oExample.compress

oExample.compressPath="compress.rar"
oExample.decompresspath="2"
oExample.decompress

setoExample=nothing
%>
</BODY>
</HTML>
iteye_15968
关注
用ASP实现在线压缩与解压缩功能代码
01-02
先上一个完整代码 <!-- Name －ASP在线解压，压缩工具 copyright -软件开发网(www.jb51.net) --> <%@LANGUAGE=VBSCRIPT CODEPAGE=936%> <title>欢迎使用ASP在线解压，压缩工具</title> <body> <TABLE border=0 width=80% align=center cellspacing=1 cellpadding=3 style=FONT-FAMILY: Verdana;font-size:14px;BORDER: #000000 1px solid;background-color
asp在线压缩解压文件
10-08
asp在线压缩解压木马文件，不用运行rar.exe。在线压缩后，下载下来，在本地也是用这个来解压，文件就出来了。
ASP在线文件压缩组件
09-01
ASP在线文件压缩组件，在线添加压缩打包下载
用ASP实现在线压缩与解压缩
10-24 967
一、问题的提出　　随着互连网的发展，网站的数量以惊人的数字增加。网站的作用除了给广大网友们提供信息资讯服务外，还应该成为网友们上传与下载文件的场所。在上传与下载文件的过程中，传输时间是关键，这就要求有较快的传输速度。在传输速度固定不变或是上下变动不大的情况下，尽量减小传输文件的体积，是一个可行的办法：上传文件的时候，先将要上传的文件用WINRAR压缩，上传成功后在网站内通过程序实现解压缩；下载
asp 可否压缩_用ASP实现在线压缩与解压缩
weixin_33695631的博客
12-24 174
一、问题的提出随着互连网的发展，网站的数量以惊人的数字增加。网站的作用除了给广大网友们提供信息资讯服务外，还应该成为网友们上传与下载文件的场所。在上传与下载文件的过程中，传输时间是关键，这就要求有较快的传输速度。在传输速度固定不变或是上下变动不大的情况下，尽量减小传输文件的体积，是一个可行的办法：上传文件的时候，先将要上传的文件用WINRAR压缩，上传成功后在网站内通过程序实现解压缩；下载文件的时...
ASP.NET实现在线文件压缩和解压缩
ASP.NET 在线压缩和解压缩技术是指在 ASP.NET 应用程序中实现文件的在线压缩和解压缩，提高数据传输效率和存储空间利用率。本技术使用 SharpZlib 库，which is a popular open-source compression library for .NET ...
用ASP.Net实现文件的在线压缩和解压缩
01-02
以前的技术一般采用ActiveX等方式，这里笔者采用SharpZlib来实现，听说VS2005已有压缩和解压缩的解决方案，笔者还没有时间用VS2005，所以就只好使用VS2003 + SharpZlib来解决问题了。　1、首先从这里下载0.84版本的...
ASP.NET在线压缩和解压缩
03-06
综上所述，ASP.NET在线压缩和解压缩涉及到多个方面的知识，包括压缩算法原理、SharpZlib库的使用、ASP.NET环境下的代码实现、编译部署的注意事项以及安全性和兼容性考虑。掌握这些知识点，可以有效提升Web应用程序的...
用asp木马实现ftp和解压缩.doc
最新发布
12-12
ASP木马实现FTP和解压缩的技术细节： 1. 使用ASP木马： ASP木马是一种后门程序，通常用于远程控制服务器。它可以执行一些系统命令，比如上传下载文件、管理文件和目录等。ASP木马的工作原理是利用Windows服务器上的...
asp在线压缩组件 asp rar压缩
11-26
asp在线压缩组件 asp rar压缩asp在线压缩组件 asp rar压缩asp在线压缩组件 asp rar压缩asp在线压缩组件 asp rar压缩asp在线压缩组件 asp rar压缩
asp无组件压缩，不用winrar支持的在线打包程序
07-22
一般的在线打包都需要winrar程序的支持，现在介绍一种不用winrar支持的在线打包程序，源代码老外写的，有个缺陷就是打包的时候如果文件名是中文，就会出现乱码，庆幸的是文件的内容不会产生乱码，并且可以用winrar解压。
ASP在线解压工具,在线压缩,在线打包,在线解包
09-05
ASP在线解压工具！压缩上传后运行安装就可以完成多页面网站上传麻烦 使用方法： ASP在线解压工具 适合上传文件过多的用户 先把文件打包.然后把生成出来的文件上传于你的空间. 先把文件打包，有两个文件，一个自命名，一个是setup.asp， 把这两个文件上传到你的空间后，直接打开你空间的网页， 比如：http://nayici.cn/setup.asp 运行此程序即可，安装完成后建议删除这两个文件！ 这个不能解压任何打包工具的压缩文件，只能用这个工具生存的2个文件 是为了方便上传而设计的，非常的实用！
ASP在线压缩文件组件
09-01
提供一个组件及源代码，使服务器端的ASP代码可以压缩文件，具体介绍请参看我的BLOG：http://blog.youkuaiyun.com/al2ping/archive/2006/12/19/1449418.aspx
aspzip-组件压缩包
09-01
Function AspZip(z_upFile,z_doFile) zip_upFile=Server.MapPath(z_upFile) zip_infile=Server.MapPath("下载说明.txt") zip_doFile=Server.MapPath(z_doFile) zip_uptime=now() randomize zip_ranNum=int(90000*rnd)+10000 zip_ininame=year(zip_uptime)&"-"&month(zip_uptime)&"-"&day(zip_uptime)&"-"&hour(zip_uptime)&"-"&minute(zip_uptime)&"-"&second(zip_uptime)&"-"&zip_ranNum&".ini" zip_inifile=Server.MapPath("/test/") Set zip_fs = CreateObject("Scripting.FileSystemObject") File=zip_inifile Set zip_txt=zip_fs.OpenTextFile(File,8,True) '打开成可以在结尾写入数据的文件 zip_txt.WriteLine("[Files]") zip_txt.WriteLine("count = 2") zip_txt.WriteLine("") zip_txt.WriteLine("[0]") zip_txt.WriteLine("path = "&zip_upFile) zip_txt.WriteLine("") zip_txt.WriteLine("[1]") zip_txt.WriteLine("path = "&zip_infile) zip_txt.Close set zip_fs = nothing '----------------------------------
asp 可否压缩_用ASP实现在线压缩与解压缩功能代码
weixin_36096321的博客
01-14 313
先上一个完整代码欢迎使用ASP在线解压，压缩工具　Server.ScriptTimeout=99999Dim winrar,cmddirWinrar="C:\Program Files\WinRAR\Winrar.exe" '压缩文件(Winrar)的地址cmddir="%windir%\system32\cmd.exe" 'cmd.exe(命令提示符)的地址user="csisp" '本程序的用...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值