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

成都创新互联成立于2013年，先为和政等服务建站，和政等地企业，进行企业商务咨询服务。为和政企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

把下面的代码保存为**.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"
%>

网站名称：深入浅析ASP在线压缩access数据库的方法-创新互联
转载来于：http://azwzsj.com/article/hiohc.html