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
CompactDB = "你的資料庫, " & dbpath & ", 已經被壓縮" & vbCrLf
Else
CompactDB = "你輸入的資料庫路徑或名稱未找到,請重試" & vbCrLf
End If
End Function
%>
</div>
</div>
<form name="compact" method="post" action="compact.asp">
<div align="center">
<font size="2"><b><font color="#FF0000">
壓縮選項,請仔細填寫!</font></b><br>
<br>
輸入資料庫全稱:
<input type="text" name="dbpath">
(包括副檔名,如MDB、ASA、ASP等)<br>
<br>
<input type="checkbox" name="boolIs97" value="True">
檢查是否為ACCESS97資料庫<br>
(預設為ACCESS2000的資料庫)<br>
<br>
<input type="submit" name="submit" value="確認壓縮">
</font></div>
</form>
<div align="center"><font size="2">
<%
Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If
%>
<br>
</font></div></body></html>



如果在 Access 資料庫中刪除資料或物件,或者在 Access 專案中刪除物件,Access 資料庫或 Access 專案可能會產生碎片並會降低磁碟空間的使用效率。壓縮 Access 資料庫或Access專案實際上是複製該檔,並重新組織檔在磁片上的存儲方式。壓縮同時優化了 Access 資料庫和 Access 專案的性能。
所以我們在對日益增大的資料庫導致的ASP程式慢得無法忍受的時候,就想到了要壓縮他。但常規的做法把他下載到本地然後用MSaccess來完成壓縮操作,然後再上傳!
需要注意的是:本程式其實是通過FSO許可權和JET引擎連接,因此在使用之前請確認你的伺服器支援FSO(filesystemobject)許可權並安裝的ACCESS最新驅動!從安全出發,請在壓縮之前備份原始資料庫!已經測試通過的運行環境:
WIN98SE+PWS、WIN2000+IIS5.0
下面是我整理後的原始程式碼,複製另存為compact.asp並上傳到資料庫所在目錄即可正常使用。
#cccccc 1px dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc 1px dotted; BORDER-BOTTOM: #cccccc 1px dotted" cellspacing="0" cellpadding="6" width="95%" align="center" border="0">
創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()