深入浅析ASP在线压缩access数据库的方法
ASP在线压缩ACCESS数据库原理很简单：利用JRO.JetEngine的压缩功能建立一个新的数据库文件，然后把原来的删掉、替换！既然这样，压缩程序只需几行就ok了！
把下面的代码保存为**.asp，数据库文件（db.md）放在相同目录下，执行asp搞定！
<%
oldDB=server.mappath("db.mdb")'更改数据库地址
newDB=server.mappath("db_new.mdb")'生成临时文件
SetFSO=Server.CreateObject("Scripting.FileSystemObject")
SetEngine=Server.CreateObject("JRO.JetEngine")
prov="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="
Engine.CompactDatabaseprov&OldDB,prov&newDB
setEngine=nothing
FSO.DeleteFileoldDB'删除临时文件
FSO.MoveFilenewDB,oldDB
setFSO=Nothing
response.write"OK"
%>
下面是一个ASP在线压缩ACCESS数据库的封装函数
FunctionCompactDB(dbPath,boolIs97)
Dimfso,Engine,strDBPath
strDBPath=left(dbPath,instrrev(DBPath,"\"))
Setfso=CreateObject("Scripting.FileSystemObject")
Iffso.FileExists(dbPath)Then
SetEngine=CreateObject("JRO.JetEngine")
OnErrorResumeNext
IfboolIs97="True"Then
Engine.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbpath,_
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strDBPath&"temp.mdb;"_
&"JetOLEDB:EngineType="&JET_3X
Else
Engine.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbpath,_
"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strDBPath&"temp.mdb"
EndIf
IfErrThen
response.write"alert('无法识别数据库类型.');history.go(-1);"
response.end
endif
fso.CopyFilestrDBPath&"temp.mdb",dbpath
fso.DeleteFile(strDBPath&"temp.mdb")
Setfso=nothing
SetEngine=nothing
CompactDB=""
Else
CompactDB=""
EndIf
EndFunction
总结
到此这篇关于ASP在线压缩access数据库的方法的文章就介绍到这了,更多相关ASP在线压缩access数据库内容请搜索毛票票以前的文章或继续浏览下面的相关文章希望大家以后多多支持毛票票！
声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：czq8825#qq.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。