用ASP實現在線壓縮與解壓縮

用ASP實現在線壓縮與解壓縮 出處：pconline編程開發論壇
[ 2005-07-15 10:35:43 ]	作者：csbq	責任編輯：moningfeng

 

一、問題的提出

　　隨著互連網的發展，網站的數量以驚人的數字增加。網站的作用除了給廣大網友們提供資訊資訊服務外，還應該成為網友們上傳與下載檔案的場所。在上傳與下載檔案的過程中，傳輸時間是關鍵，這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下，盡量減小傳輸檔案的體積，是一個可行的辦法：上傳檔案的時候，先將要上傳的檔案用WINRAR壓縮，上傳成功後在網站內通過程式實現解壓縮；下載檔案的時候，先將要下載的檔案在網站內通過程式實現壓縮然後再下載。本文就針對該問題的解決進行探討。


二、方法與說明

　　首先要上傳一個WINRAR的解壓程式，就是WINRAR自己的解壓程式，只需要它的核心程式RAR.EXE這個檔案就可以了，在WINRAR的安裝目錄裡可以找到。然後要上傳一個執行RAR.EXE的程式 CMD.EXE 這個是WINDOWS作業系統裡的程式，在系統硬碟WINNT/SYSTEM32檔案夾中可以找到。上傳完這兩個檔案後，就需要編寫一些程式碼來實現壓縮與解壓縮。

　　不妨將實現壓縮功能的檔案取名為ZIP.ASP，實現解壓縮功能的檔案取名為UNZIP.ASP。

　　程式碼中包含了WINRAR這個應用程式的命令列文法，下面簡單介紹一下：

　　WinRAR <命令> -<開關1> -<開關N> <壓縮檔> <檔案...> <@列表檔案...> <解壓路徑/>

　　命令 要 WinRAR 啟動並執行字元組合代表功能。

　　開關 切換操作指定類型，壓縮強度，壓縮檔類型，等等的定義。

　　壓縮檔 要處理的壓縮檔名。

　　檔案 要處理的檔案名稱。

　　列表檔案 列表檔案是包含要處理檔案名稱的純文字。檔案名稱應該在第一卷啟動。可以在列表檔案中使用//字元後添加註釋。例如，你可以包含兩列字串建立 backup.lst:c:/work/doc/*.txt //備份文字文件 c:/work/image/*.bmp //備份圖片c:/work/misc並接著運行: winrar a backup @backup.lst你可以在命令列中同時指定普通的檔案名稱和列表檔案名稱。

　　解壓路徑 只與命令 e 和 x ，搭配使用。指出解壓檔案添加的位置。如果檔案夾不存在時，會自動建立。


　　字母命令列表：

a 添加檔案到壓縮檔	c 添加壓縮檔注釋
d 從壓縮檔刪除檔案	e 從壓縮檔解壓壓縮，忽略路徑
f 重新整理壓縮檔中的檔案	i 在壓縮檔中尋找字串
k 鎖定壓縮檔	m 移動檔案和檔案夾到壓縮檔
r 修複受損的壓縮檔	rc 重建丟失的卷
rn 重新命名壓縮檔	rr[N] 添加資料恢複記錄
rv[N] 建立恢複卷	s[name] 轉換壓縮檔成為自解壓檔案類型
s- 刪除自解壓模組	t 測試壓縮檔
u 從壓縮檔中更新檔案	x 以完整路徑名稱從壓縮檔解壓壓縮

　　其實程式碼中的關鍵之處就是用Server.CreateObject("Wscript.Shell")來執行CMD.EXE，CMD.EXE運行RAR.EXE通過WINRAR的命令來執行解壓縮檔案與壓縮檔的。


三、程式清單

ZIP.ASP程式清單：

<%
'main檔案夾中包含cmd.exe rar.exe 例如：要壓縮的檔案（*.mdb)
'壓縮後的存放目錄為main/data.rar
on error resume next
unzip_path=Server.mappath("main")&"/"
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("winrar a "&unzip_path&"data
"&unzip_path&"*.mdb",1, False)
'WinRAR <命令> -<開關1> -<開關N> <壓縮檔> <檔案...> <@列表檔案