ACCESS数据库的压缩、备份、还原、下载以及删除数据的实现方法

2024-04-02 19:55

短信预约 -IT技能 免费直播动态提醒

本篇内容介绍了“ACCESS数据库的压缩、备份、还原、下载以及删除数据的实现方法”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

复制代码代码如下:

<html> <head> <metahttp-equiv="Content-Language"content="zh-cn"> <metahttp-equiv="Content-Type"content="text/html;charset=gb2312"> <title>数据库管理</title> </head> <body> <divalign=center>数据库管理系统</div> <br> <br> <palign="center"> <% DimZC_DATABASE_PATH '数据库的路径 ZC_DATABASE_PATH="database/data.mdb" data_array=Split(ZC_DATABASE_PATH,"/") Dimaction action=trim(request("action")) Dimdbpath,bkfolder,bkdbname,fso,fso1 SelectCaseaction Case"" Callchushihua() Case"CompressData"'压缩数据 Dimtmprs dimallarticle dimMaxid dimtopic,username,dateandtime,body callCompressData() case"BackupData"'备份数据 ifrequest("act")="Backup"Then callupdata() else callBackupData() endIf case"RestoreData"'恢复数据 dimbackpath ifrequest("act")="Restore"Then Dbpath=request.form("Dbpath") backpath=request.form("backpath") ifdbpath=""Then response.write"PleaseinputyourdatabasewholeName" else Dbpath=server.mappath(Dbpath) endIf backpath=server.mappath(backpath) SetFso=server.CreateObject("scripting.filesystemobject") iffso.fileexists(dbpath)Then fso.copyfileDbpath,Backpath response.write"数据库被成功还原!<br>" else response.write"没找到您所需要的数据库!" endIf else callRestoreData() endIf Case"SpaceSize"'系统空间占用 callSpaceSize() Case"deletebackup" Dimdbname dbpath=Request.QueryString("dbpath") dbname=Request.QueryString("dbname") dbpath=Server.MapPath(dbpath) dbpath=dbpath&"\"&dbname setfso=CreateObject("Scripting.FileSystemObject") Iffso.FileExists(dbPath)Then fso.DeleteFile(DBPath) Setfso=nothing response.write"<br>您备份的数据库已经"&dbpath&"被成功删除!<br><br><ahref=""data_s.asp"">返回..</a>" Else response.writedbpath response.write"<br>输入的路径错误,请确认后重新输入!<br><br><ahref=""data_s.asp"">返回..</a>" EndIf CaseElse EndSelect %> </div> <% response.write"</body></html>" Subchushihua() %> <divalign=center> <formid="edit"> <br/> <ahref="?action=CompressData">[压缩数据库]</a> <br/><br/><ahref="?action=BackupData">[备份数据库]</a> <br/><br/><ahref="?action=RestoreData">[还原数据库]</a> <br/><br/><ahref="?action=SpaceSize">[系统空间占用]</a> <br/><br/> </form> </div> <%endsub%> <% '====================系统空间占用======================= SubSpaceSize() OnErrorResumeNext %> <divalign=center> <divalign=center> 系统空间查看 <br/><br/> <formid="edit"> <br> 数据库:<%showSpaceinfo("../"&data_array(1)&"")%><br><br> 备份数据库:<%showSpaceinfo("databackup")%><br><br> 系统总共:<%showSpaceinfo("/")%> <br><br> </form> </div> <br> <br> <br> <ahref="data_s.asp">返回...</a> </div> <% EndSub %> <%SubShowSpaceInfo(drvpath) dimfso,d,size,showsize setfso=server.CreateObject("scripting.filesystemobject") drvpath=server.mappath(drvpath) setd=fso.getfolder(drvpath) size=d.size showsize=size&"Byte" ifsize>1024Then size=(Size/1024) showsize=size&"KB" endIf ifsize>1024Then size=(size/1024) showsize=formatnumber(size,2)&"MB" endIf ifsize>1024Then size=(size/1024) showsize=formatnumber(size,2)&"GB" endIf response.write"<fontface=verdana>"&showsize&"</font>" EndSub %> <% SubRestoreData() %> <divalign=center> <divalign=center> <br/><...

“ACCESS数据库的压缩、备份、还原、下载以及删除数据的实现方法”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注亿速云网站，小编将为大家输出更多高质量的实用文章！

免责声明：

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的，并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据，供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

阅读原文内容投诉