| 标题 | access数据库在线压缩的方法法 |
| 内容 | 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><font color=#3300ff> <b><font size=5>通用access数据库在线压缩程序</font></b></font><br> </div> <div><br> 本程序其实是通过fso权限和jet引擎连接， 因此在使用之前请确认你的服务器支持fso （filesystemobject)权限并安装的access最新驱动！ 从安全出发，请在压缩之前备份原始数据库！ </div><br> <div>运行环境：在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> <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><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) |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。