注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

上海seo顾问网站优化搜索引擎优化

上海seo咨询顾问,网站优化搜索引擎优化服务,google优化,网站优化公司

 
 
 

日志

 
 

调用winrar压缩文件夹  

2009-11-01 13:10:51|  分类: 技术类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

服务器用WScript.Shell组件调用winrar中的rar.exe,在代码的同目录要上传cmd.exerar.exe

用法:rar.asp?path=要压缩的文件夹&rarname=压缩后的文件名&includefolder=包括子文件夹就不会空

<% '用法http://xx/rar.asp?path=要压缩的文件夹&rarname=压缩后的文件名&includefolder=包插子文件夹就不会空, on error resume next AppPath=server.mappath(".")&"\" '存放RAR.EXE和CMD.EXE的路径 zipfolder=server.mappath(request("path"))&"\" '要压缩的文件或文件夹 rarfile = request("rarname") thispath = server.mappath(".")&"\" if zipfolder<>"" and rarfile<>"" then Set Shell = Server.CreateObject("WScript.Shell") if err.number<>0 then response.write "服务器不支持" response.end end if if request("includefolder")<>"" then cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -r -t -o+ "&thispath&rarfile&" "& zipfolder &"" else cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -t -o+ "&thispath&rarfile&" "& zipfolder &"" end if 'response.write cmd RetCode = Shell.Run(cmd,1, True) response.write "<a href='"&rarfile&"'>"&rarfile&"</a>" if err.number<>0 then response.write "<a href='"&rarfile&"'>"&rarfile&"</a>" else response.write err.description end if else response.write "没有参数" end if %>

  评论这张
 
阅读(47)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017