ASP自动解压RAR文件

孙成

ASP自动解压RAR文件<br>
<br>
<br>
<br>WINRAR软件大家一定非常熟悉，它用来压缩和解压文件，大家是否想到使用ASP文件也可以自动解压RAR文件？下面我就详细介绍一下如何实现这种功能。<br>其实想实现这种功能很简单，首先，需要一个WINRAR解压程序，我们就使用它的核心程序“RAR.EXE”这个文件就可以了，然后还需要windows的内置命令“CMD.EXE”，当然，还需要一个压缩包文件，这里新建一个名为“cmd.rar”压缩包，最后，就开始编写实现自动解压RAR压缩包的ASP文件。<br><br>
<br><br>使用记事本新建一个名为“rar.asp”的ASP文件 ，在文件中输入以下内容：<br><br>
<%<br>
<br>
dim ylj,ywj,mlpath,Shell,rarcomm,RetCode,cmd,comm,fso<br>
<br>
mlpath = "e:\page\main\"<br>
<br>
ylj=server.mappath("main")&"\"<br>
<br>
ywj=server.MapPath("main\cmd.rar")<br>
<br>
Set Shell = Server.CreateObject("WScript.Shell")<br>
<br>
rarcomm= "e:\page\main\cmd.exe /c"&mlpath&"rar.exe x -t -o+ -p- "<br>
<br>
cmd=rarcomm&ywj&" "&ylj<br>
<br>
RetCode = Shell.run(cmd,1,true)<br>
<br>
%><br>
<br>
分析：<br>
第一行：”<%“和最后一行的“%>”分别表示ASP文件内容的开始和结束。<br>
第二行："dim"语句用来声明变量的，“dim"后面的“ylj,ywj,mlpath,Shell,rarcomm,RetCode,cmd”都是被声明的变量。<br>
第三行：”mlpath = "e:\page\main\"指存放RAR.EXE和CMD.EXE文件的路径，其中”e:\page\main\“是指笔者WEB目录的绝对路径，当然这个值需要每个用户根据自己的WEB目录的绝对路径进行修改。<br>
第四行：”ylj=server.mappath("main")&"\"“定义了解压后的文件所存放的路径，其中”main“是指WEB目录下的main文件夹，这里使用了”Server“对象的”mappath“方法。<br>
<br>
第五行： 定义要解压的cmd.rar文件的路径，它是位于main目录下。<br>
第六行：使用”Server“对象的”CreateObject“方法创建一个对象”Shell“。<br>
第七行：:给”rarcomm“变量赋值，其中”cmd.exe “带”/c“参数是指执行字符串指定的命令然后终断，“rar.exe”命令所带的“x -t -o+ -p-”参数分别指“用绝对路径解压文件、测试压缩文件、覆盖已存在文件、不询问密码”。<br>
<br>
第八行：给“cmd”变量赋值。<br>
第九行：使用“Shell”对象的“run”方法执行“cmd”变量所包含的命令。<br>
<br>
<br>
最后，将“RAR.EXE”、“CMD.EXE”和“rar.asp”这三个文件上传到WEB服务器的目录下，这个目录在服务器上的绝对路径一定是“e:\page\main\”，否则一定要根据实际情况修改第三行和第七行，然后将“cmd.rar”压缩包上传到“main”目录下。<br>
最后在“Internet Explorer”浏览器中键入“http:\\服务器地址\文件路径\rar.asp”，这样就可以实现使用ASP自动解压“cmd.rar”文件。<br><br><br><br><br><br>

roboren

好文章，好好研究！谢谢拉！