狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

[p][b]一、問題的提出[/b][/p]
[p]　　隨著互連網的發展，網站的數量以驚人的數字增加。網站的作用除了給廣大網友們提供信息資訊服務外，還應該成為網友們上傳與下載文件的場所。在上傳與下載文件的過程中，傳輸時間是關鍵，這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下，盡量減小傳輸文件的體積，是一個可行的辦法：上傳文件的時候，先將要上傳的文件用winrar壓縮，上傳成功后在網站內通過程序實現解壓縮；下載文件的時候，先將要下載的文件在網站內通過程序實現壓縮然后再下載。本文就針對該問題的解決進行探討。[br][br][br][b]二、方法與說明[/b][br][br]　　首先要上傳一個winrar的解壓程序，就是winrar自己的解壓程序，只需要它的核心程序rar.exe這個文件就可以了，在winrar的安裝目錄里可以找到。然后要上傳一個執行rar.exe的程序 cmd.exe 這個是windows操作系統里的程序，在系統盤winnt/system32文件夾中可以找到。上傳完這兩個文件后，就需要編寫一些程序代碼來實現壓縮與解壓縮。[br][br]　　不妨將實現壓縮功能的文件取名為zip.asp，實現解壓縮功能的文件取名為unzip.asp。[br][br]　　程序代碼中包含了winrar這個應用程序的命令行語法，下面簡單介紹一下：[br][br]　　winrar <命令> -<開關1> -<開關n> <壓縮文件> <文件...> <@列表文件...> <解壓路徑\>[br][br]　　[u]命令[/u] 要 winrar 運行的字符組合代表功能。[br][br]　　[u]開關[/u] 切換操作指定類型，壓縮強度，壓縮文件類型，等等的定義。[br][br]　　[u]壓縮文件[/u] 要處理的壓縮文件名。[br][br]　　[u]文件[/u] 要處理的文件名。[br][br]　　[u]列表文件[/u] 列表文件是包含要處理文件名稱的純文本。文件名應該在第一卷啟動。可以在列表文件中使用//字符后添加注釋。例如，你可以包含兩列字符串創建 backup.lst:c:\work\doc\*.txt //備份文本文檔 c:\work\image\*.bmp //備份圖片c:\work\misc并接著運行: winrar a backup @backup.lst你可以在命令行中同時指定普通的文件名和列表文件名。[br][br]　　[u]解壓路徑[/u] 只與命令 e 和 x ，搭配使用。指出解壓文件添加的位置。如果文件夾不存在時，會自動創建。[br][br][br]　　字母命令列表：[/p]


　　a 添加文件到壓縮文件
c 添加壓縮文件注釋
　　d 從壓縮文件刪除文件
e 從壓縮文件解壓壓縮，忽略路徑
　　f 刷新壓縮文件中的文件
i 在壓縮文件中查找字符串
　　k 鎖定壓縮文件
m 移動文件和文件夾到壓縮文件
　　r 修復受損的壓縮文件
rc 重建丟失的卷
　　rn 重命名壓縮文件
rr[n] 添加數據恢復記錄
　　rv[n] 創建恢復卷
s[name] 轉換壓縮文件成為自解壓文件類型
　　s- 刪除自解壓模塊
t 測試壓縮文件
　　u 從壓縮文件中更新文件
x 以完整路徑名稱從壓縮文件解壓壓縮[br]　　其實程序代碼中的關鍵之處就是用server.createobject("wscript.shell")來執行cmd.exe，cmd.exe運行rar.exe通過winrar的命令來執行解壓縮文件與壓縮文件的。[br][br][br][b]三、程序清單[/b][br][br][u]zip.asp程序清單[/u]：
[p]<%[br][color=#000099]'main文件夾中包含cmd.exe rar.exe 例如：要壓縮的文件（*.mdb)[br]'壓縮后的存放目錄為main\data.rar[br][/color]on error resume next[br]unzip_path=server.mappath("main")&"\"[br]set wshshell = server.createobject("wscript.shell")[br]issuccess = wshshell.run ("winrar a "&unzip_path&"data [br]"&unzip_path&"*.mdb",1, false)[br][color=#000099]'winrar <命令> -<開關1> -<開關n> <壓縮文件> <文件...> <@列表文件...> [br]<解壓路徑\>[br]'命令: a - 添加到壓縮文件中[br][/color]if issuccess = 0 then[br]response.write " 命令成功執行！"[br]else[br]response.write " 命令執行失敗！權限不夠或者該程序無法運行"[br]end if[br]if err.number <> 0 then[br]response.write "

錯誤號碼：" & err.number[br]response.write "

原因：" & err.description[br]response.write "

錯誤來源：" & err.source[br]response.write [br]end if[br]%>[/p][br][br]unzip.asp程序清單：[br]
[p]<%[br][color=#000099]'main文件夾中包含cmd.exe rar.exe 要解壓縮的文件（*.rar) [br]'解壓縮后的存放目錄為main[br][/color]on error resume next[br]unzip_path=server.mappath("main")&"\"[br]set wshshell = server.createobject("wscript.shell")[br]issuccess = wshshell.run ("winrar x -r -o+ "&unzip_path&"*.rar [br]"&unzip_path&"",1, false)[br][color=#000099]'winrar <命令> -<開關1> -<開關n> <壓縮文件> <文件...> <@列表文件...> [br]<解壓路徑\>[br]'命令: x - 從壓縮文件中全路徑解壓文件[br]'開關: -r - 連同子文件夾[br]'開關: -o+ - 覆蓋已經存在的文件[br]'開關: -o- - 不覆蓋已經存在的文件[/color][br]if issuccess = 0 then[br]response.write " 命令成功執行！"[br]else[br]response.write " 命令執行失敗！權限不夠或者該程序無法運行"[br]end if[br]if err.number <> 0 then[br]response.write "

錯誤號碼：" & err.number[br]response.write "

原因：" & err.description[br]response.write "

錯誤來源：" & err.source[br]response.write [br]end if[br]%>[/p][br][b]四、 結論[/b][br][br]　　本文通過使用rar.exe和 cmd.exe這兩個文件，在asp編程中實現在線壓縮與解壓縮網站中的文件的功能。實現方法簡單，程序代碼少，可供實用編程時借鑒使用。尤其是在擁有自己的服務器的情況下極其實用和方便。以上程序在windows2000sever及iis5.0下運行通過。