文章詳情頁

用ASP實現在線壓縮與解壓縮功能代碼

瀏覽：46日期：2022-06-05 08:26:57

先上一個完整代碼

<!--
Name －ASP在線解壓，壓縮工具 
copyright -(www.jb51.net)
-->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<title>歡迎使用ASP在線解壓，壓縮工具</title>
<body>
<TABLE border=0 width=80% align=center cellspacing=1 cellpadding=3>
<tr>
<th width="100%" height="24" bgcolor="#33CCFF">　</th>
</tr>
<tr>
<td bgcolor="#33CCFF">
<%
Server.ScriptTimeout=99999
Dim winrar,cmddir
Winrar="C:\Program Files\WinRAR\Winrar.exe" "壓縮文件(Winrar)的地址
cmddir="%windir%\system32\cmd.exe" "cmd.exe(命令提示符)的地址
user="csisp" "本程序的用戶名
pwd="csisp" "本程序的登陸、壓縮、解壓縮密碼,請大家務必修改(至少8位以上的組合密碼才夠安全!)

if request.Form("user")=user and request.Form("pwd")=pwd then
response.write "本文件夾路徑："&Server.Mappath(".")&"<br>"
from=request.Form("from")
where=request.Form("where")
if from<>"" and where<>"" then
 Dim a,b,Shell,Runing,Runcode,Cmd 
 if instr(where,":")=0 then a=Server.mappath(""&where&"") else a=where
 if instr(from,":")=0 then b=Server.mappath(""&from&"") else b=from
 "response.Write b
 if right(b,1)<>"\" and left(right(b,4),1)<>"." then b=b&".rar"
 On Error Resume Next 
 Set Shell = Server.CreateObject("WScript.Shell")
 if request.QueryString("action")=1 then "解壓縮
 if not ReportFileStatus(b)then Response.Write("沒有找到 "&b&"可能不存在！"):Response.End()
 Runing= cmddir&" /c """&winrar&""" x -ibck -t -y -o+ -p"&pwd&" " "設置運行解壓縮的命令。
 Cmd=Runing&b&" "&a&"\" 
 elseif request.QueryString("action")=0 then "壓縮文件
 if (not ReportFileStatus(a)) and (not ReportFolderStatus(a)) then Response.Write("沒有找到 "&a&"可能不存在！"):Response.End()
 Cmd= cmddir&" /c del /f /q "&b
 Runcode = Shell.Run(Cmd,1,True)
 Runing= cmddir&" /c """&winrar&""" a -ibck -y -ep -o+ -p"&pwd&" " "壓縮。
 Cmd=Runing&b&" "&a
 else "刪除文件 
 Cmd= cmddir&" /c del /f /q "&b
 end if

 Runcode = Shell.Run(Cmd,1,True)
 Runing = Shell.Run(cmddir&" /c taskkill /im winrar.exe",1,false)
 Runing = Shell.Run(cmddir&" /c exit",1,false)
 Set Shell=nothing 
 ErrInfo
%> 
<%else%>

<form name="frm" method="post" action="?action=1">
--------------------------------------<strong>解壓縮文件</strong>---------------------------------------
<br>
<br>
請輸入rar壓縮文件地址：
<input name="from" value="1.rar" size="50"><br>
解壓到：<input name="where" value="." size="50">
文件夾請使用絕對路徑且在最后加 "\" <br>
<br>
<input name="submit" type="submit" value=" 解 壓 "><input type="hidden" name="user" value="<%=request.Form("user")%>">
<input type="hidden" name="pwd" value="<%=request.Form("pwd")%>">
</FORM>
<form name="frm" method="post" action="?action=0">
--------------------------------------<strong>壓縮文件</strong>---------------------------------------<br>
<br>
請在此輸入您要壓縮文件地址：
<input name="where" value="./data/dvbbs7#.mdb" size="50">
您也可以輸入文件夾<br>
<br>
存放路徑及新文件名：<input name="from" value="../data/1.rar" size="50">
自動覆蓋同名文件<br>
<br>
<input name="submit" type="submit" value=" 壓 縮 "><input type="hidden" name="user" value="<%=request.Form("user")%>">
<input type="hidden" name="pwd" value="<%=request.Form("pwd")%>"></FORM>
<%
ErrInfo
end if
else
login()
end if

Sub ErrInfo
 if not isempty(Runcode) and Runcode=0 Then 
 Response.Write("操作成功執行,您提交的操作如下：<br>"& Cmd) 
 elseif not isempty(Runcode) then 
 Response.Write("操作執行失敗！可能您的權限不夠或者該程序無法在DOS(命令提示符)下運行,您提交的操作如下：<br>" & Cmd)
 else
 end if
 If Err Then
	  Response.Write "<br>"&err.description
		err.Clear
 End If
%>
<form name="frm" method="post" action="?action=2">
--------------------------------------<strong>刪除文件</strong>---------------------------------------<br>
<br>
請輸入要刪除文件地址：<input name="from" size="50" value=<%=from%>>
文件夾請使用絕對路徑且在最后加“\” <br>
<input type="hidden" name="where" value=<%if where<>"" then response.Write where else response.Write "."%>>
<br>
<input name="submit" type="submit" value=" 刪 除 ">
<input type="hidden" name="user" value="<%=request.Form("user")%>">
<input type="hidden" name="pwd" value="<%=request.Form("pwd")%>">
</FORM>
<br>
<%
End Sub
Function ReportFileStatus(filespec) 
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 ReportFileStatus=false
 If (fso.FileExists(filespec)) Then ReportFileStatus = true
 Set fso =nothing
End Function
Function ReportFolderStatus(fldr) 
 Dim fso
 Set fso = CreateObject("Scripting.FileSystemObject")
 ReportFolderStatus=false
 If (fso.FolderExists(fldr)) Then ReportFolderStatus = true
 Set fso =nothing
End Function
Sub login()
%>
<form name="frm" method="post" action="?action=2">
 <p>--------------------------------------<strong>登陸系統</strong>---------------------------------------<br>
  <br>
用戶名：
<input name="user" value="csisp">
 </p>
密 碼：
  <input name="pwd" type="password" id="pwd"> 
  <br>
 <br>
 <input name="submit" type="submit" value=" 登陸 ">
</FORM>
<%End sub%>
</td>
</tr>

<tr>
 <td height="22" align="center" bgcolor="#FFFFFF">&nbsp;Copyright &copy;2008&nbsp; <a ></a></td>
</tr>
</table>
</body>

使用方法：
1.直接上傳到服務器上(虛擬主機)的任何目錄下(最好是根目錄)
2.用瀏覽器訪問Winrar.asp文件地址
3.輸入帳號和密碼 (默認帳號: csisp 默認密碼: csisp)
4.輸入Winrar文件的地址(*.RAR) 確認后即可解壓
5.輸入您想壓縮文件的地址,確認后即可壓縮!
特別提示: 文件地址是本Winrar系統的相對地址!
使用本程序的服務器必須連安裝了WinRar (一般的服務器都安裝)
本程序的默認程序地址適合99%以上的服務器(虛擬主機)
如果地址不對,可以自己修改,地址為您安裝WINRAR的地址(虛擬主機使用者請聯系您虛擬主機的客服)

下面一些細節說明與補充

一、問題的提出

　　隨著互連網的發展，網站的數量以驚人的數字增加。網站的作用除了給廣大網友們提供信息資訊服務外，還應該成為網友們上傳與下載文件的場所。在上傳與下載文件的過程中，傳輸時間是關鍵，這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下，盡量減小傳輸文件的體積，是一個可行的辦法：上傳文件的時候，先將要上傳的文件用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下運行通過。

ASP

上一條：ASP是使用正則提取內容里所有圖片路徑SRC的實現代碼下一條：SharePoint Server 2019新特性介紹

相關文章：

1. ASP.NET MVC使用異步Action的方法2. ASP.NET MVC通過勾選checkbox更改select的內容3. ASP基礎入門第三篇(ASP腳本基礎)4. ASP實現加法驗證碼5. ASP刪除img標簽的style屬性只保留src的正則函數6. IIS Express 取代 ASP.NET Development Server的配置方法7. ASP動態網頁制作技術經驗分享8. asp.net core項目授權流程詳解9. ASP常用日期格式化函數 FormatDate()10. ASP基礎入門第八篇（ASP內建對象Application和Session）

排行榜

					
					Docker容器如何更新打包并上傳到阿里云
python實現線性回歸算法
idea設置自動導入依賴的方法步驟
django從后臺返回html代碼的實例
基于SpringBoot bootstrap.yml配置未生效的解決
ASP.NET MVC使用異步Action的方法
Vue如何提升首屏加載速度實例解析
Java JUC中操作List安全類的集合案例
利用CSS3新特性創建透明邊框三角
基于javaweb+jsp實現企業財務記賬管理系統
Django結合使用Scrapy爬取數據入庫的方法示例
				