Access數(shù)據(jù)庫在線壓縮的實現(xiàn)

如果在 Access 數(shù)據(jù)庫中刪除數(shù)據(jù)或?qū)ο?，或者?Access 項目中刪除對象，Access 數(shù)據(jù)庫或 Access 項目可能會產(chǎn)生碎片并會降低磁盤空間的使用效率。壓縮 Access 數(shù)據(jù)庫或Access項目實際上是復制該文件，并重新組織文件在磁盤上的存儲方式。壓縮同時優(yōu)化了 Access 數(shù)據(jù)庫和 Access 項目的性能。
    所以我們在對日益增大的數(shù)據(jù)庫導致的ASP程序慢得無法忍受的時候，就想到了要壓縮他。但常規(guī)的做法把他下載到本地然后用MSaccess來完成壓縮操作，然后再上傳！后來我想是否可以在線實現(xiàn)對ACCESS數(shù)據(jù)庫的壓縮呢？為此我查了一些資料，但還是不得要領(lǐng)。
    我在本機測試獲得成功，又上網(wǎng)對自己的動網(wǎng)論壇實施了壓縮操作結(jié)果也完全正常，數(shù)據(jù)庫從原來的3.7M壓縮到了2.1M從而證實是可行的。需要注意的是：本程序其實是通過FSO權(quán)限和JET引擎連接，因此在使用之前請確認你的服務(wù)器支持FSO（filesystemobject)權(quán)限并安裝的ACCESS最新驅(qū)動！從安全出發(fā)，請在壓縮之前備份原始數(shù)據(jù)庫！已經(jīng)測試通過的運行環(huán)境：
    WIN98SE+PWS、WIN2000+IIS5.0
    下面是我整理后的源代碼，復制另存為compact.asp并上傳到數(shù)據(jù)庫所在目錄即可正常使用。
    
    
    
    
    
    通用ACCESS數(shù)據(jù)庫在線壓縮程序　　　　　　
    本程序其實是通過FSO權(quán)限和JET引擎連接，因此在使用之前請確認你的服務(wù)器支持FSO（filesystemobject)權(quán)限并安裝的ACCESS最新驅(qū)動！從安全出發(fā)，請在壓縮之前備份原始數(shù)據(jù)庫！
    運行環(huán)境：在WIN98SE+PWS、WIN2000+IIS5.0
    <%
    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
    CompactDB = "你的數(shù)據(jù)庫, " & dbpath & ", 已經(jīng)被壓縮" & vbCrLf
    Else
    CompactDB = "你輸入的數(shù)據(jù)庫路徑或名稱未找到，請重試" & vbCrLf
    End If
    End Function
    %>
    

    壓縮選項，請仔細填寫！
    輸入數(shù)據(jù)庫全稱：
    
    （包括擴展名，如MDB、ASA、ASP等）
    
    檢查是否為ACCESS97數(shù)據(jù)庫
    (默認為ACCESS2000的數(shù)據(jù)庫)
    
    
    

    
    <%
    Dim dbpath,boolIs97
    dbpath = request("dbpath")
    boolIs97 = request("boolIs97")
    If dbpath <> "" Then
    dbpath = server.mappath(dbpath)
    response.write(CompactDB(dbpath,boolIs97))
    End If
    %>