介绍 & lt; %
时间=oldDB server.mappath (“db.mdb"), & # 39;更改数据库地址
时间=newDB server.mappath (“db_new.mdb"), & # 39;生成临时文件
Set FSO =, Server.CreateObject (“Scripting.FileSystemObject")
Set Engine =, Server.CreateObject (“JRO.JetEngine")
时间=prov “提供者=Microsoft.Jet.OLEDB.4.0; Data 源=?
Engine.CompactDatabase prov ,, OldDB, prov 及,newDB
set Engine =,什么都没有
FSO.DeleteFile oldDB & # 39;删除临时文件
FSO.MoveFile newDB oldDB
set FSO =,什么都没有
response.write “OK"
%在 Function CompactDB (dbPath, boolIs97)
Dim 无线光通信,引擎,strDBPath
strDBPath =,左(dbPath instrrev (dbPath,“\“))
Set fso =, CreateObject (“Scripting.FileSystemObject")
If fso.FileExists (dbPath),然后
Set Engine =, CreateObject (“JRO.JetEngine")
提醒Error Resume Next
If boolIs97 =,“True"然后
Engine.CompactDatabase “提供者=Microsoft.Jet.OLEDB.4.0; Data 源=?,,dbpath, _
“提供者=Microsoft.Jet.OLEDB.4.0; Data 源=?,,strDBPath ,,“temp.mdb;“_
和,“Jet OLEDB: Engine 类型=?和JET_3X
其他的
Engine.CompactDatabase “提供者=Microsoft.Jet.OLEDB.4.0; Data 源=?,,dbpath, _
“提供者=Microsoft.Jet.OLEDB.4.0; Data 源=?,,strDBPath ,,“temp.mdb"
最终获得;
,
If Err 然后
response.write “& lt; script 语言=& # 39;javascript # 39;在警报(& # 39;无法识别数据库类自营型# 39;);history.go (1); & lt;/script>“
response.end
最终获得;
fso.CopyFile strDBPath 和“temp.mdb", dbpath
fso.DeleteFile (strDBPath ,,“temp.mdb")
Set fso =,什么都没有
Set Engine =,什么都没有
时间=CompactDB “& lt; script>警报(& # 39;压缩成功! & # 39;);javascript: history.go (1); & lt;/script>“
其他的
时间=CompactDB “& lt; script>警报(& # 39;找不到数据库! \ n请检查数据库路径是否输入错误! & # 39;);history.back (); & lt;/script>“
最终获得;
最终获得函数
这篇文章主要介绍”ASP在线压缩访问数据库的方法”,在日常操作中,相信很多人在ASP在线压缩访问数据库的方法问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答“ASP在线压缩访问数据库的方法”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!
ASP在线压缩访问数据库原理很简单:利用JRO.JetEngine的压缩功能建立一个新的数据库文件,然后把原来的删掉,替换!既然这样,压缩程序只需几行就好了!
把下面的代码保存为* * ASP,数据库文件(db。md)放在相同目录下,执行asp搞定!
下面是一个ASP在线压缩访问数据库的封装函数
<强>总结
到此,关于“ASP在线压缩访问数据库的方法”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注网站,小编会继续努力为大家带来更多实用的文章!
