ACCESS数据库的压缩,备份,还原,下载,删除的实现

日期:2020-05-02编辑作者:北京pk10官网-数据库

复制代码 代码如下:html head meta"Content-Language"content="zh-cn" meta"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&"被成功删除!brbrahref=""data_s.asp""返回../a" Else response.writedbpath response.write"br输入的路径错误,请确认后重新输入!brbrahref=""data_s.asp""返回../a" EndIf CaseElse EndSelect % /div % response.write"/body/html" Subchushihua() % divalign=center form 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/ form br 数据库:%showSpaceinfo("../"&data_array(1)&"")%brbr 备份数据库:%showSpaceinfo("databackup")%brbr 系统总共:%showSpaceinfo("/")% brbr /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" ifsize1024Then size=(Size/1024) showsize=size&"KB" endIf ifsize1024Then size=(size/1024) showsize=formatnumber(size,2)&"MB" endIf ifsize1024Then size=(size/1024) showsize=formatnumber(size,2)&"GB" endIf response.write"fontface=verdana"&showsize&"/font" EndSub % % SubRestoreData() % divalign=center divalign=center br/...

本文由北京pk赛车官网下载发布于北京pk10官网-数据库,转载请注明出处:ACCESS数据库的压缩,备份,还原,下载,删除的实现

关键词:

每页10条记录按升序和降序第一次时间均为0.47秒

注:需要建立索引复制代码 代码如下:/*经测试,在14483461条记录中查询第100000页,每页10条记录按升序和降序第一次时...

详细>>

同一台服务器跨库访问实现

前言 我们经常会遇到一个数据库要访问另一个数据库,或者一台服务器要访问另一台服务器里面的数据库。那么这个...

详细>>

有时须要生成一批一而再数字依然日期

问题: 在数据库脚本开发中,有时需要生成一堆连续数字或者日期,例如yearlyreport就需要连续数字做年份,例如dai...

详细>>

北京pk10官网因此通常可大大提高备份速度

问题: 生产环境的数据库可能比较大,如果直接进行全备而不压缩的话,备份集就会占用了大量磁盘空间。给备份文...

详细>>