本篇内容介绍了“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,"/")Dimactionaction=trim(request("action"))Dimdbpath,bkfolder,bkdbname,fso,fso1SelectCaseactionCase""Callchushihua()Case"CompressData"'压缩数据DimtmprsdimallarticledimMaxiddimtopic,username,dateandtime,bodycallCompressData()case"BackupData"'备份数据ifrequest("act")="Backup"Thencallupdata()elsecallBackupData()endIfcase"RestoreData"'恢复数据dimbackpathifrequest("act")="Restore"ThenDbpath=request.form("Dbpath")backpath=request.form("backpath")ifdbpath=""Thenresponse.write"PleaseinputyourdatabasewholeName"elseDbpath=server.mappath(Dbpath)endIfbackpath=server.mappath(backpath)SetFso=server.CreateObject("scripting.filesystemobject")iffso.fileexists(dbpath)Thenfso.copyfileDbpath,Backpathresponse.write"数据库被成功还原!<br>"elseresponse.write"没找到您所需要的数据库!"endIfelsecallRestoreData()endIfCase"SpaceSize"'系统空间占用callSpaceSize()Case"deletebackup"Dimdbnamedbpath=Request.QueryString("dbpath")dbname=Request.QueryString("dbname")dbpath=Server.MapPath(dbpath)dbpath=dbpath&"\"&dbnamesetfso=CreateObject("Scripting.FileSystemObject")Iffso.FileExists(dbPath)Thenfso.DeleteFile(DBPath)Setfso=nothingresponse.write"<br>您备份的数据库已经"&dbpath&"被成功删除!<br><br><ahref=""data_s.asp"">返回..</a>"Elseresponse.writedbpathresponse.write"<br>输入的路径错误,请确认后重新输入!<br><br><ahref=""data_s.asp"">返回..</a>"EndIfCaseElseEndSelect%></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,showsizesetfso=server.CreateObject("scripting.filesystemobject")drvpath=server.mappath(drvpath)setd=fso.getfolder(drvpath)size=d.sizeshowsize=size&"Byte"ifsize>1024Thensize=(Size/1024)showsize=size&"KB"endIfifsize>1024Thensize=(size/1024)showsize=formatnumber(size,2)&"MB"endIfifsize>1024Thensize=(size/1024)showsize=formatnumber(size,2)&"GB"endIfresponse.write"<fontface=verdana>"&showsize&"</font>"EndSub%><%SubRestoreData()%><divalign=center><divalign=center><br/><...

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