时间: 2021-07-31 作者:daque
<%olddb = "d:\net\accesstest.mdb" bakdb = "d:\net\accesstestback.mdb" newdb = "d:\net\accesscompact.mdb" set fso = server.createobject("scripting.filesystemobject") ' back up database fso.copyfile olddb, bakdb , true ' compact database set engine = server.createobject("jro.jetengine") prov = "provider=microsoft.jet.oledb.4.0;data source=" engine.compactdatabase prov & olddb, prov & newdb set engine = nothing ' delete original database fso.deletefile olddb ' move (rename) compacted database fso.movefile newdb, olddb set fso = nothing%>