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的访问权限.
你可以偿试一下,我不保证完全可行!