文/陳程
有沒有想過在線解壓縮壓縮檔呢？呵呵，有時上傳一個壓縮包以後，利用Asp程式解壓縮的確很方便，尤其是經常更新網站的站長們，由於文字檔壓縮比率大，所以採用壓縮以後上傳再解壓縮，這樣比直接上傳節省了大量的寶貴時間。準備好了嗎？那就跟上吧。
要實現這種功能，首先要得到Rar程式的解壓縮核心檔案支援（可以下載WinRar軟體，再把其中的WinRar.exe檔案單獨「拿」出來。），並且還需要Windows作業系統自帶的cmd .exe程式（這個程式用來執行WinRar.exe檔。作業系統自帶的，NT核心的作業系統可以在作業系統安裝目錄下的System32資料夾下找到它；Windows 9X的作業系統可以在作業系統安裝目錄下的System資料夾下找到它。然後把它們上傳到同一目錄中。建立asp文件，請參閱以下程式碼：
<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:chenchengrar" `上傳後Winrar.exe和cmd.exe後的路徑。
a=Server.mappath("rar")&"" '解壓縮rar檔案後的存放路徑。
b=Server.mappath("rarhomepage.rar") '要解壓縮的rar文件，把其中homepage.rar修改為需要解壓縮的文件。
Set Shell = Server.CreateObject("WScript.Shell")
Runing= "d:chenchengrarcmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " '設定執行解壓縮的指令。
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%>