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