asp調用winrar壓縮檔夾

來源:互聯網
上載者:User
winrar|壓縮 伺服器用WScript.Shell組件調用winrar中的rar.exe,在代碼的同目錄要上傳cmd.exe和rar.exe

用法:rar.asp?path=要壓縮的檔案夾&rarname=壓縮後的檔案名稱&includefolder=包括子檔案夾就不會空

<%
'用法http://xx/rar.asp?path=要壓縮的檔案夾&rarname=壓縮後的檔案名稱&includefolder=包插子檔案夾就不會空,
on error resume next
AppPath=server.mappath(".")&"\" '存放RAR.EXE和CMD.EXE的路徑
zipfolder=server.mappath(request("path"))&"\" '要壓縮的檔案或檔案夾
rarfile = request("rarname")
thispath = server.mappath(".")&"\"
if zipfolder<>"" and rarfile<>"" then
Set Shell = Server.CreateObject("WScript.Shell")
if err.number<>0 then
response.write "伺服器不支援"
response.end
end if
if request("includefolder")<>"" then
cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -r -t -o+ "&thispath&rarfile&" "& zipfolder &""
else
cmd= thispath&"cmd.exe /c "&thispath&"rar.exe a -ep1 -t -o+ "&thispath&rarfile&" "& zipfolder &""
end if
'response.write cmd
RetCode = Shell.Run(cmd,1, True)
response.write "<a href='"&rarfile&"'>"&rarfile&"</a>"
if err.number<>0 then
response.write "<a href='"&rarfile&"'>"&rarfile&"</a>"
else
response.write err.description
end if
else
response.write "沒有參數"
end if
%>



相關文章

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。