<b>ASP中也能解压缩rar文件</b>[网站编程]

有没有想过在线解紧缩紧缩文件呢?呵呵,有时上传一个紧缩包今后,操纵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)
%>