ASP在线压缩ACCESS数据库原理很简单：利用JRO.JetEngine的压缩功能建立一个新的数据库文件，然后把原来的删掉、替换！既然这样，压缩程序只需几行就ok了！把下面的代码保存为**.asp，数据库文件（db.m
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 & newDBset Engine = nothingFSO.DeleteFile oldDB '删除临时文件FSO.MoveFile newDB, oldDBset FSO = Nothingresponse.write "OK"%>下面是一个ASP在线压缩ACCESS数据库的封装函数
Function CompactDB(dbPath, boolIs97)Dim fso, Engine, strDBPathstrDBPath = left(dbPath,instrrev(DBPath,"/"))Set fso = CreateObject("Scripting.FileSystemObject")If fso.FileExists(dbPath) ThenSet Engine = CreateObject("JRO.JetEngine")On Error Resume NextIf boolIs97 = "True" ThenEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _& "Jet OLEDB:Engine Type=" & JET_3XElseEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"End If If Err Thenresponse.write "<script LANGUAGE='javascript'>alert('无法识别数据库类型.');history.go(-1);</script>"response.endend iffso.CopyFile strDBPath & "temp.mdb",dbpathfso.DeleteFile(strDBPath & "temp.mdb")Set fso = nothingSet Engine = nothingCompactDB = "<script>alert('压缩成功！');javascript:history.go(-1);</script>"ElseCompactDB = "<script>alert('找不到数据库！/n请检查数据库路径是否输入错误！');history.back();</script>"End IfEnd Function 总结
到此这篇关于ASP在线压缩access数据库的方法的文章就介绍到这了,更多相关ASP在线压缩access数据库内容请搜索编程圈以前的文章或继续浏览下面的相关文章希望大家以后多多支持编程圈！
