溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
本篇內容介紹了“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,"/") 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數據庫的壓縮、備份、還原、下載以及刪除數據的實現方法”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識可以關注億速云網站，小編將為大家輸出更多高質量的實用文章！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
