Текст/Чэнь Ченг
Задумывались ли вы когда-нибудь о распаковке сжатых файлов в Интернете? Ха-ха, иногда после загрузки сжатого пакета действительно удобно использовать программу 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, замените homepage.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)
%>