用ASP实现在线压缩与解压缩功能代码
先上一个完整代码
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>欢迎使用ASP在线解压,压缩工具 <% Server.ScriptTimeout=99999 Dimwinrar,cmddir Winrar="C:\ProgramFiles\WinRAR\Winrar.exe"'压缩文件(Winrar)的地址 cmddir="%windir%\system32\cmd.exe"'cmd.exe(命令提示符)的地址 user="csisp"'本程序的用户名 pwd="csisp"'本程序的登陆、压缩、解压缩密码,请大家务必修改(至少8位以上的组合密码才够安全!) ifrequest.Form("user")=userandrequest.Form("pwd")=pwdthen response.write"本文件夹路径:"&Server.Mappath(".")&"
" from=request.Form("from") where=request.Form("where") iffrom<>""andwhere<>""then Dima,b,Shell,Runing,Runcode,Cmd ifinstr(where,":")=0thena=Server.mappath(""&where&"")elsea=where ifinstr(from,":")=0thenb=Server.mappath(""&from&"")elseb=from 'response.Writeb ifright(b,1)<>"\"andleft(right(b,4),1)<>"."thenb=b&".rar" OnErrorResumeNext SetShell=Server.CreateObject("WScript.Shell") ifrequest.QueryString("action")=1then'解压缩 ifnotReportFileStatus(b)thenResponse.Write("没有找到"&b&"可能不存在!"):Response.End() Runing=cmddir&"/c"""&winrar&"""x-ibck-t-y-o+-p"&pwd&""'设置运行解压缩的命令。 Cmd=Runing&b&""&a&"\" elseifrequest.QueryString("action")=0then'压缩文件 if(notReportFileStatus(a))and(notReportFolderStatus(a))thenResponse.Write("没有找到"&a&"可能不存在!"):Response.End() Cmd=cmddir&"/cdel/f/q"&b Runcode=Shell.Run(Cmd,1,True) Runing=cmddir&"/c"""&winrar&"""a-ibck-y-ep-o+-p"&pwd&""'压缩。 Cmd=Runing&b&""&a else'删除文件 Cmd=cmddir&"/cdel/f/q"&b endif Runcode=Shell.Run(Cmd,1,True) Runing=Shell.Run(cmddir&"/ctaskkill/imwinrar.exe",1,false) Runing=Shell.Run(cmddir&"/cexit",1,false) SetShell=nothing ErrInfo %> <%else%>--------------------------------------解压缩文件---------------------------------------
请输入rar压缩文件地址:
解压到:文件夹请使用绝对路径且在最后加"\"
"> "> --------------------------------------压缩文件---------------------------------------
请在此输入您要压缩文件地址:您也可以输入文件夹
存放路径及新文件名:自动覆盖同名文件
"> "> <% ErrInfo endif else login() endif SubErrInfo ifnotisempty(Runcode)andRuncode=0Then Response.Write("操作成功执行,您提交的操作如下:
"&Cmd) elseifnotisempty(Runcode)then Response.Write("操作执行失败!可能您的权限不够或者该程序无法在DOS(命令提示符)下运行,您提交的操作如下:
"&Cmd) else endif IfErrThen Response.Write"
"&err.description err.Clear EndIf %>--------------------------------------删除文件---------------------------------------
请输入要删除文件地址:> 文件夹请使用绝对路径且在最后加“\”
""thenresponse.Writewhereelseresponse.Write"."%>>
"> ">
<% EndSub FunctionReportFileStatus(filespec) Dimfso Setfso=CreateObject("Scripting.FileSystemObject") ReportFileStatus=false If(fso.FileExists(filespec))ThenReportFileStatus=true Setfso=nothing EndFunction FunctionReportFolderStatus(fldr) Dimfso Setfso=CreateObject("Scripting.FileSystemObject") ReportFolderStatus=false If(fso.FolderExists(fldr))ThenReportFolderStatus=true Setfso=nothing EndFunction Sublogin() %>--------------------------------------登陆系统---------------------------------------
密码:
用户名:
<%Endsub%> Copyright©2008 毛票票
使用方法:
1.直接上传到服务器上(虚拟主机)的任何目录下(最好是根目录)
2.用浏览器访问Winrar.asp文件地址
3.输入帐号和密码(默认帐号:csisp默认密码:csisp)
4.输入Winrar文件的地址(*.RAR)确认后即可解压
5.输入您想压缩文件的地址,确认后即可压缩!
特别提示:文件地址是本Winrar系统的相对地址!
使用本程序的服务器必须连安装了WinRar(一般的服务器都安装)
本程序的默认程序地址适合99%以上的服务器(虚拟主机)
如果地址不对,可以自己修改,地址为您安装WINRAR的地址(虚拟主机使用者请联系您虚拟主机的客服)
下面一些细节说明与补充
一、问题的提出
随着互连网的发展,网站的数量以惊人的数字增加。网站的作用除了给广大网友们提供信息资讯服务外,还应该成为网友们上传与下载文件的场所。在上传与下载文件的过程中,传输时间是关键,这就要求有较快的传输速度。在传输速度固定不变或是上下变动不大的情况下,尽量减小传输文件的体积,是一个可行的办法:上传文件的时候,先将要上传的文件用WINRAR压缩,上传成功后在网站内通过程序实现解压缩;下载文件的时候,先将要下载的文件在网站内通过程序实现压缩然后再下载。本文就针对该问题的解决进行探讨。
二、方法与说明
首先要上传一个WINRAR的解压程序,就是WINRAR自己的解压程序,只需要它的核心程序RAR.EXE这个文件就可以了,在WINRAR的安装目录里可以找到。然后要上传一个执行RAR.EXE的程序CMD.EXE这个是WINDOWS操作系统里的程序,在系统盘WINNT/SYSTEM32文件夹中可以找到。上传完这两个文件后,就需要编写一些程序代码来实现压缩与解压缩。
不妨将实现压缩功能的文件取名为ZIP.ASP,实现解压缩功能的文件取名为UNZIP.ASP。
程序代码中包含了WINRAR这个应用程序的命令行语法,下面简单介绍一下:
WinRAR<命令>-<开关1>-<开关N><压缩文件><文件...><@列表文件...><解压路径/>
命令要WinRAR运行的字符组合代表功能。
开关切换操作指定类型,压缩强度,压缩文件类型,等等的定义。
压缩文件要处理的压缩文件名。
文件要处理的文件名。
列表文件列表文件是包含要处理文件名称的纯文本。文件名应该在第一卷启动。可以在列表文件中使用//字符后添加注释。例如,你可以包含两列字符串创建backup.lst:c:/work/doc/*.txt//备份文本文档c:/work/image/*.bmp//备份图片c:/work/misc并接着运行:winrarabackup@backup.lst你可以在命令行中同时指定普通的文件名和列表文件名。
解压路径只与命令e和x,搭配使用。指出解压文件添加的位置。如果文件夹不存在时,会自动创建。
字母命令列表:
a添加文件到压缩文件
c添加压缩文件注释
d从压缩文件删除文件
e从压缩文件解压压缩,忽略路径
f刷新压缩文件中的文件
i在压缩文件中查找字符串
k锁定压缩文件
m移动文件和文件夹到压缩文件
r修复受损的压缩文件
rc重建丢失的卷
rn重命名压缩文件
rr[N]添加数据恢复记录
rv[N]创建恢复卷
s[name]转换压缩文件成为自解压文件类型
s-删除自解压模块
t测试压缩文件
u从压缩文件中更新文件
x以完整路径名称从压缩文件解压压缩
其实程序代码中的关键之处就是用Server.CreateObject("Wscript.Shell")来执行CMD.EXE,CMD.EXE运行RAR.EXE通过WINRAR的命令来执行解压缩文件与压缩文件的。
三、程序清单
ZIP.ASP程序清单:
<% 'main文件夹中包含cmd.exerar.exe例如:要压缩的文件(*.mdb) '压缩后的存放目录为main/data.rar onerrorresumenext unzip_path=Server.mappath("main")&"/" SetWshShell=server.CreateObject("Wscript.Shell") IsSuccess=WshShell.Run("winrara"&unzip_path&"data "&unzip_path&"*.mdb",1,False) 'WinRAR<命令>-<开关1>-<开关N><压缩文件><文件...><@列表文件...> <解压路径/> '命令:A-添加到压缩文件中 ifIsSuccess=0Then Response.write"命令成功执行!" else Response.write"命令执行失败!权限不够或者该程序无法运行" endif iferr.number<>0then Response.Write"错误号码:"&Err.number Response.Write"
原因:"&Err.description Response.Write"
错误来源:"&Err.Source Response.Write endif %>
UNZIP.ASP程序清单:
<% 'main文件夹中包含cmd.exerar.exe要解压缩的文件(*.rar) '解压缩后的存放目录为main onerrorresumenext unzip_path=Server.mappath("main")&"/" SetWshShell=server.CreateObject("Wscript.Shell") IsSuccess=WshShell.Run("winrarx-r-o+"&unzip_path&"*.rar "&unzip_path&"",1,False) 'WinRAR<命令>-<开关1>-<开关N><压缩文件><文件...><@列表文件...> <解压路径/> '命令:X-从压缩文件中全路径解压文件 '开关:-R-连同子文件夹 '开关:-O+-覆盖已经存在的文件 '开关:-O--不覆盖已经存在的文件 ifIsSuccess=0Then Response.write"命令成功执行!" else Response.write"命令执行失败!权限不够或者该程序无法运行" endif iferr.number<>0then Response.Write"错误号码:"&Err.number Response.Write"
原因:"&Err.description Response.Write"
错误来源:"&Err.Source Response.Write endif %>
四、结论
本文通过使用RAR.EXE和CMD.EXE这两个文件,在ASP编程中实现在线压缩与解压缩网站中的文件的功能。实现方法简单,程序代码少,可供实用编程时借鉴使用。尤其是在拥有自己的服务器的情况下极其实用和方便。以上程序在Windows2000Sever及IIS5.0下运行通过。