ACCESS数据库的压缩,备份,还原,下载,删除的实现
2022-11-12 09:53:03
内容摘要
这篇文章主要为大家详细介绍了ACCESS数据库的压缩,备份,还原,下载,删除的实现,具有一定的参考价值,可以用来参考一下。
对此感兴趣的朋友,看看idc笔记做的技术笔记!
代码如下:
文章正文
这篇文章主要为大家详细介绍了ACCESS数据库的压缩,备份,还原,下载,删除的实现,具有一定的参考价值,可以用来参考一下。
对此感兴趣的朋友,看看idc笔记做的技术笔记!
代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 | <code><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/><... </code> |
注:关于ACCESS数据库的压缩,备份,还原,下载,删除的实现的内容就先介绍到这里,更多相关文章的可以留意
代码注释