数据库备份与恢复

access,备份和恢复,完整,可用

<%
if session("username_tyadmin")="" then
response.redirect "index.asp"
response.end
end if
%>



<%
db="../xs_data/xs.mdb"
If Request.QueryString("action")="back" Then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
backf=server.mappath(backf)
backfy=request.form("backfy")
On error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")

if err then
err.clear
response.write ""
response.end
end if

if objfso.Folderexists(backf) = false then
Set fy=objfso.CreateFolder(backf)
end if

objfso.copyfile currf,backf& "\"& backfy
response.write ""
End If

If Request.QueryString("action")="ys" Then
currf=request.form("currf")
currf = server.mappath(currf)
ys=request.form("ys")
Const JET_3X = 4
strDBPath = left(currf,instrrev(currf,"\"))
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then
err.clear
response.write ""
response.end
end if

if objfso.fileexists(currf) then
Set Engine = CreateObject("JRO.JetEngine")
response.write strDBPath
on error resume next
If ys = "1" Then
https://www.360docs.net/doc/3217519848.html,pactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
https://www.360docs.net/doc/3217519848.html,pactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb"
End If
objfso.CopyFile strDBPath & "tourtemp.mdb",currf
objfso.DeleteFile(strDBPath & "tourtemp.mdb")
Set objfso = nothing
Set Engine = nothing
if err then
err.clear
response.write ""
response.end
end if
response.write ""
response.end
Else
response.write ""
response.end
End If
end if

if Request.QueryString("action")="reload" then
currf=request.form("currf")
currf=server.mappath(currf)
backf=request.form("backf")
if backf="" then
response.write ""
else
backf=server.mappath(backf)
end if
on error resume next
Set objfso = Server.Crea

teObject("Scripting.FileSystemObject")
if err then
err.clear
response.write ""
response.end
end if
if objfso.fileexists(backf) then
objfso.copyfile ""&backf&"",""&currf&""
response.write ""
response.end
else
response.write ""
response.end
end if
end if
%>

备份数据库

要求空间支持FSO

数据库路径： 备份数据目录：

数据库名称： 注：尽量不要更改以上项

恢复数据库

要求空间支持FSO

当前数据库路径： 备份数据库路径：

============================================================================================================================

数据库管理系统

<%
Dim ZC_DATABASE_PATH
'数据库的路径
ZC_DATABASE_PATH="database/data.md

b"


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

%>