Utilisation d'ASP pour implémenter le code de fonction de compression et de décompression en ligne

2019-12-22

Dernier code complet en premier


 

 <% @ LANGUAGE = "VBSCRIPT" CODEPAGE = "936"%>
  Bienvenue à utiliser l'outil de décompression et de compression ASP en ligne </ title>
 <body>
 <TABLE border = 0 width = 80% align = center cellspacing = 1 cellpadding = 3 style = "FONT-FAMILY: Verdana; font-size: 14px; BORDER: # 000000 1px solid; background-color: # f7f7f7">
 <tr>
 <th width = "100%" height = "24" bgcolor = "# 33CCFF"> </ th>
 </tr>
 <tr>
 <td bgcolor = "# 33CCFF">
 <%
 Server.ScriptTimeout = 99999
 Dim winrar, cmddir
 Winrar = "C: \ Program Files \ WinRAR \ Winrar.exe" 'Adresse du fichier compressé (Winrar)
 cmddir = "% windir% \ system32 \ cmd.exe" 'adresse cmd.exe (invite de commande)
 user = "csisp" 'Nom d'utilisateur pour ce programme
 pwd = "csisp" 'Les mots de passe de connexion, de compression et de décompression de ce programme, assurez-vous de les modifier (un mot de passe combiné d'au moins 8 chiffres est suffisant pour la sécurité!)

 si request.Form ("user") = user et request.Form ("pwd") = pwd then
 response.write "Ce chemin de dossier:" & Server.Mappath (".") & "<br>"
 from = request.Form ("from")
 où = request.Form ("où")
 si <> "" et où <> "" alors
  Dim a, b, Shell, Runing, Runcode, Cmd
  si instr (où, ":") = 0 alors a = Server.mappath ("" & where & "") else a = where
  si instr (from, ":") = 0 then b = Server.mappath ("" & from & "") else b = from
  'response.Write b
  si droite (b, 1) <> "\" et gauche (droite (b, 4), 1) <> "." alors b = b & ". rar"
  En cas d'erreur Reprendre ensuite
  Définissez Shell = Server.CreateObject ("WScript.Shell")
  if request.QueryString ("action") = 1 then 'Unzip
  sinon ReportFileStatus (b) alors Response.Write ("Not found" & b & "may not exist!"): Response.End ()
  Runing = cmddir & "/ c" "" & winrar & "" "x -ibck -t -y -o + -p" & pwd & "" 'Définissez la commande pour exécuter la décompression.
  Cmd = Exécution & b & "" & a & "\"
  elseif request.QueryString ("action") = 0 puis 'Fichier compressé
  si (pas ReportFileStatus (a)) et (pas ReportFolderStatus (a)) alors Response.Write ("Non" & a & "peut ne pas exister!"): Response.End ()
  Cmd = cmddir & "/ c del / f / q" & b
  Runcode = Shell.Run (Cmd, 1, True)
  Exécution = cmddir & "/ c" "" & winrar & "" "a -ibck -y -ep -o + -p" & pwd & "" 'Compression.
  Cmd = Exécution & b & "" & a
  else 'Supprimer le fichier
  Cmd = cmddir & "/ c del / f / q" & b
  fin si

  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)
  Set Shell = rien
  ErrInfo
 %>
 <% else%>

 <form name = "frm" method = "post" action = "? action = 1" style = "BORDER: # d9d9d9 1px solid; background-color: # f7f7f7">
 -------------------------------------- <strong> Décompressez le fichier </ strong> -  -------------------------------------
 <br>
 <br>
 Veuillez saisir l'adresse du fichier compressé rar:
 <input name = "from" value = "1.rar" size = "50"> <br>
 Extrayez vers: <input name = "where" value = "." Size = "50">
 Veuillez utiliser un chemin absolu pour le dossier et ajouter "\" à la fin <br>
 <br>
 <input name = "submit" type = "submit" value = "decompression"> <input type = "hidden" name = "user" value = "<% = request.Form (" user ")%>">
 <input type = "hidden" name = "pwd" value = "<% = request.Form (" pwd ")%>">
 </ FORM>
 <form name = "frm" method = "post" action = "? action = 0" style = "BORDER: # d9d9d9 1px solid; background-color: # f7f7f7">
 -------------------------------------- <strong> Fichier compressé </ strong> ---  ------------------------------------ <br>
 <br>
 Veuillez saisir ici l'adresse du fichier que vous souhaitez compresser:
 <input name = "where" value = "./ data / dvbbs7 # .mdb" size = "50">
 Vous pouvez également saisir un dossier <br>
 <br>
 Chemin de stockage et nouveau nom de fichier: <input name = "from" value = "../ data / 1.rar" size = "50">
 Écraser automatiquement les fichiers du même nom <br>
 <br>
 <input name = "submit" type = "submit" value = "compression"> <inpLe fichier qui implémente la fonction de compression peut être nommé ZIP.ASP et le fichier qui implémente la fonction de décompression peut être nommé UNZIP.ASP.  </p>
 <p> Le code du programme contient la syntaxe de ligne de commande de l'application WINDAR, qui est brièvement présentée ci-dessous: </p>
 <p> WinRAR <commande> - <commutateur 1> - <commutateur N> <fichier compressé> <fichier ...> <fichier @list ...> <chemin de décompression /> </p>
 <p> commande Combinaison de caractères à exécuter par WinRAR.  </p>
 <p> Switch Change la définition du type spécifié, la force de compression, le type de fichier, etc.  </p>
 <p> Fichier compressé Nom du fichier compressé à traiter.  </p>
 <p> Fichier Le nom du fichier à traiter.  </p>
 <p> Fichier de liste Un fichier de liste est du texte brut contenant le nom du fichier à traiter.  Le nom du fichier doit démarrer sur le premier volume.  Vous pouvez ajouter des commentaires après le caractère // dans le fichier de liste.  Par exemple, vous pouvez inclure deux colonnes de chaînes pour créer backup.lst: c: / work / doc / *. Txt // sauvegarder des documents texte c: / work / image / *. Bmp // sauvegarder des images c: / work / misc  Exécutez ensuite: winrar a backup @ backup.lst Vous pouvez spécifier le nom de fichier commun et le nom de fichier de liste sur la ligne de commande.  </p>
 <p> Le chemin de décompression est utilisé uniquement avec les commandes e et x.  Indiquez où le fichier décompressé est ajouté.  Si le dossier n'existe pas, il sera créé automatiquement.  </p>
 <p> Liste des commandes de lettres: </p>
 <p>
 <table cellspacing = "0" cellpadding = "0" border = "0">
   <tbody>
     <tr>
       <td> a Ajouter un fichier au fichier compressé </td>
       <td> c ajouter des commentaires de fichiers compressés </td>
     </tr>
     <tr>
       <td> d Supprimer les fichiers du fichier compressé </td>
       <td> e Décompressez le fichier compressé, ignorez le chemin </td>
     </tr>
     <tr>
       <td> f Actualiser les fichiers dans des fichiers compressés </td>
       <td> i Rechercher des chaînes dans des fichiers compressés </td>
     </tr>
     <tr>
       <td> k Verrouiller les archives </td>
       <td> m Déplacer des fichiers et des dossiers vers des fichiers compressés </td>
     </tr>
     <tr>
       <td> r Réparer les fichiers compressés endommagés </td>
       <td> rc reconstruire le volume perdu </td>
     </tr>
     <tr>
       <td> rn Renommer le fichier compressé </td>
       <td> rr [N] Ajouter des enregistrements de récupération de données </td>
     </tr>
     <tr>
       <td> rv [N] Créer un volume de récupération </td>
       <td> s [nom] Convertir le fichier compressé en type de fichier auto-extractible </td>
     </tr>
     <tr>
       <td> s- supprimer le module auto-extractible </td>
       <td> t tester le fichier compressé </td>
     </tr>
     <tr>
       <td> u Mettre à jour des fichiers à partir de fichiers compressés </td>
       <td> x Décompressez l'archive d'un fichier compressé avec le nom de chemin complet </td>
     </tr>
   </ tbody>
 </ table>
 </p>
 <p> En fait, le point clé dans le code du programme est d'utiliser Server.CreateObject ("Wscript.Shell") pour exécuter CMD.EXE et CMD.EXE pour exécuter RAR.EXE pour exécuter les fichiers décompressés et les fichiers compressés via les commandes WINDAR.  </p>
 <p> <strong> Trois, liste de programmes </ strong> </p>
 <p> Liste des programmes ZIP.ASP: </p>
 <br>
 <pre class = "brush: vb;">
 <%
 Le dossier principal contient cmd.exe rar.exe Par exemple: le fichier à compresser (* .mdb)
 'Le répertoire de stockage compressé est main / data.rar
 en cas d'erreur reprendre ensuite
 unzip_path = Server.mappath ("main") & "/"
 Définissez WshShell = server.CreateObject ("Wscript.Shell")
 IsSuccess = WshShell.Run ("winrar a" & unzip_path & "data
 "& unzip_path &" *. mdb ", 1, False)
 'WinRAR <commande> - <switch1> - <switchN> <fichier compressé> <fichier ...> <fichier @list ...>
 <Chemin de décompression />
 'Commande: A-ajouter au fichier compressé
 si IsSuccess = 0 Alors
 Response.write "Commande exécutée avec succès!"
 d'autre
 Response.write "La commande a échoué! Autorisations insuffisantes ou le programme ne peut pas s'exécuter"
 fin si
 si err.number <> 0 alors
 Response.Write "<p> Numéro d'erreur:" & Err.number
 Response.Write "<p> raison:" & Err.description
 Response.Write "<p> Source d'erreur:" & Err.Source
 Response.Write
 fin si
 %> </ pré>
 <br>
 <p> Liste des programmes UNZIP.ASP: </p>
 <br>
 <pre class = "brush: vb;">
 <%
 Le dossier principal contient les fichiers rar.exe cmd.exe à extraire (* .rar)
 «Le répertoire de stockage décompressé est principal
 en cas d'erreur reprendre ensuite
 unzip_path = Server.mappath ("main") & "/"
 Définissez WshShell = server.CreateObject ("Wscript.Shell")
 IsSuccess = WshShell.Run ("winrar x -r -o +" & unzip_path & "*. Rar
 "& unzip_path &" ", 1, Faux)
 'WinRAR <commande> - <switch1> - <switchN> <fichier compressé> <fichier ...> <fichier @list ...>
 <Chemin de décompression />
 'Commande: extraire le fichier X à partir du chemin complet du fichier compressé
 'Switch: -R-avec sous-dossiers
 'Switch: -O + -écraser le fichier existant
 'Switch: -O - Ne pas écraser les fichiers existants
 si IsSuccess = 0 Alors
 Response.write "Commande exécutée avec succès!"
 d'autre
 Response.write "La commande a échoué! Autorisations insuffisantes ou le programme ne peut pas s'exécuter"
 fin si
 si err.number <> 0 alors
 Response.Write "<p> Numéro d'erreur:" & Err.number
 Response.Write "<p> raison:" & Err.description
 Response.Write "<p> Source d'erreur:" & Err.Source
 Response.Write
 fin si
 %> </ pré>
 <br>
 <p> <strong> Quatre, conclusions </ strong> </p>
 <p> Cet article utilise les deux fichiers RAR.EXE et CMD.EXE pour réaliser la fonction de compression et de décompression en ligne des fichiers du site Web dans la programmation ASP.  La méthode d'implémentation est simple et le code du programme est petit, ce qui peut être utilisé comme référence pour une programmation pratique.  Particulièrement pratique et pratique lorsque vous avez votre propre serveur.  Le programme ci-dessus s'exécute sous Windows2000Sever et IIS5.0.  </p>La possibilité de compresser et de décompresser des fichiers sur votre site Web en ligne.  La méthode d'implémentation est simple et le code du programme est petit, ce qui peut être utilisé comme référence pour une programmation pratique.  Particulièrement pratique et pratique lorsque vous avez votre propre serveur.  Le programme ci-dessus s'exécute sous Windows2000Sever et IIS5.0.  </p></div>
 <link rel="stylesheet" type="text/css" href="js/shCore.css">
<link rel="stylesheet" type="text/css" href="js/shThemeDefault.css">
    <div style="clear: both;"></div>

</div>



<!-- Matomo -->
<script type="text/javascript">
  var _paq = window._paq || [];
  /* tracker methods like "setCustomDimension" should be called before "trackPageView" */
  _paq.push(['trackPageView']);
  _paq.push(['enableLinkTracking']);
  (function() {
    var u="//count.flyfishcourse.com/";
    _paq.push(['setTrackerUrl', u+'matomo.php']);
    _paq.push(['setSiteId', '15']);
    var d=document, g=d.createElement('script'), s=d.getElementsByTagName('script')[0];
    g.type='text/javascript'; g.async=true; g.defer=true; g.src=u+'matomo.js'; s.parentNode.insertBefore(g,s);
  })();
</script>
<!-- End Matomo Code -->


<div id="bottom">www.xd1998.com@2001-2030Partage De Technologie</div>
 
</body>

</html>