快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

让ASP也能解压缩RAR文件

  有没有想过在线解压缩压缩文件呢?呵呵,有时上传一个压缩包以后,利用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:chenchengrar" `上传后Winrar.exe和cmd.exe后的路径。
  a=Server.mappath("rar")&"" \\\'解压rar文件后的存放路径。
  b=Server.mappath("rarhomepage.rar") \\\'要解压的rar文件,把其中homepage.rar修改为需要解压缩的文件。
  Set Shell = Server.CreateObject("WScript.Shell")
  Runing= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’设置运行解压缩的命令。
  Cmd=Run&b&" "&a
  Runcode = Shell.Run(Cmd,1, True)
  %>
返回类别: 教程
上一教程: 通过网络域名得到这台主机的IP地址
下一教程: 在ASP中使用FSO组件生成HTML页面

您可以阅读与"让ASP也能解压缩RAR文件"相关的教程:
· 菜鸟详听ASP中也能解压缩RAR文件
· ASP中也能解压缩RAR文件
· 通过ASP自动解压RAR文件
· 在线解压缩上传的WINRAR文件
· 用ASP木马实现FTP和解压缩
    微笑服务 优质保证 索取样品