文/Chen Cheng
圧縮ファイルをオンラインで解凍することを考えたことはありますか?あはは、圧縮パッケージをアップロードした後、Asp プログラムを使用して解凍すると非常に便利です。特に、頻繁に Web サイトを更新するウェブマスターにとっては、テキスト ファイルの圧縮率が高いため、圧縮を使用してアップロードしてから解凍します。直接アップロードするよりも費用が節約され、貴重な時間を大幅に節約できます。準備はできたか？それから続けてください。
この機能を実現するには、まず、Rar プログラムの解凍コア ファイル サポートを取得する必要があります (WinRar ソフトウェアをダウンロードして、WinRar.exe ファイルを個別に「取り出す」ことができます)。また、付属の cmd も必要です。 Windows オペレーティング システム。.exe プログラム (このプログラムは WinRar.exe ファイルを実行するために使用されます。このプログラムはオペレーティング システムに付属しています。NT カーネル オペレーティング システムの場合は、オペレーティング システムのインストール ディレクトリの System32 フォルダにあります。Windows 9X の場合)。オペレーティング システムは、ディレクトリ内の System フォルダの下にインストールできます)。次に、それらを同じディレクトリにアップロードします。 ASP ファイルを作成します。次のコードを参照してください:
<%
Dim a、b、メイン、シェル、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を解凍したいファイルに変更してください。
Set 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)
%>