Texto/Chen Cheng
Você já pensou em descompactar arquivos compactados online? Haha, às vezes depois de enviar um pacote compactado, é realmente conveniente usar o programa Asp para descompactá-lo, especialmente para webmasters que atualizam frequentemente seus sites. Como a taxa de compactação dos arquivos de texto é grande, eles usam compactação para fazer upload e depois descompactar. o que economiza dinheiro em comparação com o upload direto. Muito tempo valioso. Você está pronto? Então continue.
Para realizar esta função, você deve primeiro obter o suporte ao arquivo principal de descompactação do programa Rar (você pode baixar o software WinRar e, em seguida, "retirar" o arquivo WinRar.exe separadamente.), E você também precisa do cmd que vem com o sistema operacional Windows. Programa .exe (este programa é usado para executar o arquivo WinRar.exe. Ele vem com o sistema operacional. O sistema operacional kernel NT pode encontrá-lo na pasta System32 no diretório de instalação do sistema operacional; o Windows 9X sistema operacional pode ser instalado no sistema operacional. Encontre-o na pasta Sistema no diretório). Em seguida, carregue-os no mesmo diretório. Crie um arquivo asp, veja o seguinte código:
<%
Dim a, b, Principal, Shell, Runing, Runcode, Cmd, comm, fso
Main="d:chenchengrar" `O caminho após Winrar.exe e cmd.exe após o upload.
a=Server.mappath("rar")&"" 'O caminho de armazenamento após descompactar o arquivo rar.
b=Server.mappath("rarhomepage.rar") 'Para que o arquivo rar seja descompactado, altere homepage.rar para o arquivo que precisa ser descompactado.
Definir Shell = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'Defina o comando para executar a descompactação.
Cmd=Executar&b&" "&a
Código de execução = Shell.Run(Cmd,1, Verdadeiro)
%>