Fügen Sie zunächst einen vollständigen Code hinzu
<!-Name-ASP Online-Dekompression, Komprimierungstool Copyright -VEVB wulin.com (www.vevb.com)-> <%@Sprache = vbscript Codepage = 936%> <title> Willkommen mit ASP Online-Dekompression, Kompression, Kompression, Kompression, Kompression, Kompression, Kompression, Kompression, Kompression Tool < /title> <body> <table border = 0 width = 80% align = center cellpacing = 1 cellpadding = 3 style = font-familie: Verdana; Schriftgröße: 14px; Border: #000000 1px solide; Hintergrundfarbe; Hintergrundfarbe; Hintergrundfarbe; Hintergrundfarbe; Hintergrundfarbe; :# f7f7f7> <tr> <th Breite = 100% Höhe = 24 bgcolor =#33ccff> </th> </tr> <tr> <td bgcolor =#33ccff> <%server Die Adresse der Datei (WinRAR) cmddir =%winTir%/system32/cmd.exe 'cmd.exe' und Dekompression dieses Programmkennworts, ändern Sie bitte unbedingt (mindestens 8 Ziffern kombinierter Passwörter sind sicher!) Wenn request.form (user) = user und request.form (pwd) = pwd thenResponse.write den Pfad dieses Ordners: & server.mappath (.) & <br> von = Request.Form (von) Wo = Request.Form (wo) wenn von <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo <> und wo aus <> und wo aus <> und wo aus <> und wo > Dann Dim a, b, Shell, Runing, Runcode, CMD if Instr (WHERE, :) = 0, dann a = server.mappath (& wo &) else a = wobei Instrument (von, :) = 0 dann B = Server. Mappath (& from &) else b = aus 'response.write b if right (b, 1) <>/ und links (rechts (b, 4), 1) <>. (b) dann Antwort.Write (nicht gefunden & B & B & Möglicherweise existieren nicht! ): Response.end () runing = cmddir & /c & winrar & x -ibck -t -y -o+ -p & pwd & 'Setzen Sie den Befehl, um die Dekompression auszuführen. Cmd = runing & b & &// elseif request.queryString (action) = 0, dann 'data compress Datei if (nicht reportFilestatus (a)) und (nicht reportPolderStatus (a)) dann Antwort.Write (nicht gefunden & a & a & möglicherweise nicht existieren!): Antwort. End () cmd = cmddir & /c del /f /q & b runcode = Shell.run (CMD, 1, TRUE) Runing = CMDDIR & /C & Winrar & a -IBCK -Y -y -o -O -O+ -P & PWD & 'Compression. Cmd = runing & b & & a else 'löschen Sie die Datei cmd = cmddir & /c del /f /q & b ende, wenn runcode = Shell.run (cmd, 1, true) runing = Shell.run (cmddir & /c taskkill /im Winrar.exe, 1, false) runing = Shell.run (CMDDIR & /C Exit, 1, False) Setzen Sie Shell = Nichts errinfo%> <%sonst%> <Formular Name = frm Methode = Post Action =? Action = 1 Style = Border: # D9D9D9 1PX Solid; Hintergrundfarbe:#F7F7F7> ----------------------------------------- -<strong> Entpacken Sie die Datei </strong> ----------------------------------- ------------ <br> <BR> Bitte geben Sie die RAR-komprimierte Dateiadresse ein: <Eingabename = von value = 1.rar size = 50> <br> Dekomprimieren Sie: <Eingabename = wobei value =. Request.Form (Benutzer)%>> <Eingabe Typ = Hidden name = pwd value = <%= request.Form (pwd)%>> </Form> <Formular name = fre :#f7f7f7> ---------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- --------------------------------------------------> -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---- Die Adresse der Datei, die Sie komprimieren möchten: <Eingabename = wobei Value =./Data/dvbbs7#.mdb size = 50> Sie können auch den Ordner eingeben <br> <br> Speicherpfad und neuer Dateiname: <Eingabename = von value = ../daten/1.rar size = 50> Überschreiben Sie die Datei ursprünglich mit demselben Namen <br> <br> <Eingabename = Senden type = subive value = compression> <Eingabe type = HIDDEN NAME = Benutzer value = <%= request.Form (Benutzer)%>> <Eingabe type = Hidden name = pwd value = <%= Request .Form (PWD)%>> </form> <%errinfoend ifelSelogin () End ifSub errinfo, wenn nicht isEmpty (runcode) und RunCode = 0 dann Antwort.Write (Der Vorgang wird erfolgreich ausgeführt. Der von Ihnen eingereichte Vorgang lautet wie folgt: <br> & cmd) Elsef nicht isEmpty (runcode) thes antwort.write (der Vorgang wird ausgeführt fehlgeschlagen! Möglicherweise sind Ihre Berechtigungen nicht ausreichend oder das Programm kann in DOS nicht ausgeführt werden (Eingabeaufforderung). %> <Formular name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solide; Hintergrundfarbe: #f7f7f7> ------------------------------ --- ------------------ <strong> Dateien löschen </strong> -------------------- ------ ------------------ <br> <br> Bitte geben Sie die Adresse ein, um die Datei zu löschen: <Eingabename = von size = 50 value = <%= aus%>> Ordner Bitte verwenden Antwort. = PWD -Wert = <%= Request.Form (PWD)%>> </form> <br> <%End -Subfunktion ReportFilestatus (filespec) dim fso set fso = createObject (scripting.FilesSystemObject) ReportFilestatus = False if (fso.FileExists (filespec), dann reportFilestatus = true set fso = Nothing -FunktionsfunktionFunctionFolderStatus (fldr) dim fso set FSOS = create = creating -create = creating -create = creating -create = creating -create = screcting.ftresystem (scripting. ) ReportFolderStatus = false if (fso.morteRexists (FLDR)) dann ReportFolderStatus = true set fso = Nothing-FunktionsfunktionsuB-login ()%> <Formular name = frm methode = post action =? Action = 2 style = border: #d9d9d9 1px solide; background-color: #f7f7f7> <p> --- --- ------------------------- <strong> Anmeldesystem </strong> ----- ----------- -------------------- <br> <br> Benutzername: <Eingabename = Benutzer value = cSISSP> </p> Passwort: <Eingabename = PWD-Typ = Passwort id = pwd> <br> <br> <Eingabe name = surugent type = sure value = login> </form> <%End sub%> </td> </tr> <tr> <td Höhe = 22 Align = Center Bgcolor =#ffffff> Copyright © 2008 <a href = // www.vevb.com> vevb wulin.com </a> </td> </tr> </table> </body>
Wie man verwendet:
1. Laden Sie direkt in ein beliebiges Verzeichnis auf dem Server hoch (virtueller Host) (vorzugsweise das Stammverzeichnis)
2. Verwenden Sie einen Browser, um auf die Dateiadresse Winrar.asp zuzugreifen
3. Geben Sie die Kontonummer und das Passwort ein (Standardkontontennummer: CSISP -Standardkennwort: CSISP).
V.
5. Geben Sie die Adresse der Datei ein, die Sie komprimieren möchten, und nach der Bestätigung können Sie sie komprimieren!
Besondere Erinnerung: Die Dateiadresse ist die relative Adresse dieses WinRAR -Systems!
Der Server, der dieses Programm verwendet, muss mit WinRAR installiert werden (übliche Server sind installiert)
Die Standardprogrammadresse dieses Programms eignet sich für mehr als 99% der Server (virtuelle Hosts)
Wenn die Adresse falsch ist, können Sie sie selbst ändern.
Die folgenden Details und Ergänzungen
1. Problemaufzucht
Während sich das Internet entwickelt, hat die Anzahl der Websites mit erstaunlichen Zahlen zugenommen. Neben der Bereitstellung von Informationsdiensten für Internetnutzer sollte die Website auch zu einem Ort für Internetplätze werden, um Dateien hochzuladen und herunterzuladen. Während des Hochladens und Herunterladens von Dateien ist die Übertragungszeit der Schlüssel, der eine schnellere Übertragungsgeschwindigkeit erfordert. Wenn die Übertragungsgeschwindigkeit festgelegt ist oder sich die Aufwärts- und Abnutzung kaum ändert, ist es eine praktikable Möglichkeit, das Volumen der übertragenen Datei zu minimieren: Wenn Sie die Datei hochladen, werden Sie zunächst die Datei zum Hochladen mit Winrar komprimieren und nach dem Upload erfolgreich ist. Es wird in der Website sein. In diesem Artikel wird die Lösung für dieses Problem erörtert.
2. Methoden und Anweisungen
Zunächst müssen Sie ein Winrar -Dekompressionsprogramm hochladen, das Winrar -eigene Dekompressionsprogramm ist. Anschließend möchten Sie ein Programm hochladen, das rar.exe ausführt. Nachdem Sie diese beiden Dateien hochgeladen haben, müssen Sie einen Programmcode schreiben, um Komprimierung und Dekompression zu implementieren.
Sie können genauso gut die Datei benennen, die die Komprimierungsfunktion Zip.asp implementiert, und die Datei, die die Dekompressionsfunktion unzip.asp implementiert.
Der Programmcode enthält die Befehlszeilensyntax des Anwendungs Winrar, und das Folgende ist eine kurze Einführung:
Winrar <Kandschaft> -<Switch 1> -<Switch N> <komprimierte Datei> <datei ...> <@List -Datei ...> <dekomprimiertes Pfad/>
Die Charakterkombination, die der von Winrar ausgeführte Befehl ausführt, repräsentiert die Funktion.
Der Switch -Switch -Betrieb definiert Typ, Komprimierungsstärke, Komprimierungs -Dateityp usw.
Der komprimierte Dateiname zu verarbeiten.
Der zu verarbeitende Dateiname.
List -Dateien List -Dateien sind nur noch Text, der den Namen der zu verarbeitenden Datei enthält. Der Dateiname sollte auf Band 1 gestartet werden. Sie können Kommentare hinzufügen, nachdem Sie // Zeichen in der Listendatei verwendet haben. Sie können beispielsweise Backup.LST erstellen: C:/work/doc/*. Txt // Back -up -Textdokument C:/work/image/*. BMP // Back -up -Bild c:/work/mis : Winrar a backup @backup.lst Sie können sowohl den normalen Dateinamen als auch den Listenfilenamen in der Befehlszeile angeben.
Der Dekompressionspfad wird nur mit Befehlen e und x verwendet. Gibt an, wo die dekomprimierte Datei hinzugefügt wurde. Wenn der Ordner nicht vorhanden ist, wird er automatisch erstellt.
Liste der Briefbefehle:
| Eine Datei hinzufügen zur komprimierten Datei | C Fügen Sie komprimierte Dateikommentare hinzu |
| D Löschen Sie die Datei aus der komprimierten Datei | E dekomprimieren aus der komprimierten Datei, ignorieren Sie den Pfad |
| f Aktualisieren Sie die Datei in der komprimierten Datei | Ich finde Strings in komprimierten Dateien |
| K sperren komprimierte Dateien | m Verschieben Sie Dateien und Ordner in komprimierte Dateien |
| r Reparatur beschädigte komprimierte Dateien | RC Rebuild Fehlender Volumen |
| RN benennen die komprimierte Datei um | RR [N] Datenwiederherstellungsdatensatz hinzufügen |
| RV [n] Erstellen Sie ein Wiederherstellungsvolumen | s [name] konvertiert komprimierte Dateien in selbstextrahierte Dateitypen |
| Self-Extrahing-Modul löschen | t testen Sie komprimierte Dateien |
| U Aktualisieren Sie Dateien aus komprimierten Dateien | x Dekomprimierung aus komprimierte Datei mit vollem Pfadname |
Tatsächlich ist der wichtigste Punkt im Programmcode die Verwendung von Server.createObject (WScript.Shell), um CMD.exe auszuführen.
3. Verfahrensliste
ZIP.asp -Programmliste:
<%'Hauptordner enthält cmd.exe rar.exe zum Beispiel: Die zu komprimierte Datei (*.mdb)' Das komprimierte Speicherverzeichnis ist main/data.raron fehlerrückgabe nextUnzip_path = server.mappath (main) &/setze wshshell = server.createObject (wscript.shell) issuccess = wshshell.run (Winrar a & unzip_path & data & unzip_path &*. .> <@list -Datei ...> <Decompress Path/> '' Befehl: a - zur komprimierten Datei hinzufügen, wenn ISSUCCESS = 0 Der Befehl theSResponse.write wurde erfolgreich ausgeführt! Der Befehl elseresponse.write konnte nicht ausgeführt werden! Die Berechtigungen sind unzureichend oder das Programm kann end ifif err.number <> 0 thenResponse.write <P> Fehlernummer: & err.numberResponse.write <P> Grund: & err.descriptionResponse.Write <P> Fehlerquelle: & & & & Err.Description.Write <P> Fehlerquelle: & & & & & & Err; Ähm
Programmliste unzip.asp:
<%'Hauptordner enthält die Datei cmd.exe rar.exe, die dekomprimiert werden soll (*.rar). Das dekomprimierte Verzeichnis ist Mainon -Fehler Resume Nextunzip_path = Server.Mappath (Haupt) &/setze WSHSHELL = Server. Issuccess = wshshell.run (Winrar x -r -o+ & unzip_path &* Datei ...> <Decompress Path/> 'Befehl: x - Dekompressdatei Vollständiger Pfad aus komprimierter Datei' Switch: -r - mit Unterordner 'Switch: -O+ - Überschreiben Sie den vorhandenen Datei -Switch: -O- - Überschreiben Sie die vorhandene Datei nicht, wenn ISSUCCESS = 0 ThenResponse.Write -Befehl erfolgreich ausgeführt wird! Der Befehl elseresponse.write konnte nicht ausgeführt werden! Die Berechtigungen sind unzureichend oder das Programm kann end ifif err.number <> 0 thenResponse.write <P> Fehlernummer: & err.numberResponse.write <P> Grund: & err.descriptionResponse.Write <P> Fehlerquelle: & & & & Err.Description.Write <P> Fehlerquelle: & & & & & & Err; Ähm
4. Schlussfolgerung
In diesem Artikel wird rar.exe und cmd.exe verwendet, um die Funktion der Online -Komprimierung und Dekomprimierung von Dateien in Websites in der ASP -Programmierung zu erkennen. Die Implementierungsmethode ist einfach und es gibt nur wenig Programmcode, der als Referenz und Verwendung während der praktischen Programmierung verwendet werden kann. Vor allem, wenn Sie einen eigenen Server haben, ist dies äußerst nützlich und bequem. Das obige Programm wird unter Windows 2000sever und IIS 5.0 ausgeführt.