asp文件打包壓縮

A. 用ASP實現在線壓縮與解壓縮

一 問題的提出 隨著互連網的發展 網站的數量以驚人的數字增加 網站的作用除了給廣大網友們提供信息資訊服務外 還應該成為網友們上傳與下載文件的場所 在上傳與下載文件的過程中 傳輸時間是關鍵 這就要求有較快的傳輸速度 在傳輸速度固定不變或是上下變動不大的情況下 盡量減小傳輸文件的體積 是一個可行的辦法 上傳文件的時候 先將要上傳的文件用WINRAR壓縮 上傳成功後在網站內通過程序實現解壓縮 下載文件的時候 先將要下載的文件在網站內通過程序實現壓縮然後再下載 本文就針對該問題的解決進行探討

二 方法與說明

首先要上傳一個WINRAR的解壓程序 就是WINRAR自己的解壓程序 只需要它的核心程序RAR EXE這個文件就可以了 在WINRAR的安裝目錄里可以找到 然後要上傳一個執行RAR EXE的程序 CMD EXE 這個是WINDOWS操作系統里的程序 在系統盤WINNT/SYSTEM 文件夾中可以找到 上傳完這兩個文件後 就需要編寫一些程序代碼來實現壓縮與解壓縮

不妨將實現壓縮功能的文件取名為ZIP ASP 實現解壓縮功能的文件取名為UNZIP ASP

程序代碼中包含了WINRAR這個應用程序的命令行語法 下面簡單介紹一下

WinRAR <命令> <開關 > <開關N> <壓縮文件> <文件……> <@列表文件……> <解壓路徑>

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

開關 切換操作指定類型 壓縮強度 壓縮文件類型 等等的定義

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

文件 要處理的文件名

列表文件 列表文件是包含要處理文件名稱的純文本 文件名應該在第一卷啟動 可以在列表文件中使用//字元後添加註釋 例如 你可以包含兩列字元串創建 backup lst c workdoc* txt //備份文本文檔 c workimage* bmp //備份圖片c workmisc並接著運行 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) 壓縮後的存放目錄為maindata raron error resume nextunzip_path=Server mappath( main )& Set WshShell = server CreateObject( Wscript Shell )IsSuccess = WshShell Run ( winrar a &unzip_path& data &unzip_path& * mdb False) WinRAR <命令> <開關 > <開關N> <壓縮文件> <文件 > <@列表文件 > <解壓路徑> 命令: A 添加到壓縮文件中if IsSuccess = ThenResponse write 命令成功執行！ elseResponse write 命令執行失敗！許可權不夠或者該程序無法運行 end ifif err number <> thenResponse Write <p>錯誤號碼 & Err numberResponse Write <p>原因 & Err descriptionResponse Write <p>錯誤來源 & Err SourceResponse Write end if%>

四 結論

B. asp如何壓縮access2003

利用一個引擎DLL

<div><br>
<div align="center">運行環境：在WIN98SE+PWS、WIN2000+IIS5.0 <br>
<%
Const JET_3X = 4
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")

If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath &
"temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath &
"temp.mdb"
End If
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "你的資料庫, " & dbpath & ", 已經被壓縮" & vbCrLf
Else
CompactDB = "你輸入的資料庫路徑或名稱未找到，請重試" & vbCrLf
End If

End Function
%>
</div>
</div>
<form name="compact" method="post" action="compact.asp">
<div align="center"><font size="2"><b>
<font color="#FF0000">壓縮選項，請仔細填寫！</font></b><br>
<br>
輸入資料庫全稱：
<input type="text" name="dbpath">
（包括擴展名，如MDB、ASA、ASP等）<br>
<br>
<input type="checkbox" name="boolIs97" value="True">
檢查是否為ACCESS97資料庫<br>
(默認為ACCESS2000的資料庫)<br>
<br>
<input type="submit" name="submit" value="確認壓縮">
</font></div>
</form>
<div align="center"><font size="2">
<%
Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")

If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If
%>
<br>
</font></div>

C. 誰能給我找一個ASP文件壓縮的工具呀

用ASP實現在線壓縮與解壓縮

一、問題的提出

隨著互連網的發展，網站的數量以驚人的數字增加。網站的作用除了給廣大網友們提供信息資訊服務外，還應該成為網友們上傳與下載文件的場所。在上傳與下載文件的過程中

，傳輸時間是關鍵，這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下，盡量減小傳輸文件的體積，是一個可行的辦法：上傳文件的時候，先將要上傳的文件用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下運行通過。

D. asp程序如何做網頁壓縮

建議用通用的GZIP壓縮win2003中，在IIS管理器中，「網站」上面右鍵－屬性，是整個網站。進入「服務」標簽，選上啟用動態內容壓縮，靜態內容壓縮。重新啟動IIS。
即可檢測到啟用GZip壓縮。有些伺服器直接就支持了，可以先檢測

E. asp.net網站打包是做什麼用的不打包行不行

打包，就是把你寫的代碼生成DLL文件放在根目錄下的bin目錄里，別人無法看到原代碼（除了反編譯），不打包也同樣能放上去，顯示給客戶的效果一樣，只是如果誰有FTP或伺服器許可權，就可以直接看到你的源代碼。

F. 關於ASP自動解壓縮 壓縮文件的問題

1、 是不是什麼文件都可以壓縮？
答：壓縮是可以，但有些可執行文件解壓後並不能運行。

可執行程序文件或軟體安裝文件可以壓縮嗎？還是必須放進文件夾里才能壓縮？
答：可執行程序文件可以直接壓縮。
軟體安裝文件必須放進文件夾里壓縮，否則解壓後程序不能正常運行。

2、 一般的壓縮比例是多少？什麼的文件壓縮比例小？小到什麼程度？
答：你用WinRAR軟體，有壓縮比例測試，一目瞭然。

3、 如何製作含有解壓密碼的壓縮文件？
答：打開winrar,選擇你要壓縮的文件,點工具欄上的添加-選擇「高級」選項-設置密碼。

4、 如何破解不知道密碼的壓縮文件？
答：Advanced ZIP Password Recovery 3.52可以解開ZIP壓縮文件的密碼；
Advanced RAR Password Recovery 1.10可以解開RAR壓縮文件的密碼。

5、 除了winrar和winzip外還有哪些常用的壓縮解壓工具？
答：winace