在线解压缩上传的WINRAR文件 
2005/7/1 19:11:19
阅读全文(3628) | 回复(1) | 编辑 | 精华
<% '首先要降低浏览器安全级别 'csdb文件夹中包含cmd.exe rar.exe 要解压缩的文件（*.rar) 解压缩后的存放目录为csdb on error resume next unzip_path=Server.mappath("csdb")&"\" Set WshShell = server.CreateObject("Wscript.Shell") IsSuccess = WshShell.Run ("winrar x -r -o+ "&unzip_path&"*.rar "&unzip_path&"",1, False) 'WinRAR <命令> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...> <解压路径\> '命令: X - 从压缩文件中全路径解压文件 '开关: -R - 连同子文件夹 '开关: -O+ - 覆盖已经存在的文件 '开关: -O- - 不覆盖已经存在的文件 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 %>
Posted by Qr on 2005/7/1 19:11:19
回复:在线解压缩上传的WINRAR文件
2005/7/25 14:15:29
个人主页 | 引用回复 | 主人回复 | 返回 | 编辑 | 删除
hao
kk(游客|61.29.129.5)
Posted by kk(游客|61.29.129.5) on 2005/7/25 14:15:29
| 发表评论： |