ACCESS數(shù)據(jù)庫的壓縮,備份,還原,下載,刪除的實現(xiàn)
發(fā)布日期：2022-02-05 09:13 | 文章來源：源碼之家
復制代碼 代碼如下:
<html>
<head>
<metahttp-equiv="Content-Language"content="zh-cn">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>數(shù)據(jù)庫管理</title>
</head> <body>
<divalign=center>數(shù)據(jù)庫管理系統(tǒng)</div>
<br>
<br>
<palign="center"> <%
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"'恢復數(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ù)庫被成功還原!<br>"
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"<br>您備份的數(shù)據(jù)庫已經(jīng)"&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">[壓縮數(shù)據(jù)庫]</a>
<br/><br/><ahref="?action=BackupData">[備份數(shù)據(jù)庫]</a>
<br/><br/><ahref="?action=RestoreData">[還原數(shù)據(jù)庫]</a>
<br/><br/><ahref="?action=SpaceSize">[系統(tǒng)空間占用]</a>
<br/><br/>
</form>
</div>
<%endsub%> <%
'====================系統(tǒng)空間占用=======================
SubSpaceSize()
OnErrorResumeNext
%>
<divalign=center>
<divalign=center>
系統(tǒng)空間查看
<br/><br/>
<formid="edit">
<br>
數(shù)據(jù)庫:<%showSpaceinfo("../"&data_array(1)&"")%><br><br>
備份數(shù)據(jù)庫:<%showSpaceinfo("databackup")%><br><br>
系統(tǒng)總共:<%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/><...
版權(quán)聲明：本站文章來源標注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請保持原文完整并注明來源及原文鏈接。禁止復制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務器上建立鏡像，否則將依法追究法律責任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學習參考，不代表本站立場，如有內(nèi)容涉嫌侵權(quán)，請聯(lián)系alex-e#qq.com處理。
相關(guān)文章
下一篇：
關(guān)注官方微信