联系方式

站长:
联系人:赵先生
手机:18183869808

QQ 64816414
保健茶:

联系人:罗小姐

电话:15368244381

QQ 834856496

菜鸟详听asp中也能解压缩rar文档_asp实例
发布者:zaq 类型:杂器快贴 发布时间:2018-12-14 18:46:10 浏览:3516次 [回复]
有没有想过在线解压缩压缩文档呢?呵呵,有时上传一个压缩包以后,利用Asp程式解压缩的确很方便,尤其是经常更新网站的站长们,由于文本文档压缩比率大,所以采用压缩以后上传再解压缩,这样比直接上传节省了大量的宝贵时间。准备好了吗?那就跟上吧。

  要想实现这种功能,首先要得到Rar程式的解压缩核心文档支持(能够下载WinRar软件,再把其中的WinRar.exe文档单独“拿”出来。),并且还需要Windows操作系统自带的cmd.exe程式(这个程式用来执行WinRar.exe文档。操作系统自带的,NT内核的操作系统能够在操作系统安装目录下的System32文档夹下找到他;Windows 9X的操作系统能够在操作系统安装目录下的System文档夹下找到他。)。然后把他们上传到同一目录中。建立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)
%>
源地址:http://www.zaqi.net/word_view.asp?files_id=2103
上一篇:asp动态生成wbmp图片的程式_asp技巧
下一篇:动物也会避免近亲繁殖
零售:¥50元
批发:¥35元
零售:¥75元
批发:¥70元
请电话咨询价格
零售:¥470元
批发:¥320元
杂器网络版权所有  免责声明