如何對(duì)已經(jīng)刪除冗余數(shù)據(jù)的access數(shù)據(jù)庫進(jìn)行壓縮

<% 

oldDB = server.mappath("db.mdb")  

newDB = server.mappath("db_new.mdb") 

Set FSO = Server.CreateObject("Scripting.FileSystemObject") 

Set Engine = Server.CreateObject("JRO.JetEngine") 

prov = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 

Engine.CompactDatabase prov & OldDB, prov & newDB 

set Engine = nothing 

FSO.DeleteFile oldDB 

FSO.MoveFile newDB, oldDB 

set FSO = Nothing 

response.write "OK" 

%> 

其原理就是通過fso對(duì)舊的數(shù)據(jù)庫數(shù)據(jù)進(jìn)行復(fù)制，然后刪除舊數(shù)據(jù)庫更改新數(shù)據(jù)庫名稱，簡(jiǎn)單而有效