Text/Chen Cheng
Avez-vous déjà pensé à décompresser des fichiers compressés en ligne ? Haha, parfois après avoir téléchargé un package compressé, il est très pratique d'utiliser le programme Asp pour le décompresser, en particulier pour les webmasters qui mettent souvent à jour leurs sites Web. Étant donné que le taux de compression des fichiers texte est important, ils utilisent la compression pour télécharger puis décompresser, ce qui permet d'économiser de l'argent par rapport au téléchargement direct. Beaucoup de temps précieux. Es-tu prêt? Alors continuez.
Pour réaliser cette fonction, vous devez d'abord obtenir la prise en charge du fichier principal de décompression du programme Rar (vous pouvez télécharger le logiciel WinRar, puis "supprimer" le fichier WinRar.exe séparément.), et vous avez également besoin du cmd fourni avec le système d'exploitation Windows. Programme .exe (ce programme est utilisé pour exécuter le fichier WinRar.exe. Il est fourni avec le système d'exploitation. Le système d'exploitation du noyau NT peut le trouver dans le dossier System32 sous le répertoire d'installation du système d'exploitation ; le Windows 9X Le système d'exploitation peut être installé dans le système d'exploitation. Recherchez-le dans le dossier Système du répertoire). Téléchargez-les ensuite dans le même répertoire. Créez un fichier asp, consultez le code suivant :
<%
Dim a, b, Principal, Shell, Exécution, Runcode, Cmd, comm, fso
Main="d:chenchengrar" `Le chemin après Winrar.exe et cmd.exe après le téléchargement.
a=Server.mappath("rar")&"" 'Le chemin de stockage après décompression du fichier rar.
b=Server.mappath("rarhomepage.rar") 'Pour que le fichier rar soit décompressé, remplacez homepage.rar par le fichier qui doit être décompressé.
Définir Shell = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'Définissez la commande pour exécuter la décompression.
Cmd=Exécuter&b&" "&a
Runcode = Shell.Run(Cmd,1, Vrai)
%>