ACCESS數(shù)據(jù)庫(kù)的壓縮,備份,還原,下載,刪除的實(shí)現(xiàn)

html>
head>
meta http-equiv="Content-Language" content="zh-cn">
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
title>數(shù)據(jù)庫(kù)管理/title>
/head>

body>
div align=center>數(shù)據(jù)庫(kù)管理系統(tǒng)/div>
br>
br>
p align="center">

%
Dim ZC_DATABASE_PATH
'數(shù)據(jù)庫(kù)的路徑
ZC_DATABASE_PATH="database/data.mdb"


data_array= Split(ZC_DATABASE_PATH,"/")


Dim action
action=trim(request("action"))
Dim dbpath,bkfolder,bkdbname,fso,fso1

Select Case action
Case ""
Call chushihua()
Case "CompressData" '壓縮數(shù)據(jù)
Dim tmprs
dim allarticle
dim Maxid
dim topic,username,dateandtime,body
call CompressData()
case "BackupData" '備份數(shù)據(jù)
if request("act")="Backup" Then
call updata()
else
call BackupData()
end If
case "RestoreData" '恢復(fù)數(shù)據(jù)
dim backpath
if request("act")="Restore" Then
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
if dbpath="" Then
response.write "Please input your database whole Name" 
else
Dbpath=server.mappath(Dbpath)
end If
backpath=server.mappath(backpath)

Set Fso=server.CreateObject("scripting.filesystemobject")
if fso.fileexists(dbpath) Then 
fso.copyfile Dbpath,Backpath
response.write "數(shù)據(jù)庫(kù)被成功還原!br>"
else
response.write "沒(méi)找到您所需要的數(shù)據(jù)庫(kù)!" 
end If
else
call RestoreData()
end If
Case "SpaceSize" '系統(tǒng)空間占用
call SpaceSize()
Case "deletebackup"
Dim dbname
dbpath=Request.QueryString("dbpath")
dbname=Request.QueryString("dbname")
dbpath=Server.MapPath(dbpath)
dbpath=dbpath "\"dbname
set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
fso.DeleteFile(DBPath)
Set fso = nothing
response.write "br>您備份的數(shù)據(jù)庫(kù)已經(jīng)"  dbpath "被成功刪除!br>br>a href=""data_s.asp"">返回../a>"
Else
response.write dbpath 
response.write "br>輸入的路徑錯(cuò)誤,請(qǐng)確認(rèn)后重新輸入!br>br>a href=""data_s.asp"">返回../a>"
End If
Case Else
End Select

%>
/div>
%
response.write"/body>/html>"

Sub chushihua()
%>
div align=center>
form id="edit">
br/>
a href="?action=CompressData">[壓縮數(shù)據(jù)庫(kù)]/a>
br/>br/>a href="?action=BackupData">[備份數(shù)據(jù)庫(kù)]/a>
br/>br/>a href="?action=RestoreData">[還原數(shù)據(jù)庫(kù)]/a>
br/>br/>a href="?action=SpaceSize">[系統(tǒng)空間占用]/a>
br/>br/>
/form>
/div>
%end sub%>

%
'====================系統(tǒng)空間占用=======================
Sub SpaceSize()
On Error Resume Next
%>
div align=center>
div align=center>
系統(tǒng)空間查看
br/>br/>
form id="edit">
br>
數(shù)據(jù)庫(kù):%showSpaceinfo("../"data_array(1)"")%>br>br>
備份數(shù)據(jù)庫(kù):%showSpaceinfo("databackup")%>br>br>
系統(tǒng)總共:%showSpaceinfo("/")%>
br>br>
/form>
/div>
br >
br >
br >
a href="data_s.asp">返回.../a>
/div> 
%
End Sub
%>
% Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.CreateObject("scripting.filesystemobject") 
drvpath=server.mappath(drvpath) 
set d=fso.getfolder(drvpath) 
size=d.size
showsize=size  " Byte" 
if size>1024 Then
size=(Size/1024)
showsize=size  " KB"
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2)  " MB" 
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2)  " GB" 
end If 
response.write "font face=verdana>"  showsize  "/font>"
End Sub 
%>
%
Sub RestoreData()
%>
div align=center>
div align=center>
br/>...