<% 'main文件夹中包括cmd.exe rar.exe 譬喻:要压缩的文件(*.mdb) '压缩后的存放目次为main/data.rar on error resume next unzip_path=Server.mappath("main")&"https://www.jb51.net/" Set WshShell = server.CreateObject("Wscript.Shell") IsSuccess = WshShell.Run ("winrar a "&unzip_path&"data "&unzip_path&"*.mdb",1, False) 'WinRAR <呼吁> -<开关1> -<开关N> <压缩文件> <文件...> <@列表文件...> <解压路径/> '呼吁: 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 %>
UNZIP.ASP措施清单:
<% 'main文件夹中包括cmd.exe rar.exe 要解压缩的文件(*.rar) '解压缩后的存放目次为main on error resume next unzip_path=Server.mappath("main")&"https://www.jb51.net/" 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 " 呼吁执行失败!权限不足可能该措施无法运行" 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 %>
四、 结论
本文通过利用RAR.EXE和 CMD.EXE这两个文件,在ASP编程中实此刻线压缩与解压缩网站中的文件的成果。实现要领简朴,措施代码少,可供实用编程时警惕利用。尤其是在拥有本身的处事器的环境下极其实用和利便。以上措施在Windows2000Sever及IIS5.0下运行通过。
您大概感乐趣的文章: