ASP想实现自动解压压缩文件,需要用到WScript.Shell对象,要确保服务器允许创建WScript.Shell对象,调用服务器上安装的winrar.exe来进行在线解压。
ASP在线解压范例代码
<% 'ASP在线解压缩
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="c:\test\rar\" `上传后Winrar.exe和cmd.exe后的路径
a=Server.mappath("rar")&"\" '解压rar文件后的存放路径
b=Server.mappath("rar\test.rar")'要解压的rar文件,把其中test.rar修改为你需要解压的rar文件
Set Shell = Server.CreateObject("WScript.Shell")
Runing= "c:\test\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " '定义解压缩命令
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%>
扩展阅读:ASP完美在线解压、压缩、删除文件代码