asp压缩access数据库方法代码

用ASP代码实现对access数据库的在线压缩处理，注意压缩前请备份数据库。

我们知道每个一段时间压缩一下access数据库，可以减少数据库的体积，提高数据库的性能。

<％
dim fso, engine, strdbpath 
datapath="a.mdb"  '这里是数据库存放地址
strdbpath = left(datapath,instrrev(datapath,"\")) 
set fso = Server.createobject("scripting.filesystemobject") 
IF fso.fileexists(datapath) then 
Set Engine = CreateObject("JRO.JetEngine") 
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & datapath," provider=microsoft.jet.oledb.4.0; data source=" & strdbpath & "temp.mdb" 
fso.copyfile strdbpath & "temp.mdb",datapath 
fso.deletefile(strdbpath & "temp.mdb") 
set fso = nothing 
set Engine = nothing 
response.write"数据库压缩成功!" 
else 
response.write "数据库没有找到!" 
end IF 
％>