文/陳程

 　有沒(méi)有想過(guò)在線解壓縮壓縮文件呢？呵呵，有時(shí)上傳一個(gè)壓縮包以后，利用asp程序解壓縮的確很方便，尤其是經(jīng)常更新網(wǎng)站的站長(zhǎng)們，由于文本文件壓縮比率大，所以采用壓縮以后上傳再解壓縮，這樣比直接上傳節(jié)省了大量的寶貴時(shí)間。準(zhǔn)備好了嗎？那就跟上吧。

　　要想實(shí)現(xiàn)這種功能，首先要得到Rar程序的解壓縮核心文件支持（可以下載WinRar軟件，再把其中的WinRar.exe文件單獨(dú)“拿”出來(lái)。），并且還需要Windows操作系統(tǒng)自帶的cmd.exe程序（這個(gè)程序用來(lái)執(zhí)行WinRar.exe文件。操作系統(tǒng)自帶的，NT內(nèi)核的操作系統(tǒng)可以在操作系統(tǒng)安裝目錄下的System32文件夾下找到它；Windows 9X的操作系統(tǒng)可以在操作系統(tǒng)安裝目錄下的System文件夾下找到它。）。然后把它們上傳到同一目錄中。建立asp文件，見(jiàn)以下代碼：

<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:/chencheng/rar" `上傳后Winrar.exe和cmd.exe后的路徑。
a=Server.mappath("rar")&""　'解壓rar文件后的存放路徑。
b=Server.mappath("rar/homepage.rar")　'要解壓的rar文件，把其中homepage.rar修改為需要解壓縮的文件。
Set Shell = Server.CreateObject("WScrCmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%>