asp 可否压缩_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 ""

response.end

end if

fso.CopyFile strDBPath & "temp.mdb",dbpath

fso.DeleteFile(strDBPath & "temp.mdb")

Set fso = nothing

Set Engine = nothing

CompactDB = ""

Else

CompactDB = ""

End If

End Function