深入浅析ASP在线压缩access数据库的方法-创新互联

ASP在线压缩ACCESS数据库原理很简单：利用JRO.JetEngine的压缩功能建立一个新的数据库文件，然后把原来的删掉、替换！既然这样，压缩程序只需几行就ok了！

把下面的代码保存为**.asp，数据库文件（db.md）放在相同目录下，执行asp搞定！

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