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

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

创始人

2024-12-22 06:03:21

0次

复制代码代码如下:

    数据库管理   数据库管理系统

<% 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() %>
<...

上一篇：C#怎么实现背单词小程序

下一篇：Java自动添加重写的toString方法是什么

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

相关内容

热门资讯