Texto/Chen Cheng
¿Alguna vez has pensado en descomprimir archivos comprimidos en línea? Jaja, a veces después de cargar un paquete comprimido, es realmente conveniente usar el programa Asp para descomprimirlo, especialmente para los webmasters que actualizan con frecuencia sus sitios web. Dado que la relación de compresión de los archivos de texto es grande, usan compresión para cargar y luego descomprimir. lo que ahorra dinero en comparación con la carga directa. Mucho tiempo valioso. ¿Estás listo? Entonces sigue el ritmo.
Para realizar esta función, primero debe obtener la compatibilidad con el archivo central de descompresión del programa Rar (puede descargar el software WinRar y luego "sacar" el archivo WinRar.exe por separado), y también necesita el cmd que viene con el sistema operativo Windows. programa .exe (este programa se utiliza para ejecutar el archivo WinRar.exe. Viene con el sistema operativo. El sistema operativo del kernel NT puede encontrarlo en la carpeta System32 en el directorio de instalación del sistema operativo; Windows 9X El sistema operativo se puede instalar en el sistema operativo. Encuéntrelo en la carpeta Sistema en el directorio). Luego cárguelos en el mismo directorio. Cree un archivo asp, vea el siguiente código:
<%
Dim a,b,Principal,Shell,Ejecutando,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `La ruta después de Winrar.exe y cmd.exe después de la carga.
a=Server.mappath("rar")&"" 'La ruta de almacenamiento después de descomprimir el archivo rar.
b=Server.mappath("rarhomepage.rar") 'Para descomprimir el archivo rar, cambie homepage.rar por el archivo que necesita descomprimirse.
Establecer Shell = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'Configura el comando para ejecutar la descompresión.
Cmd=Ejecutar&b&" "&a
Código de ejecución = Shell.Run(Cmd,1, Verdadero)
%>