Teks/Chen Cheng
Pernahkah Anda berpikir untuk mendekompresi file terkompresi secara online? Haha, terkadang setelah mengupload paket terkompresi, sangat nyaman menggunakan program Asp untuk mendekompresinya, terutama bagi para webmaster yang sering mengupdate websitenya. Karena rasio kompresi file teksnya besar, mereka menggunakan kompresi untuk mengupload dan kemudian mendekompresi, yang menghemat uang dibandingkan dengan mengunggah langsung. Apakah kamu siap? Kemudian ikuti terus.
Untuk mewujudkan fungsi ini, Anda harus terlebih dahulu mendapatkan dukungan file inti dekompresi dari program Rar (Anda dapat mengunduh perangkat lunak WinRar, lalu "mengeluarkan" file WinRar.exe secara terpisah.), dan Anda juga memerlukan cmd yang disertakan dengan sistem operasi Windows. Program .exe (program ini digunakan untuk mengeksekusi file WinRar.exe. Muncul dengan sistem operasi. Sistem operasi kernel NT dapat menemukannya di folder System32 di bawah direktori instalasi sistem operasi; Windows 9X sistem operasi dapat diinstal di sistem operasi. Temukan di bawah folder Sistem di direktori). Kemudian unggah ke direktori yang sama. Buat file asp, lihat kode berikut:
<%
Redupkan a,b,Utama,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `Jalur setelah Winrar.exe dan cmd.exe setelah diunggah.
a=Server.mappath("rar")&"" 'Jalur penyimpanan setelah mendekompresi file rar.
b=Server.mappath("rarhomepage.rar") 'Agar file rar didekompresi, ubah homepage.rar ke file yang perlu didekompresi.
Setel Shell = Server.CreateObject("WScript.Shell")
Running= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " 'Atur perintah untuk menjalankan dekompresi.
Cmd=Jalankan&b&" "&a
Runcode = Shell.Run(Cmd,1, Benar)
%>