ACCESS數(shù)據(jù)庫的壓縮、備份、還原、下載以及刪除數(shù)據(jù)的實(shí)現(xiàn)方法-創(chuàng)新互聯(lián)
本篇內(nèi)容介紹了“ACCESS數(shù)據(jù)庫的壓縮、備份、還原、下載以及刪除數(shù)據(jù)的實(shí)現(xiàn)方法”的有關(guān)知識，在實(shí)際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！
創(chuàng)新互聯(lián)建站致力于互聯(lián)網(wǎng)網(wǎng)站建設(shè)與網(wǎng)站營銷，提供成都做網(wǎng)站、成都網(wǎng)站制作、網(wǎng)站開發(fā)、seo優(yōu)化、網(wǎng)站排名、互聯(lián)網(wǎng)營銷、
小程序設(shè)計(jì)、公眾號商城、等建站開發(fā)，
創(chuàng)新互聯(lián)建站網(wǎng)站建設(shè)策劃專家，為不同類型的客戶提供良好的互聯(lián)網(wǎng)應(yīng)用定制解決方案，幫助客戶在新的全球化互聯(lián)網(wǎng)環(huán)境中保持優(yōu)勢。
復(fù)制代碼 代碼如下:
數(shù)據(jù)庫管理 數(shù)據(jù)庫管理系統(tǒng)
<% DimZC_DATABASE_PATH '數(shù)據(jù)庫的路徑 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"'壓縮數(shù)據(jù) Dimtmprs dimallarticle dimMaxid dimtopic,username,dateandtime,body callCompressData() case"BackupData"'備份數(shù)據(jù) ifrequest("act")="Backup"Then callupdata() else callBackupData() endIf case"RestoreData"'恢復(fù)數(shù)據(jù) 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"數(shù)據(jù)庫被成功還原!
" else response.write"沒找到您所需要的數(shù)據(jù)庫!" endIf else callRestoreData() endIf Case"SpaceSize"'系統(tǒng)空間占用 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"
您備份的數(shù)據(jù)庫已經(jīng)"&dbpath&"被成功刪除!
返回.." Else response.writedbpath response.write"
輸入的路徑錯誤,請確認(rèn)后重新輸入!
返回.." EndIf CaseElse EndSelect %> <% response.write"" Subchushihua() %>
[壓縮數(shù)據(jù)庫]
[備份數(shù)據(jù)庫]
[還原數(shù)據(jù)庫]
[系統(tǒng)空間占用]
<%endsub%> <% '====================系統(tǒng)空間占用======================= SubSpaceSize() OnErrorResumeNext %> 
重慶分公司
重慶分公司
