共计 2845 个字符，预计需要花费 8 分钟才能阅读完成。
本篇内容介绍了“ACCESS 数据库的压缩、备份、还原、下载以及删除数据的实现方法”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让丸趣 TV 小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！
复制代码 代码如下:
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 数据库的压缩、备份、还原、下载以及删除数据的实现方法”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注丸趣 TV 网站，丸趣 TV 小编将为大家输出更多高质量的实用文章！
正文完
