asp实现rar压缩和解压缩源代码

asp实现rar压缩和解压缩源代码,只要一个文件就可能搞定,asp压缩目录或文件,解压rar文件,删除特定文件等功能.此源码方便大家进行二次开发,分享出来.

以下是winrar.asp代码：

以下为引用的内容：
<
!--
Name －阿言在线winrar插件 

copyright -北国药苑BBS(www.spubbs.com)
created - 2006/5/17
author - 阿言:tqsir@hotmail.com QQ:12895551
-->

<
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"% >

<
title>
欢迎使用阿言在线winrar插件<
/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:
#f7f7f7">

<
tr>

<
th width="100%" height="24" bgcolor="
#e4e4e4">
<
strong>
<
font color="
#FF0000">
阿言在线winrar插件<
/font>
<
/strong>
最新更新时间2006.5.17 [<
a href="http://www.spubbs.com/dispbbs.asp?boardid=24&
id=19979" target=_blank>
支持页面<
/a>
]
<
/th>

<
/tr>

<
tr>

 
<
td>

<
%
Server.ScriptTimeout=99999
Dim winrar,cmddir
Winrar="C:\Program Files\WinRAR\Winrar.exe" ’Winrar.exe的路径Progra~1。
cmddir="%windir%\system32\cmd.exe" ’cmd.exe的路径
user="spubbs.com"’用户名
pwd="spubbs.com"’登陆、压缩、解压缩密码,出于安全考虑，请将此密码设置足够强壮
if request.Form("user")=user and request.Form("pwd")=pwd then
response.write "本文件夹路径："&
Server.Mappath(".")&
"<
br>
"
from=request.Form("from")
where=request.Form("where")
if from<
>
"" and where<
>
"" then
 
Dim a,b,Shell,Runing,Runcode,Cmd 

 
if instr(where,":")=0 then a=Server.mappath(""&
where&
"") else a=where
 
if instr(from,":")=0 then b=Server.mappath(""&
from&
"") else b=from
 
’response.Write b
 
if right(b,1)<
>
"\" and left(right(b,4),1)<
>
"." then b=b&
".rar"
 
On Error Resume Next 

 
Set Shell = Server.CreateObject("WScript.Shell")
 
if 
request.QueryString("action")=1 then ’解压缩
 
if not ReportFileStatus(b)then Response.Write(b&
"不存在！"):Response.End()
 
Runing= cmddir&
" /c """&
winrar&
""" x -ibck -t -y -o+ -p"&
pwd&
" " ’设置运行解压缩的命令。
 
Cmd=Runing&
b&
" "&
a&
"\" 

 
elseif request.QueryString("action")=0 then ’压缩
 
if (not ReportFileStatus(a)) and (not ReportFolderStatus(a)) then Response.Write(a&
"不存在！"):Response.End()
 
Cmd= cmddir&
" /c del /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&
" /c del /f /q "&
b
 
end if
 
Runcode = Shell.Run(Cmd,1,True)
 
Runing = Shell.Run(cmddir&
" /c taskkill /im winrar.exe",1,false)
 
Runing = Shell.Run(cmddir&
" /c exit",1,false)
 
Set Shell=nothing 

 
ErrInfo
% >
 

<
%else% >

<
form name="frm" method="post" action="?action=1" style="BORDER:
#d9d9d9 1px solid
background-color:
#f7f7f7">

--------------------------------------<
strong>
解压缩<
/strong>
---------------------------------------
<
br>

<
br>

请输入rar文件地址：
<
input name="from" value="1.rar" size="50">
<
br>

解压到：<
input 
name="where" value="." size="50">

文件夹请使用绝对路径且在最后加“\” <
br>

<
br>

<
input name="submit" type="submit" value=" 解 压 ">
<
input type="hidden" name="user" value="<
%=request.Form("user")% >
">

<
input type="hidden" name="pwd" value="<
%=request.Form("pwd")% >
">
<
/FORM>

<
form name="frm" method="post" action="?action=0" style="BORDER:
#d9d9d9 1px solid
background-color:
#f7f7f7">

--------------------------------------<
strong>
压缩文件<
/strong>
---------------------------------------<
br>

<
br>

请输入要压缩文件地址：
<
input 
name="where" value="./data/dvbbs7
#.mdb" size="50">

文件夹也可<
br>

<
br>

存放路径及新文件名：<
input name="from" value="../data/1.rar" size="50">

自动覆盖同名文件<
br>

<
br>

<
input name="submit" type="submit" value=" 压 缩 ">
<
input type="hidden" name="user" value="<
%=request.Form("user")% >
">

<
input type="hidden" name="pwd" value="<
%=request.Form("pwd")% >
">
<
/FORM>

<
%
ErrInfo
end if
else
login()
end if
Sub ErrInfo
 
if not isempty(Runcode) and Runcode=0 Then 

 
Response.Write("命令成功执行,您提交的命令如下：<
br>
"&
Cmd) 

 
elseif not isempty(Runcode) then 

 
Response.Write("命令执行失败！权限不够或者该程序无法在DOS状态下运行,您提交的命令如下：<
br>
" &
Cmd)
 
else
 
end if
 
If Err Then
 
 
 
 
Response.Write "<
br>
"&
err.description
 
err.Clear
 
End If
% >

<
form name="frm" method="post" action="?action=2" style="BORDER:
#d9d9d9 1px solid
background-color:
#f7f7f7">

--------------------------------------<
strong>
删除文件<
/strong>
---------------------------------------<
br>

<
br>

请输入要删除文件地址：<
input name="from" 
size="50" value=<
%=from% >
>

文件夹请使用绝对路径且在最后加“\” &