ASP automatically decompress the rarfile on the server

<%

Dim ylj, ywj, mlpath, Shell, rarcomm, retcode, CMD, comm, FSO

Mlpath = "E: \ Page \ Mian \" 'path for storing RAR. EXE and cmd. exe

Ylj = server. mappath ("Mian") & "\" 'path after extracting the file

Ywj = server. mappath ("Mian \ apathy.rar") 'The rarfile 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)

%>

Server. Createobject ("wscript. Shell") is used to run cmd. EXE to run the rar. EXE file to decompress the rarfile.