您现在的位置是：网站首页> 编程资料编程资料
ASP压缩ACCESS数据库实例_资源网
2023-12-07
79人已围观
简介 ASP压缩ACCESS数据库实例_资源网
用access数据库开发的网站,当随着网站数据量的不断增长.数据库的容量也是不断加大.这让ASP程序速度直线下降.如果才能让ACCESS数据库容量尽可能小.我们要对它进行压缩处理.
下面是我整理后的源代码，复制另存为compact.asp并上传到数据库所在目录即可正常使用。
以下为引用的内容： 通用ACCESS数据库在线压缩程序 |
本程序其实是通过FSO权限和JET引擎连接，
因此在使用之前请确认你的服务器支持FSO
（filesystemobject)权限并安装的ACCESS最新驱动！
从安全出发，请在压缩之前备份原始数据库！
以下为引用的内容： 运行环境：在WIN98SE+PWS、WIN2000+iis5.0 <% Const JET_3X = 4 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") 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 fso.CopyFile strDBPath & "temp.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") Set fso = nothing Set Engine = nothing CompactDB = "你的数据库, " & dbpath & ", 已经被压缩" & vbCrLf Else CompactDB = "你输入的数据库路径或名称未找到，请重试" & vbCrLf End If End Function %> |
输入数据库全称：
以下为引用的内容：
<% Dim dbpath,boolIs97 dbpath = request("dbpath") boolIs97 = request("boolIs97") If dbparesponse.write(CompactDB(dbpath,boolIs97)) End If %> dbpath = server.mappath(dbpath) |
注意:由于本例实用的是FSO操作ACCESS文件,所以要使用本例请确保你的服务器支持FSO支持.
