使用ASP線上解壓rar檔案

有沒有想過線上解壓縮壓縮檔呢？呵呵，有時上傳一個壓縮包以後，利用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) %＞ 　 儲存以後上傳到空間上即可使用啦。很方便吧？也很簡單吧。

閱讀全文(1471) | 回複(6) | TrackBack(2) | 編輯 | 精華

回複:使用ASP線上解壓rar檔案

文章收藏cczl(遊客)發表評論於2005-10-28 1:35:13 我試過了,但用不了,你上面的樓主加我QQ告訴我一下好嗎 我QQ:147241793

個人首頁 | 引用回複 | 主人回複 | 返回 | 編輯 | 刪除

回複:使用ASP線上解壓rar檔案

文章收藏碩碩(遊客)發表評論於2005-10-9 21:04:45 SAMSUNG-USB-041119

個人首頁 | 引用回複 | 主人回複 | 返回 | 編輯 | 刪除

回複:使用ASP線上解壓rar檔案

文章收藏m(遊客|61.151.186.19)發表評論於2005-8-2 15:28:56 ＜% 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) %＞

個人首頁 | 引用回複 | 主人回複 | 返回 | 編輯 | 刪除

 

 

辦公室裡更衣的黑絲妹妹	性感的眼鏡妹妹
靚麗的>機車模特	絢 麗