您现在的位置： 圆点视线 >> 教程 >> 网页设计 >> Dreamweaver教程 >> 文章正文
[图文]让ASP也能解压缩rar文件           ★★★
让ASP也能解压缩rar文件
作者：蓝色 　文章来源：蓝色 　点击数： 　更新时间：2007-10-4 23:31:29　
　页面功能：【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 【字体：小 大】
　　有没有想过在线解压缩压缩文件呢？呵呵，有时上传一个压缩包以后，利用Asp程序解压缩的确很方便，尤其是经常更新网站的站长们，由于文本文件压缩比率大，所以采用压缩以后上传再解压缩，这样比直接上传节省了大量的宝贵时间。准备好了吗？那就跟上吧。

　　要想实现这种功能，首先要得到Rar程序的解压缩核心文件支持（可以下载WinRar软件，再把其中的WinRar.exe文件单独“拿”出来。），并且还需要Windows操作系统自带的cmd.exe程序（这个程序用来执行WinRar.exe文件。操作系统自带的，NT内核的操作系统可以在操作系统安装目录下的System32文件夹下找到它；Windows 9X的操作系统可以在操作系统安装目录下的System文件夹下找到它。），如图1。然后把它们上传到同一目录中。建立asp文件，见以下代码：

　　＜%
　　Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
　　Main="d:\chencheng\rar\" `上传后Winrar.exe和cmd.exe后的路径。
　　a=Server.mappath("rar")&"\"　'解压rar文件后的存放路径。
　　b=Server.mappath("rar\homepage.rar")　'要解压的rar文件，把其中homepage.rar修改为需要解压缩的文件。
　　Set Shell = Server.CreateObject("WScript.Shell")
　　Runing= "d:\chencheng\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’设置运行解压缩的命令。
　　Cmd=Run&b&" "&a
　　Runcode = Shell.Run(Cmd,1, True)
　　%＞		  
　【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】　文章录入：Rainsion    责任编辑：Rainsion 　【字体：小 大】
　
  • 上一篇文章：

    • 　
  • 下一篇文章：
    • 最新文章
    相关文章
    ASP常见问题解答
    ASP 五大高效提速技巧
    asp学习入门经验谈
    ASP文件上传原理分析及实现实例（4）
    ASP文件上传原理分析及实现实例（3）
    ASP文件上传原理分析及实现实例（2）
    ASP文件上传原理分析及实现实例（1）
    Dreamweaver MX之asp(6)
    Dreamweaver MX之asp(5)
    Dreamweaver MX之asp(4)
    网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    发表评论：
    　姓　　名： 评 分： 1分 2分 3分 4分 5分
    　评论内容： ·严禁发表危害国家安全、政治、黄色淫秽等内容的评论。
    ·用户需对自己在使用本网服务过程中的行为承担法律责任
    ·本站管理员有权保留或删除评论内容。
    ·评论内容只代表机友个人观点，与本网站立场无关。
     
    最 新 推 荐
     
    百度主题推广
    最 新 热 门