资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划，从策略到执行的一站式服务

网站建设 >

查看其它板块

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

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

创新互联建站致力于互联网网站建设与网站营销，提供成都做网站、成都网站制作、网站开发、seo优化、网站排名、互联网营销、小程序设计、公众号商城、等建站开发，创新互联建站网站建设策划专家，为不同类型的客户提供良好的互联网应用定制解决方案，帮助客户在新的全球化互联网环境中保持优势。

复制代码 代码如下:

    数据库管理   数据库管理系统
 
 
  <% 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"数据库被成功还原!
" 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"
您备份的数据库已经"&dbpath&"被成功删除!

返回.." Else response.writedbpath response.write"
输入的路径错误,请确认后重新输入!

返回.." EndIf CaseElse EndSelect %> 
 <% response.write"" Subchushihua() %>   
 [压缩数据库] 

[备份数据库] 

[还原数据库] 

[系统空间占用] 

  
 <%endsub%> <% '====================系统空间占用======================= SubSpaceSize() OnErrorResumeNext %>   系统空间查看 

  
 数据库:<%showSpaceinfo("../"&data_array(1)&"")%>

 备份数据库:<%showSpaceinfo("databackup")%>

 系统总共:<%showSpaceinfo("/")%> 

   
 
 
 返回...  <% 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""&showsize&"" EndSub %> <% SubRestoreData() %>   
<...

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


分享文章：ACCESS数据库的压缩、备份、还原、下载以及删除数据的实现方法-创新互联
本文URL：http://cdkjz.cn/article/isege.html
返回首页 了解更多建站资讯

相关资讯

多年建站经验

多一份参考，总有益处

联系快上网，免费获得专属《策划方案》及报价

咨询相关问题或预约面谈，可以通过以下方式与我们联系

大客户专线   成都：13518219792   座机：028-86922220

在线咨询 提交需求
友情链接 交换友情链接
成都商城开发创新互联重庆商城系统开发成都定制网页设计阿坝网站设计网站空间四川雅安服务器托管成都装修公司服务器租用成发金汇

成都网站建设公司地址：成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220

成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.

专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网！ | 成都网站建设哪家好？ | 网站建设地图