深入浅析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(发邮件时,请将#更换为@)进行举报,并提供相关证据,一经查实,本站将立刻删除涉嫌侵权内容。