In fact, it is very easy to implement this function. First, you need to upload a RAR decompression program, that is, the RAR's own decompression program, which only needs its core
The file RAR. EXE can be used. Then upload a program run RAR. EXE. cmd. EXE, which is a program in Windows (I don't have to talk about it ). Finally, execute these programs. Look at the code below.
Program code:
<%
Dim ylj, ywj, mlpath, Shell, rarcomm, retcode, CMD, comm, FSO
Mlpath = "E:/page/Mian/" 'stores RAR. EXE and cmd. EXE paths
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.
I do not know whether any of my predecessors have published these articles before, but I hope you can use this method to implement many programs similar to this.