文章詳情頁

用ASP實現(xiàn)在線壓縮與解壓縮功能代碼

瀏覽：87日期：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" "本程序的登陸、壓縮、解壓縮密碼,請大家務(wù)必修改(至少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&" " "設(shè)置運行解壓縮的命令。
 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("操作成功執(zhí)行,您提交的操作如下：<br>"& Cmd) 
 elseif not isempty(Runcode) then 
 Response.Write("操作執(zhí)行失敗！可能您的權(quán)限不夠或者該程序無法在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>登陸系統(tǒng)</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.直接上傳到服務(wù)器上(虛擬主機)的任何目錄下(最好是根目錄)
2.用瀏覽器訪問Winrar.asp文件地址
3.輸入帳號和密碼 (默認(rèn)帳號: csisp 默認(rèn)密碼: csisp)
4.輸入Winrar文件的地址(*.RAR) 確認(rèn)后即可解壓
5.輸入您想壓縮文件的地址,確認(rèn)后即可壓縮!
特別提示: 文件地址是本W(wǎng)inrar系統(tǒng)的相對地址!
使用本程序的服務(wù)器必須連安裝了WinRar (一般的服務(wù)器都安裝)
本程序的默認(rèn)程序地址適合99%以上的服務(wù)器(虛擬主機)
如果地址不對,可以自己修改,地址為您安裝WINRAR的地址(虛擬主機使用者請聯(lián)系您虛擬主機的客服)

下面一些細(xì)節(jié)說明與補充

一、問題的提出

　　隨著互連網(wǎng)的發(fā)展，網(wǎng)站的數(shù)量以驚人的數(shù)字增加。網(wǎng)站的作用除了給廣大網(wǎng)友們提供信息資訊服務(wù)外，還應(yīng)該成為網(wǎng)友們上傳與下載文件的場所。在上傳與下載文件的過程中，傳輸時間是關(guān)鍵，這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下，盡量減小傳輸文件的體積，是一個可行的辦法：上傳文件的時候，先將要上傳的文件用WINRAR壓縮，上傳成功后在網(wǎng)站內(nèi)通過程序?qū)崿F(xiàn)解壓縮；下載文件的時候，先將要下載的文件在網(wǎng)站內(nèi)通過程序?qū)崿F(xiàn)壓縮然后再下載。本文就針對該問題的解決進(jìn)行探討。

二、方法與說明

　　首先要上傳一個WINRAR的解壓程序，就是WINRAR自己的解壓程序，只需要它的核心程序RAR.EXE這個文件就可以了，在WINRAR的安裝目錄里可以找到。然后要上傳一個執(zhí)行RAR.EXE的程序 CMD.EXE 這個是WINDOWS操作系統(tǒng)里的程序，在系統(tǒng)盤WINNT/SYSTEM32文件夾中可以找到。上傳完這兩個文件后，就需要編寫一些程序代碼來實現(xiàn)壓縮與解壓縮。

　　不妨將實現(xiàn)壓縮功能的文件取名為ZIP.ASP，實現(xiàn)解壓縮功能的文件取名為UNZIP.ASP。

　　程序代碼中包含了WINRAR這個應(yīng)用程序的命令行語法，下面簡單介紹一下：

　　WinRAR <命令> -<開關(guān)1> -<開關(guān)N> <壓縮文件> <文件...> <@列表文件...> <解壓路徑/>

　　命令要 WinRAR 運行的字符組合代表功能。

　　開關(guān) 切換操作指定類型，壓縮強度，壓縮文件類型，等等的定義。

　　壓縮文件要處理的壓縮文件名。

　　文件要處理的文件名。

　　列表文件列表文件是包含要處理文件名稱的純文本。文件名應(yīng)該在第一卷啟動。可以在列表文件中使用//字符后添加注釋。例如，你可以包含兩列字符串創(chuàng)建 backup.lst:c:/work/doc/*.txt //備份文本文檔 c:/work/image/*.bmp //備份圖片c:/work/misc并接著運行: winrar a backup @backup.lst你可以在命令行中同時指定普通的文件名和列表文件名。

　　解壓路徑只與命令 e 和 x ，搭配使用。指出解壓文件添加的位置。如果文件夾不存在時，會自動創(chuàng)建。

　　字母命令列表：

a 添加文件到壓縮文件 c 添加壓縮文件注釋　　d 從壓縮文件刪除文件 e 從壓縮文件解壓壓縮，忽略路徑　　f 刷新壓縮文件中的文件 i 在壓縮文件中查找字符串　　k 鎖定壓縮文件 m 移動文件和文件夾到壓縮文件　　r 修復(fù)受損的壓縮文件 rc 重建丟失的卷　　rn 重命名壓縮文件 rr[N] 添加數(shù)據(jù)恢復(fù)記錄　　rv[N] 創(chuàng)建恢復(fù)卷 s[name] 轉(zhuǎn)換壓縮文件成為自解壓文件類型　　s- 刪除自解壓模塊 t 測試壓縮文件　　u 從壓縮文件中更新文件 x 以完整路徑名稱從壓縮文件解壓壓縮

其實程序代碼中的關(guān)鍵之處就是用Server.CreateObject("Wscript.Shell")來執(zhí)行CMD.EXE，CMD.EXE運行RAR.EXE通過WINRAR的命令來執(zhí)行解壓縮文件與壓縮文件的。

三、程序清單

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 <命令> -<開關(guān)1> -<開關(guān)N> <壓縮文件> <文件...> <@列表文件...> 
<解壓路徑/>
"命令: A - 添加到壓縮文件中
if IsSuccess = 0 Then
Response.write " 命令成功執(zhí)行！"
else
Response.write " 命令執(zhí)行失敗！權(quán)限不夠或者該程序無法運行"
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 <命令> -<開關(guān)1> -<開關(guān)N> <壓縮文件> <文件...> <@列表文件...> 
<解壓路徑/>
"命令: X - 從壓縮文件中全路徑解壓文件
"開關(guān): -R - 連同子文件夾
"開關(guān): -O+ - 覆蓋已經(jīng)存在的文件
"開關(guān): -O- - 不覆蓋已經(jīng)存在的文件
if IsSuccess = 0 Then
Response.write " 命令成功執(zhí)行！"
else
Response.write " 命令執(zhí)行失敗！權(quán)限不夠或者該程序無法運行"
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
%>

四、結(jié)論

　　本文通過使用RAR.EXE和 CMD.EXE這兩個文件，在ASP編程中實現(xiàn)在線壓縮與解壓縮網(wǎng)站中的文件的功能。實現(xiàn)方法簡單，程序代碼少，可供實用編程時借鑒使用。尤其是在擁有自己的服務(wù)器的情況下極其實用和方便。以上程序在Windows2000Sever及IIS5.0下運行通過。

ASP

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

相關(guān)文章：

1. ASP.NET MVC實現(xiàn)橫向展示購物車2. ASP基礎(chǔ)入門第十篇（ASP內(nèi)建對象Server）3. 如何使用ASP.NET Core 配置文件4. ASP.NET MVC使用Boostrap實現(xiàn)產(chǎn)品展示、查詢、排序、分頁5. ASP基礎(chǔ)入門第四篇(腳本變量、函數(shù)、過程和條件語句)6. ASP.NET MVC使用typeahead.js實現(xiàn)輸入智能提示功能7. ASP動態(tài)include文件8. asp.net core 認(rèn)證和授權(quán)實例詳解9. ASP.NET MVC把數(shù)據(jù)庫中枚舉項的數(shù)字轉(zhuǎn)換成文字10. ASP將數(shù)字轉(zhuǎn)中文數(shù)字(大寫金額)的函數(shù)

排行榜

					
					JavaScript函數(shù)重載操作實例淺析
vue中實現(xiàn)圖片壓縮 file文件的方法
QuickTime流媒體和Java
使用Python實現(xiàn)批量ping操作方法
解決redis與Python交互取出來的是bytes類型的問題
PHP擴(kuò)展之壓縮與歸檔擴(kuò)展1——Bzip2
Android實現(xiàn)動態(tài)改變shape.xml中圖形的顏色
Java用BigDecimal解決double類型相減時可能存在的誤差
JavaScript中CreateTextFile函數(shù)
python GUI庫圖形界面開發(fā)之PyQt5滑塊條控件QSlider詳細(xì)使用方法與實例
Spring Boot 整合 JWT的方法
				