asp壓縮文件
① win rar 通過asp。net調用壓縮 如何指定壓縮成zip格式
打開WinRAR主窗口，然後單擊菜單「選項→設置」，在「設置」窗口中選擇「壓縮」選項卡，再單擊「創建默認配置」，在打開的窗口中選擇「壓縮文件格式」為「RAR」，最後「確定」保存設置即可。
② asp 壓縮文件與文件夾成*.rar格式，還有解壓.請高手指點。
假設你網站目錄在D盤
IsSuccess = WshShell.Run ("winrar a "&unzip_path&"data
"&unzip_path&"*.mdb",1, False)
就是IsSuccess = WshShell.Run (「winrar a d:\RARdata D:\RAR*.mdb",1, False)
試問這句能執行成功嗎？
你可以在程序前面試
response.write("winrar a "&unzip_path&"data "&unzip_path&"*.mdb")
response.end
就知道你執行的什麼了。
③ asp圖片上傳壓縮小，現在的上傳方法上傳的都是原圖，太大了，訪問速度太慢
這個問題已經遇到不止一次了文檔內容只有背景和簡單文字，解析度300，圖像大小顯示為1.65M，但是導出圖片不管是PNG還是JPG都9M多，把JPG壓縮到最低質量也有9M
點擊進入圖片文件壓縮頁面，點擊頁面上的「選擇文件」選擇圖片或是在圖片文件夾打開的情況下拉取圖片拖動到壓縮頁面上。
2、我們是可以這樣做的，圖片文件都排列在這個方框中，添加的圖片有png格式的有jpg格式的，可以不分圖片的個數同時壓縮圖片。
設置我們要得到的壓縮圖片的格式點擊右下角的「開始壓縮」對圖片進行壓縮。
④ 如何實現asp在線壓縮多個文件
<%
'ClassicASPCSVcreator0.3
'ByRCDMK<
[email protected]
>
'
'TheMITLicense(MIT)-
http://opensource.org/licenses/MIT
'Copyright(c)2012RCDMK<
[email protected]
>
'
'Permissionisherebygranted,freeofcharge,
'associateddocumentationfiles(the"Software"),,
',,modify,merge,publish,distribute,
'sublicense,and/orsellcopiesoftheSoftware,
'furnishedtodoso,:
'
'substantial
'portionsoftheSoftware.
'
'THESOFTWAREISPROVIDED"ASIS",WITHOUTWARRANTYOFANYKIND,EXPRESSORIMPLIED,INCLUDINGBUT
',
'NONINFRINGEMENT.,
'DAMAGESOROTHERLIABILITY,WHETHERINANACTIONOFCONTRACT,TORTOROTHERWISE,ARISINGFROM,OUT
'.
classaspZip
dimBlankZip,NoInterfaceYesToAll
dimfso,curArquieve,created,saved
dimfiles,m_path,zipApp,zipFilepublicpropertygetCount()
Count=files.Count
Path=m_path
endproperty
privatesubclass_initialize()
BlankZip=Chr(80)&Chr(75)&Chr(5)&Chr(6)&String(18,0)'Createtheblankfilestructure
NoInterfaceYesToAll=4or16or1024'
http://msdn.microsoft.com/en-us/library/windows/desktop/bb787866(v=vs.85).aspx'initializecomponents
setfso=createObject("scripting.filesystemobject")
setfiles=createObject("Scripting.Dictionary")SetzipApp=CreateObject("Shell.Application")
endsubprivatesubclass_terminate()
'somecleanup
setcurArquieve=nothing
setzipApp=nothing
setfiles=nothing',deleteit
'sinceitsempty
ifcreatedandnotsavedthen
onerrorresumenext
fso.deleteFilem_path
onerrorgoto0
endifsetfso=nothing
endsub
'Opensorcreatesthearquieve
publicsubOpenArquieve(byvalpath)
dimfile
'
path=replace(path,"/","")
m_path=Server.MapPath(path)''texists
ifnotfso.fileexists(m_path)then
setfile=fso.createTextFile(m_path)
file.writeBlankZip
file.close()
setfile=nothingsetcurArquieve=zipApp.NameSpace(m_path)
created=true
else
'dimcnt
setcurArquieve=zipApp.NameSpace(m_path)cnt=0
foreachfileincurArquieve.Items
cnt=cnt+1
files.addfile.path,cnt
next
endif
saved=false
endsub
'Addafileorfoldertothelist
publicsubAdd(byvalpath)
path=replace(path,"/","")
ifinstr(path,":")=0thenpath=Server.mappath(path)ifnotfso.fileExists(path)andnotfso.folderExists(path)then
err.raise1,"Filenotexists","Theinputfilenamedoen'tcorrespondtoanexistingfile"elseifnotfiles.exists(path)Then
files.addpath,files.Count+1
endif
endsub'()
publicsubRemove(byvalpath)
iffiles.exists(path)thenfiles.Remove(path)
endsub'Clearthetobeaddedlist
publicsubRemoveAll()
files.RemoveAll()
endsub'Writesthetothearquieve
publicsubCloseArquieve()
dimfilepath,file,initTime,fileCount
dimcnt
cnt=0
ForEachfilepathInfiles.keys
'
ifinstr(filepath,m_path)=0then
curArquieve.Copyherefilepath,NoInterfaceYesToAll
fileCount=curArquieve.items.Count'
OnErrorResumeNext
'DoUntilfileCount<curArquieve.Items.Count
wscript.sleep(10)
cn=cnt+1
'Loop
OnErrorGoTo0
endif
nextsaved=true
endsub
publicsubExtractTo(byvalpath)
iftypeName(curArquieve)="Folder3"Then
path=Server.MapPath(path)ifnotfso.folderExists(path)then
fso.createFolder(path)
endifzipApp.NameSpace(path).CopyHerecurArquieve.Items,NoInterfaceYesToAll
endif
endsub
endclass
%>
使用方法
<%
optionexplicit
Server.scriptTimeout=1
%>
<!--#includefile="aspZip.class.asp"-->
<%
dimzip,filepath
filepath="test.zip"
setzip=newaspZip
zip.OpenArquieve(filepath)
'zip.Add(".img")
zip.Add(".qrcode.asp")
zip.CloseArquieve()
zip.ExtractTo(". est")
setzip=nothing
%>
OK
⑤ asp如何同時下載多個壓縮文件或在線打包文件
看看在後台用調用進程函數調用rar.exe來打包..比如運行rar.exe a Ex.rar Ex.jpg,Ex.gif
滿意請採納
⑥ 關於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
⑦ asp如何同時下載多個壓縮文件。
沒辦法點一個連接同時下載兩個文件，只有鏈接的ASP先完成文件打包，再發送給客戶端，不過這樣伺服器的IO會非常大，除非用戶非常少，否則最好不要設計這么完美的程序。
最簡單、最高效的辦法就是：顯示資料下載的頁面直接顯示主資料、附加資料的下載鏈接，分別點滑鼠完成相應文件的下載。
補充：
在線打包是調用操作系統命令實現的，WINRAR和WINZIP都可以提供參數進行調用，你用FSO執行一個CMD命令既可。
⑧ 請教如何通過代碼實現ASP網站GZIP壓縮
asp 實現winrar壓縮
<%
dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso
Mlpath="E:\page\mian\"'存放RAR.EXE和CMD.EXE的路徑
ylj=Server.mappath("mian")&"\"'解壓文件後所放的路徑
ywj=Server.mappath("mian\apathy.rar")'要解壓的RAR文件
Set Shell = Server.CreateObject("WScript.Shell")
rarcomm= "E:\page\mian\cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- "
cmd=rarcomm&ywj&" "&ylj
RetCode = Shell.Run(cmd,1, True)
%>
⑨ asp 如何壓縮空間文件
辦法有,只是可能有.因為我也沒實踐過.
是這樣的,你進入控制面板-管理工具-組件服務.
打開後完全展開DCOM.你可以在右側看到很多的COM組件.
如果其中有winrar或者winzip之類的解壓軟體的com組件的話,就可以通過程序來調用這些com組件來為ASP程序服務.不過首先要為你的com組件設定network的訪問許可權.
你可以償試一下,我不保證完全可行!