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>