Text/Chen Cheng
Haben Sie jemals darüber nachgedacht, komprimierte Dateien online zu dekomprimieren? Haha, manchmal ist es nach dem Hochladen eines komprimierten Pakets sehr praktisch, das Asp-Programm zum Dekomprimieren zu verwenden, insbesondere für Webmaster, die ihre Websites häufig aktualisieren. Da die Komprimierungsrate von Textdateien hoch ist, verwenden sie die Komprimierung zum Hochladen und anschließenden Dekomprimieren. Das spart im Vergleich zum direkten Hochladen viel wertvolle Zeit. Sind Sie bereit? Dann machen Sie weiter so.
Um diese Funktion zu realisieren, müssen Sie zunächst die Dekomprimierungs-Kerndateiunterstützung des Rar-Programms erhalten (Sie können die WinRar-Software herunterladen und dann die Datei WinRar.exe separat „herausnehmen“). Außerdem benötigen Sie das mitgelieferte cmd das Windows-Betriebssystem. .exe-Programm (dieses Programm wird zum Ausführen der Datei WinRar.exe verwendet. Es wird mit dem Betriebssystem geliefert. Das NT-Kernel-Betriebssystem findet es im Ordner System32 im Installationsverzeichnis des Betriebssystems; das Windows 9X Das Betriebssystem kann im Betriebssystemordner installiert werden. Laden Sie sie dann in dasselbe Verzeichnis hoch. Erstellen Sie eine ASP-Datei, siehe folgenden Code:
<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `Der Pfad nach Winrar.exe und cmd.exe nach dem Hochladen.
a=Server.mappath("rar")&"" 'Der Speicherpfad nach dem Dekomprimieren der rar-Datei.
b=Server.mappath("rarhomepage.rar") 'Um die rar-Datei zu dekomprimieren, ändern Sie homepage.rar in die Datei, die dekomprimiert werden muss.
Set Shell = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'Legen Sie den Befehl fest, um die Dekomprimierung auszuführen.
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%>