In fact, it is very simple to implement this feature. First, you need to upload a RAR decompression program, that is, Rar's own decompression program, just need its core program rar.exe. This file is OK. Then you have to upload a program cmd.exe that executes rar.exe is the program in Windows (don't you have to say more). Finally, these programs are started. Look at the following code
<%
Dim Ylj, Ywj, Mlpath, Shell, Rarcomm, Retcode, CMD, Comm, FSO
Mlpath = "e: / page / mian /" 'Store Rar.exe and Cmd.exe path
YLJ = Server.mappath ("Mian") & "/" 'Different the path placed after the file
YWJ = Server.mappath ("Mian / Apathy.rar") 'To decompress the RAR file
Set shell = server.createObject ("wscript.shell")
RARCOMM = "E: /Page/mian/cmd.exe / c" & mlpath & "rar.exe x -t-= -p-"
Cmd = RARCOMM & YWJ & "& ylj
Retcode = shell.run (cmd, 1, true)
%>
That is to use server.createObject ("wscript.shell") to perform cmd.exe to run the RAR.exe file to extract the RAR file.