<%
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso
Mlpath="E:/page/mian/" 'The path to store RAR.EXE and CMD.EXE
ylj=Server.mappath("mian")&"/" 'The path placed after decompressing the file
ywj=Server.mappath("mian/apathy.rar") 'The RAR file to be decompressed
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)
%>
It is to use Server.CreateObject("WScript.Shell") to execute CMD.EXE to run the RAR.EXE file to decompress the RAR file.