<%
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)
%>
就是用server.createobject("wscript.shell")来执行cmd.exe来运行rar.exe文件来解压rar文件的。