介绍一个用ASP来压缩ACCESS数据库的例子

<%  
    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  
%>