Text/Chen Cheng
온라인으로 압축 파일의 압축을 푸는 것에 대해 생각해 본 적이 있습니까? 하하, 가끔 압축된 패키지를 업로드한 후 Asp 프로그램을 사용하여 압축을 푸는 것이 정말 편리합니다. 특히 웹사이트를 자주 업데이트하는 웹마스터의 경우 텍스트 파일의 압축률이 크기 때문에 압축을 사용하여 업로드한 다음 압축을 풉니다. 직접 업로드하는 것에 비해 비용이 절약됩니다. 준비됐나요? 그럼 계속하세요.
이 기능을 실현하려면 먼저 Rar 프로그램의 압축 해제 코어 파일 지원을 얻어야 하며(WinRar 소프트웨어를 다운로드한 다음 WinRar.exe 파일을 별도로 "꺼낼" 수 있습니다.), 함께 제공되는 cmd도 필요합니다. Windows 운영 체제. .exe 프로그램(이 프로그램은 WinRar.exe 파일을 실행하는 데 사용됩니다. 운영 체제와 함께 제공됩니다. NT 커널 운영 체제는 운영 체제 설치 디렉터리 아래의 System32 폴더에서 찾을 수 있습니다. Windows 9X 운영 체제는 운영 체제에 설치할 수 있습니다. 디렉터리의 시스템 폴더 아래에서 찾으세요. 그런 다음 동일한 디렉터리에 업로드합니다. ASP 파일을 만듭니다. 다음 코드를 참조하세요.
<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `업로드 후 Winrar.exe 및 cmd.exe 이후의 경로입니다.
a=Server.mappath("rar")&"" 'rar 파일의 압축을 푼 후 저장 경로입니다.
b=Server.mappath("rarhomepage.rar") 'rar 파일의 압축을 풀려면 홈페이지.rar를 압축을 풀어야 하는 파일로 변경하세요.
Shell = Server.CreateObject("WScript.Shell") 설정
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " '압축 해제를 실행하는 명령을 설정합니다.
Cmd=실행&b&" "&a
실행코드 = Shell.Run(Cmd,1, True)
%>