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