<%
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 파일을 압축 해제 할 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 파일을 압축합니다.