深入浅析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" %>

下面是一个ASP在线压缩ACCESS数据库的封装函数

Function CompactDB(dbPath, boolIs97) Dim fso, Engine, strDBPath strDBPath = left(dbPath,instrrev(DBPath,"")) Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(dbPath) Then Set Engine = CreateObject("JRO.JetEngine") On Error Resume Next If boolIs97 = "True" Then Engine.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_3X Else Engine.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 Then response.write "<script LANGUAGE='javascript'>alert('无法辨认数据库范例.');history.go(-1);</script>" response.end end if fso.CopyFile strDBPath & "temp.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") Set fso = nothing Set Engine = nothing CompactDB = "<script>alert('压缩乐成！');javascript:history.go(-1);</script>" Else CompactDB = "<script>alert('找不到数据库！n请搜查数据库路径是否输入错误！');history.back();</script>" End If End Function

（编辑：湖南网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!