当前位置:96看吧 > 技术文档 > ASP编程 > asp在线rar解压缩文件

asp在线rar解压缩文件

时间:2011/11/16
作者:MaWenDong
来源:96看吧
查看:
标签:asprar

压缩文件源代码:

<%
on error resume next
'main文件夹中包含cmd.exe rar.exe 例如:要压缩的文件(*.mdb)
'压缩后的存放目录为main\data.rar
 unzip_path=Server.MapPath("/")&"\"
 Response.Write(unzip_path)
 Set WshShell = server.CreateObject("Wscript.Shell")
 IsSuccess = WshShell.Run ("winrar a "&unzip_path&"data.rar "&unzip_path&"*.* ",1, false)
 '压缩文件的一般命令行命令语法为:WinRAR A [-开关] <压缩文件> [文件] [@文件列表]
 '命令: A - 添加到压缩文件中
 if IsSuccess = 0 Then
  Response.write " 命令成功执行!"
 else
  Response.write " 命令执行失败!权限不够或者该程序无法运行"
 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
%>

解压功能源代码:

<%
on error resume next
'main文件夹中包含cmd.exe rar.exe 要解压缩的文件(*.rar)
'解压缩后的存放目录为main
unzip_path=Server.MapPath("/")&"\"
Response.Write(unzip_path)
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("winrar x -r -o+ "&unzip_path&"*.rar "&unzip_path&"test\",1, False)
'WinRAR <命令> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...> <解压路径\>
'命令: X - 从压缩文件中全路径解压文件
'开关: -R - 连同子文件夹
'开关: -O+ - 覆盖已经存在的文件
'开关: -O- - 不覆盖已经存在的文件
if IsSuccess = 0 Then
Response.write " 命令成功执行!"
else
Response.write " 命令执行失败!权限不够或者该程序无法运行"
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
%>

 

 

上一篇:ASP提取CSS中的图片地址
下一篇:asp无组件中文验证码
下载地址
Down
页面举报
Report
关闭页面
Close
收藏页面
Favorites
分享页面
Share
版权信息:栏目内,站内会员所分享的全部“资源/素材/文章”,仅供学习与参考,版权为原作者所有。
下载提示:非注册用户每天可下载一个文件,已注册会员不受限制。
网友评论
数据载入中
验证码
  • 请您注意:
  • ·请不要在评论中含与内容无关的广告链接。
  • ·不良评论请用报告管理员,以利管理员及时删除。
  • ·遵守中华人民共和国的各项有关法律法规
  • ·承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • ·本站管理人员有权保留或删除评论中的任意内容
  • ·您在本站发表的作品,本站有权在网站内转载或引用
  • ·参与本评论即表明您已经阅读并接受上述条款
相关最新
相关热门