深入浅析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 "<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 (编辑:辽源站长网) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- 在环保“去粗取精”的洗牌变革中,洞悉2020家居业3大变化
- iOS 10.3 Beta 4固件下载 iOS 10.3 Beta 4固件下载地址
- 富森美:4万亿家居零售市场日趋集中 深耕优势区域
- iOS 11.1 Beta5怎么更新 iOS 11.1 Beta5怎么升级
- iOS 10.3.2 Beta 1固件下载 iOS 10.3.2 Beta 1固件下载地址
- 宝兰浴室专用中央系统140℃热空调
- 9月的iPhone7少了这个功能 你还买吗
- 中国创投业模式突破——生态链与价值创造时代来临
- iOS 10.3.2正式版固件下载 iOS 10.3.2正式版固件下载地址
- 快运领域“洗牌游戏”开始,谁将成为2020年第一个出局者?