ASP線上進行RAR壓縮和解壓縮源碼教程

      本文通過使用RAR.EXE和 CMD.EXE這兩個檔案，在ASP編程中實現在線壓縮與解壓縮網站中的檔案的功能。實現方法簡單，程式碼少，可供實用編程時借鑒使用。尤其是在擁有自己的伺服器的情況下極其實用和方便。以上程式在Windows2000Sever及IIS5.0下運行通過。

　　首先要上傳一個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> <壓縮檔> <檔案...> <@列表檔案...>
<解壓路徑\>
'命令: A - 添加到壓縮檔中
if IsSuccess = 0 Then
Response.write " 命令成功執行！"
else
Response.write " 命令執行失敗！許可權不夠或者該程式無法運行"
end if
if err.number <> 0 then
Response.Write "<p>錯誤號碼：" & Err.number
Response.Write "<p>原因：" & Err.description
Response.Write "<p>錯誤來源：" & Err.Source
Response.Write
end if
%>



UNZIP.ASP程式清單：


<%
'main檔案夾中包含cmd.exe rar.exe 要解壓縮的檔案（*.rar)
'解壓縮後的存放目錄為main
on error resume next
unzip_path=Server.mappath("main")&""
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("winrar x -r -o+ "&unzip_path&"*.rar
"&unzip_path&"",1, False)
'WinRAR <命令> -<開關1> -<開關N> <壓縮檔> <檔案...> <@列表檔案...>
<解壓路徑\>
'命令: X - 從壓縮檔中全路徑解壓檔案
'開關: -R - 連同子檔案夾
'開關: -O+ - 覆蓋已經存在的檔案
'開關: -O- - 不覆蓋已經存在的檔案
if IsSuccess = 0 Then
Response.write " 命令成功執行！"
else
Response.write " 命令執行失敗！許可權不夠或者該程式無法運行"
end if
if err.number <> 0 then
Response.Write "<p>錯誤號碼：" & Err.number
Response.Write "<p>原因：" & Err.description
Response.Write "<p>錯誤來源：" & Err.Source
Response.Write
end if
%>