ACCESSデータベースの圧縮、バックアップ、リストア、ダウンロード、削除の実現

3810 ワード

 
  















Dim ZC_DATABASE_PATH
'
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" '
Dim tmprs
dim allarticle
dim Maxid
dim topic,username,dateandtime,body
call CompressData()
case "BackupData" '
if request("act")="Backup" Then
call updata()
else
call BackupData()
end If
case "RestoreData" '
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 " !
"
else
response.write " !" 
end If
else
call RestoreData()
end If
Case "SpaceSize" '
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 "
" & dbpath &" !

る.."
Else
response.write dbpath 
response.write "
, !

る.."
End If
Case Else
End Select

%>


response.write""
Sub chushihua()
%>
[圧縮データベース]
[データベースのバックアップ]
[データベースをリストア]
[システムスペース占有]
'=========================================
Sub SpaceSize()
On Error Resume Next
%>
システムスペースの表示
データベース:
データベースのバックアップ:
システム合計:
戻る...
 
End Sub
%>
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 "" & showsize & ""
End Sub 
%>
Sub RestoreData()
%>
<...>