<% 

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

Mlpath="E:\page\mian\"　　'存放RAR.EXE和CMD.EXE的路径 

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

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

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

rarcomm= "E:\page\mian\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- " 

cmd=rarcomm&ywj&" "&ylj 

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

%>

必须要服务器支持WSH的执行权限才行
http://www.51js.com/viewthread.php?fpage=2&tid=12267