access数据库在线压缩的方法
如果在 access 数据库中删除数据或对象，或者在 access 项目中删除对象，access 数据库或 access 项目可能会产生碎片并会降低磁盘空间的使用效率。压缩 access 数据库或access项目实际上是复制该文件，并重新组织文件在磁盘上的存储方式。压缩同时优化了 access 数据库和 access 项目的性能。
所以我们在对日益增大的数据库导致的asp程序慢得无法忍受的时候，就想到了要压缩他。但常规的做法把他下载到本地然后用msaccess来完成压缩操作，然后再上传！
需要注意的是：本程序其实是通过fso权限和jet引擎连接，因此在使用之前请确认你的服务器支持fso（filesystemobject)权限并安装的access最新驱动！从安全出发，请在压缩之前备份原始数据库！已经测试通过的运行环境：
win98se+pws、win2000+iis5.0
下面是我整理后的源代码，复制另存为compact.asp并上传到数据库所在目录即可正常使用。
<html>
<head>
<title>access数据库压缩程序</title>
</head>
<body bgcolor=e0f8ef>
<div>
<div align=center><font color=#3300ff>
<b><font size=5>通用access数据库在线压缩程序</font></b></font><br>
</div>
<div><br>
本程序其实是通过fso权限和jet引擎连接，
因此在使用之前请确认你的服务器支持fso
（filesystemobject)权限并安装的access最新驱动！
从安全出发，请在压缩之前备份原始数据库！
</div><br>
<div align=center>运行环境：在win98se+pws、win2000+iis5.0 <br>
<%
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
%>
</div>
</div>
<form name=compact method=post action=compact.asp>
<div align=center>
<font size=2><b><font color=#ff0000>
压缩选项，请仔细填写！</font></b><br>
<br>
输入数据库全称：
<input type=text name=dbpath>
（包括扩展名，如mdb、asa、asp等）<br>
<br>
<input type=checkbox name=boolis97 value=true>
检查是否为access97数据库<br>
(默认为access2000的数据库)<br>
<br>
<input type=submit name=submit value=确认压缩>
</font></div>
</form>
<div align=center><font size=2>
<%
dim dbpath,boolis97
dbpath = request(dbpath)
boolis97 = request(boolis97)
if dbparesponse.write(compactdb(dbpath,boolis97))
end if
%>
<br>
</font></div></body></html>th <> then
dbpath = server.mappath(dbpath)
中国足彩网信息请查看IT技术专栏
公众号
事业单位
当前位置：
公考类
招聘类
各类考试
