asp压缩
A. asp程序如何做网页压缩
建议用通用的GZIP压缩win2003中，在IIS管理器中，“网站”上面右键－属性，是整个网站。进入“服务”标签，选上启用动态内容压缩，静态内容压缩。重新启动IIS。
即可检测到启用GZip压缩。有些服务器直接就支持了，可以先检测
B. 关于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
C. 怎样把asp格式转变为rar格式
楼主先别着急，你先确认下，文件是不是真的100%的下载完毕了。
如果真的是100%下载完毕的话，你可以试试重命名如何。方法你会吧。就是单击右键→重命名。不过你要把后缀的扩展名，就是那个asp改成rar。看看是不是能解压了。
希望我的回答对你有帮助，不明白的还可以继续问。
D. asp 实现图片上传的时候压缩他
按比例压缩图片：
SmallImgFilet = "SmallImg-"&smallname&".jpg" '小图片指定取名
If IsEmpty(SmallImgFile) then
'dim L as Single , H as Single
Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件
Path = Server.MapPath("../") & "\" & BigImgFile '待缩小图片路径 放在根目录 你可以制定文件夹 在../后面
Jpeg.Open Path '打开图片
L = 120/80'缩略图高与宽比 你如果只限制宽度就不用下面else的高度比例判断 只按宽度的对应大图比例缩小就可以了
H= jpeg.OriginalWidth/jpeg.OriginalHeight
If H > L Then
jpeg.Width = 120
jpeg.Height = (jpeg.OriginalHeight*120)/jpeg.OriginalWidth
Else
jpeg.Height = 80
jpeg.Width = (jpeg.OriginalWidth*80)/jpeg.OriginalHeight
End If
'保存图片
Jpeg.Save Server.MapPath("../") & "\"&SmallImgFilet'&".jpg"
set Jpeg=nothing
end if
E. asp:批量压缩主机上的图片大小
图片的压缩效率很低的，别费劲了，没用。
F. 如何实现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
G. 请问高手,如何用ASP实现客户端压缩一个文件夹
自动压缩是不行的，那别人的FTP是干嘛用的？
只能你手动压缩了，然后上传到服务器了以后再解压还行
H. 如何压缩asp.net程序的源代码
也是一样的,就是把代码放在一行内就可以了.
另外,我个人认为,没有必要这样做,如果想达到页面体积的优化效果,我们应该采用WEB标准来写这个页面,前提是让网页的结构更加合理,尽量用最少的标识实现结构,最大程度缩小页面的体积. 而不是想着用其他方法来压缩,没有必要!
---------------------------
是的,另外,如果aspx页面不多,你就手工把他们重新调一下就可以了.
I. ASP怎样实现网页gzip压缩
第一:利用GZIP压缩网页来提升网站浏览速度, 这个不是所有的网站都适用的 因为开启GZIP压缩,是牺牲服务器性能来达到的..会对服务器产生额外的开销..所以要看你服务器的性能是否满足 一.IIS6.0开启方法: 1.双击IIS服务器，右键点击网站，点击属性...
J. ASP如何压缩ACCESS数据库
我把我的源文件给你，你自己适当修改下就是你自己的了：
<!-- #include file="../conn2.asp" -->
<!-- #include file="../inc/md5.asp" -->
<html>
<head>
<title>数据库压缩</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<style>
body {
background-color:#FFFFFF;
}
</style>
</HEAD>
<BODY>
<%if request("hid1")="" then%>
<form name="form1" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td><img src="../images/r_1.gif" alt="" /></td>
<td width="100%" background="../images/r_0.gif">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td> 压缩数据库</td>
<td align="right"> </td>
</tr>
</table>
</td>
<td><img src="../images/r_2.gif" alt="" /></td>
</tr>
<tr>
<td></td>
<td>
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
<tr>
<td height="30" colspan="2" align="center" class="category">你的空间只有支持fso才可以进行如下操作，否则你只能手动压缩</td>
</tr>
<tr>
<td width="25%" height="30" align="right">当前数据库路径：</td>
<td width="75%" class="category">
<input type="text" name="mdbpath" size="30" value="backup/要压缩的数据库名称.mdb">
<input type="radio" value="false" checked name="ys"> 使用 Access 2000 数据库
</td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td class="category">
（为了安全，请注意用备份的数据库文件来压缩，不要用当前正在运行的数据库文件）
</td>
</tr>
<tr class="a3">
<td align="center" colspan="2" class="category">
<input type="submit" value=" 确认压缩 " class="button">
<input type="hidden" name="hid1" value="ok"></td>
</tr>
</table>
</td>
<td></td>
</tr>
<tr>
<td><img src="../images/r_4.gif" alt="" /></td>
<td></td>
<td><img src="../images/r_3.gif" alt="" /></td>
</tr>
</table>
</form>
<%
else
'-----------------------------------------
Dim dbpath,boolIs97
dbpath="../"&request.form("mdbpath")
boolIs97=request.form("ys")
If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If
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
response.write"<script>alert('您的数据库已经压缩成功!');history.go(-1)</script>"
response.End()
Else
response.write"<script>alert('数据库名称或路径不正确. 请重试!');history.go(-1)</script>"
response.End()
End If
End Function
'--------------------------------------------
end if
%>
</body>
</html>