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

來源:互聯網
上載者:User

一、問題的提出

  隨著互連網的發展,網站的數量以驚人的數字增加。網站的作用除了給廣大網友們提供資訊資訊服務外,還應該成為網友們上傳與下載檔案的場所。在上傳與下載檔案的過程中,傳輸時間是關鍵,這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下,盡量減小傳輸檔案的體積,是一個可行的辦法:上傳檔案的時候,先將要上傳的檔案用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> <壓縮檔> <檔案...> <@列表檔案...>
<解壓路徑\>
'命令: 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
%>


四、 結論

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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。