手工SEO

手工SEO首頁 帝國教程 正文

在ASP空間內在線壓縮與解壓縮

手工SEO 2020-05-21 12:41:25 帝國教程 151℃ 手工SEO
     在上傳與下載文件的過程中,傳輸時間是關鍵,這就要求有較快的傳輸速度。在傳輸速度固定不變或是上下變動不大的情況下,盡量減小傳輸文件的體積,是一個可行的辦法:上傳文件的時候,先將要上傳的文件用WINRAR壓縮,上傳成功后在網站內通過程序實現解壓縮;下載文件的時候,先將要下載的文件在網站內通過程序實現壓縮然后再下載程序代碼中的關鍵之處就是用Server.CreateObject("Wscript.Shell")來執行CMD.EXE,CMD.EXE運行RAR.EXE通過WINRAR的命令來執行解壓縮文件與壓縮文件的。所以要使用此功能,需要開啟相關組件!


程序清單
asp壓縮代碼
ZIP.ASP程序清單:
<%
'main文件夾中包含cmd.exe rar.exe 例如:要壓縮的文件(*.mdb)
'壓縮后的存放目錄為maindata.raron 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 " 命令成功執行!"    'asp壓縮成功提示
else
Response.write " 命令執行失??!權限不夠或者該程序無法運行"    'asp壓縮權限報錯
end if
if err.number <> 0 then
Response.Write "<p>錯誤號碼:" & Err.number    'asp壓縮報錯
Response.Write "<p>原因:" & Err.description    'asp壓縮報錯
Response.Write "<p>錯誤來源:" & Err.Source    'asp壓縮報錯
Response.Write
end if
%>


asp解壓代碼
UNZIP.ASP程序清單:
<%
'main文件夾中包含cmd.exe rar.exe 要解壓縮的文件(*.rar)
 '解壓縮后的存放目錄為mainon 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 " 命令成功執行!"    'asp解壓成功提示
else
Response.write " 命令執行失??!權限不夠或者該程序無法運行"    'asp解壓權限報錯
end if
if err.number <> 0 then
Response.Write "<p>錯誤號碼:" & Err.number    'asp解壓報錯
Response.Write "<p>原因:" & Err.description    'asp解壓報錯
Response.Write "<p>錯誤來源:" & Err.Source    'asp解壓報錯
Response.Write
end if
%>
  

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

上一篇:帝國CMS多值字段調用方法

下一篇:怎樣添加網站分享代碼

相關文章

網站分類
標簽列表
在农村投资什么项目赚钱 福彩20快乐十分20选八走势图 体彩江苏7位数近30期 通策医疗股票分析报告 快乐十分复式对照表 辽宁十一选五预测号码 26选5开奖最新信息 股票配资平台合法吗 今天内蒙古快三走势图 金股宝配资 下载内蒙快3