<% 

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對舊的數(shù)據(jù)庫數(shù)據(jù)進(jìn)行復(fù)制，然后刪除舊數(shù)據(jù)庫更改新數(shù)據(jù)庫名稱，簡單而有效