在线压缩WINRAR文件-ASP教程,ASP应用

<%

首先要降低浏览器安全级别

csdb文件夹中包含cmd.exe rar.exe 要压缩的文件（*.asp) 压缩后的存放目录为csdb\data.rar

on error resume next

unzip_path=server.mappath("csdb")&"\"

set wshshell = server.createobject("wscript.shell")

issuccess = wshshell.run ("winrar a "&unzip_path&"data "&unzip_path&"*.asp",1, false)

winrar <命令> -<开关1> -<开关n> <压缩文件> <文件…> <@列表文件…> <解压路径\>

命令: a – 添加到压缩文件中

if issuccess = 0 then

response.write " 命令成功执行！"

else

response.write " 命令执行失败！权限不够或者该程序无法在dos状态下运行"

end if

if err.number <> 0 then

response.write "<p>错误号码：" & err.number

response.write "<p>原因：" & err.description

response.write "<p>错误来源：" & err.source

response.write

end if

%>