如何高效实现ASP对在线Access数据库的深度压缩与优化？

本文共计560个文字，预计阅读时间需要3分钟。

ASP在线压缩ACCESS数据库原理很简单：利用JRO.JetEngine的压缩功能建立一个新的数据库文件，然后将原始数据中的删除和替换操作！这样，压缩程序只需几行代码即可完成。以下是代码示例：

.asp

asp<%' 压缩ACCESS数据库的示例代码

' 连接到ACCESS数据库Set db=Server.CreateObject(ADODB.Connection)db.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=your_database.mdb;db.Open

' 创建一个新的压缩数据库文件Set newDb=Server.CreateObject(ADODB.Connection)newDb.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=compressed_database.mdb;newDb.Open

' 复制原始数据到新数据库Set rs=db.Execute(SELECT * FROM your_table)rs.MoveFirstDo While Not rs.EOF newDb.Execute INSERT INTO compressed_table ( & rs.Fields.Count & ) VALUES ( & rs.Fields.Count & ), dbAddNew For i=1 To rs.Fields.Count newDb.Execute UPDATE compressed_table SET field & i & =' & rs.Fields(i).Value & ', dbAppendOnly Next rs.MoveNextLoop

' 关闭连接db.ClosenewDb.Close%>

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

总结

到此这篇关于ASP在线压缩access数据库的方法的文章就介绍到这了,更多相关ASP在线压缩access数据库内容请搜索易盾网络以前的文章或继续浏览下面的相关文章希望大家以后多多支持易盾网络！