菜鳥詳聽ASP中也能解壓縮rar檔案

來源:互聯網
上載者:User
壓縮|壓縮 有沒有想過線上解壓縮壓縮檔呢?呵呵,有時上傳一個壓縮包以後,利用Asp程式解壓縮的確很方便,尤其是經常更新網站的站長們,由於文字檔壓縮比率大,所以採用壓縮以後上傳再解壓縮,這樣比直接上傳節省了大量的寶貴時間。準備好了嗎?那就跟上吧。

  要想實現這種功能,首先要得到Rar程式的解壓縮核心檔案支援(可以下載WinRar軟體,再把其中的WinRar.exe檔案單獨“拿”出來。),並且還需要Windows作業系統內建的cmd.exe程式(這個程式用來執行WinRar.exe檔案。作業系統內建的,NT核心的作業系統可以在作業系統安裝目錄下的System32檔案夾下找到它;Windows 9X的作業系統可以在作業系統安裝目錄下的System檔案夾下找到它。),如圖1。然後把它們上傳到同一目錄中。建立asp檔案,見以下代碼:

<%
Dim a,b,Main,Shell,Runing,Runcode,Cmd,comm,fso
Main="d:\chencheng\rar" `上傳後Winrar.exe和cmd.exe後的路徑。
a=Server.mappath("rar")&"" '解壓rar檔案後的存放路徑。
b=Server.mappath("rar\homepage.rar") '要解壓的rar檔案,把其中homepage.rar修改為需要解壓縮的檔案。
Set Shell = Server.CreateObject("WScript.Shell")
Runing= "d:\chencheng\rar\cmd.exe /c "&Main&"Winrar.exe x -t -o+ -p- " ’設定運行解壓縮的命令。
Cmd=Run&b&" "&a
Runcode = Shell.Run(Cmd,1, True)
%>
<div align=center><img src="/uploadpic/2007-2/20072591419880.jpg" border=1></div>
儲存以後上傳到空間上即可使用啦。很方便吧?也很簡單吧。



相關文章

聯繫我們

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

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

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.