介绍一个用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  
%>

上一个：asp 中调用存贮过程的一些例子.(2)
下一个：User Tips: Using Return Values from a SQL Server Stored Procedure to Customize Error Messages