ASP在服务器自动解压RAR文件

% dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso Mlpath='E:\page\mian\' ''存放RAR.EXE和CMD.EXE的路径 ylj=Server.mappath('mian') ''解压文件后所放的路径 ywj=Server.mappath('mian\apathy.rar') ''要解压的RAR文件 Set Shell = Server.CreateObject('WScript.Shell') rarcomm=

作者: 来源: 时间: 17-11-23 15:39:26


<%
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso
Mlpath="E:\page\mian\"    ''存放RAR.EXE和CMD.EXE的路径
ylj=Server.mappath("mian")&"\"  ''解压文件后所放的路径
ywj=Server.mappath("mian\apathy.rar")  ''要解压的RAR文件
Set Shell = Server.CreateObject("WScript.Shell")
rarcomm= "E:\page\mian\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- "
cmd=rarcomm&ywj&" "&ylj
RetCode = Shell.Run(cmd,1, True)
%>
   就是用Server.CreateObject("WScript.Shell")来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。

11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们