收藏

下载资源 加入VIP,免费下载

数据库备份与恢复.docx

上传人：b****6 文档编号：7344923 上传时间：2023-05-11 格式：DOCX 页数：16 大小：18.63KB

下载 相关 举报

第1页 / 共16页

第2页 / 共16页

第3页 / 共16页

第4页 / 共16页

第5页 / 共16页

第6页 / 共16页

第7页 / 共16页

第8页 / 共16页

第9页 / 共16页

第10页 / 共16页

第11页 / 共16页

第12页 / 共16页

第13页 / 共16页

第14页 / 共16页

第15页 / 共16页

第16页 / 共16页

亲，该文档总共16页，全部预览完了，如果喜欢就下载吧！

下载资源

资源描述

数据库备份与恢复.docx

《数据库备份与恢复.docx》由会员分享，可在线阅读，更多相关《数据库备份与恢复.docx（16页珍藏版）》请在冰点文库上搜索。

数据库备份与恢复

数据库备份与恢复.txt我是天使，回不去天堂是因为体重的原因。

别人装处，我只好装经验丰富。

泡妞就像挂QQ，每天哄她2个小时，很快就可以太阳了。

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

<%

ifsession（"username_tyadmin"）=""then

response.redirect"index.asp"

response.end

endif

%>

--#includefile="conn.asp"-->

--

body,td,th{

font-size:

12px;

}

.STYLE1{

color:

#FFFFFF;

font-weight:

bold;

}

.STYLE2{color:

#FF0000}

-->

<%

db="../xs_data/xs.mdb"

IfRequest.QueryString（"action"）="back"Then

currf=request.form（"currf"）

currf=server.mappath（currf）

backf=request.form（"backf"）

backf=server.mappath（backf）

backfy=request.form（"backfy"）

Onerrorresumenext

Setobjfso=Server.CreateObject（"Scripting.FileSystemObject"）

iferrthen

err.clear

response.write""

response.end

endif

ifobjfso.Folderexists（backf）=falsethen

Setfy=objfso.CreateFolder（backf）

endif

objfso.copyfilecurrf,backf&"\"&backfy

response.write""

EndIf

IfRequest.QueryString（"action"）="ys"Then

currf=request.form（"currf"）

currf=server.mappath（currf）

ys=request.form（"ys"）

ConstJET_3X=4

strDBPath=left（currf,instrrev（currf,"\"））

onerrorresumenext

Setobjfso=Server.CreateObject（"Scripting.FileSystemObject"）

iferrthen

err.clear

response.write""

response.end

endif

ifobjfso.fileexists（currf）then

SetEngine=CreateObject（"JRO.JetEngine"）

response.writestrDBPath

onerrorresumenext

Ifys="1"Then

Engine.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&currf,_

"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strDBPath&"tourtemp.mdb;"_

&"JetOLEDB:

EngineType="&JET_3X

Else

Engine.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&currf,_

"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strDBPath&"tourtemp.mdb"

EndIf

objfso.CopyFilestrDBPath&"tourtemp.mdb",currf

objfso.DeleteFile（strDBPath&"tourtemp.mdb"）

Setobjfso=nothing

SetEngine=nothing

iferrthen

err.clear

response.write""

response.end

endif

response.write""

response.end

Else

response.write""

response.end

EndIf

endif

ifRequest.QueryString（"action"）="reload"then

currf=request.form（"currf"）

currf=server.mappath（currf）

backf=request.form（"backf"）

ifbackf=""then

response.write""

else

backf=server.mappath（backf）

endif

onerrorresumenext

Setobjfso=Server.CreateObject（"Scripting.FileSystemObject"）

iferrthen

err.clear

response.write""

response.end

endif

ifobjfso.fileexists（backf）then

objfso.copyfile""&backf&"",""&currf&""

response.write""

response.end

else

response.write""

response.end

endif

endif

%>

action=back">

collapse"bordercolor="#111111"width="98%"id="AutoNumber1"cellspacing="3">

备份数据库

要求空间支持FSO

数据库路径：

#F7FFF7">

"readonly>备份数据目录：

#F7FFF7">

数据库名称：

#F7FFF7">

注：

尽量不要更改以上项

action=reload">

collapse"bordercolor="#111111"width="98%"id="AutoNumber3">

恢复数据库

要求空间支持FSO

当前数据库路径：

#F7FFF7">

"readonly>

备份数据库路径：

#F7FFF7">

#F7FFF7">

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

数据库管理系统

<%

DimZC_DATABASE_PATH

'数据库的路径

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"'压缩数据

Dimtmprs

dimallarticle

dimMaxid

dimtopic,username,dateandtime,body

callCompressData（）

case"BackupData"'备份数据

ifrequest（"act"）="Backup"Then

callupdata（）

else

callBackupData（）

endIf

case"RestoreData"'恢复数据

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"数据库被成功还原!

"

else

response.write"没找到您所需要的数据库!

"

endIf

else

callRestoreData（）

endIf

Case"SpaceSize"'系统空间占用

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"
您备份的数据库已经"&dbpath&"被成功删除!

返回.."

Else

response.writedbpath

response.write"
输入的路径错误,请确认后重新输入!

返回.."

EndIf

CaseElse

EndSelect

%>

<%

response.write""

Subchushihua（）

%>

action=CompressData">[压缩数据库]

action=BackupData">[备份数据库]

action=RestoreData">[还原数据库]

action=SpaceSize">[系统空间占用]

<%endsub%>

<%

'====================系统空间占用=======================

SubSpaceSize（）

OnErrorResumeNext

%>

系统空间查看

数据库:

<%showSpaceinfo（"../"&data_array

（1）&""）%>

备份数据库:

<%showSpaceinfo（"databackup"）%>

系统总共:

<%showSpaceinfo（"/"）%>

返回...

<%

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""&showsize&""

EndSub

%>

<%

SubRestoreData（）

%>

还原数据库:

action=RestoreData&act=Restore">

还原的路径（相对路径）:

_Bak.mdb">

还原后的路径（相对路径）:

">

返回...

<%

EndSub

Subupdata（）

Dbpath=request.form（"Dbpath"）

Dbpath=server.mappath（Dbpath）

bkfolder=request.form（"bkfolder"）

bkdbname=request.form（"bkdbname"）

SetFso=server.CreateObject（"scripting.filesystemobject"）

iffso.fileexists（dbpath）Then

IfCheckDir（bkfolder）=TrueThen

fso.copyfiledbpath,bkfolder&"\"&bkdbname

else

MakeNewsDirbkfolder

fso.copyfiledbpath,bkfolder&"\"&bkdbname

endIf

response.write"
已经成功备份,你的数据库的路径:

"&bkfolder&"\"&bkdbname

response.write"

点击此处将数据库下载下来:

"&ZC_BLOG_HOST&request.form（"bkfolder"）&"/"&bkdbname&"

"

response.write"

action=deletebackup&dbpath="&request.form（"bkfolder"）&"&dbname="&bkdbname&""">当您下载完毕后,点击此处将删除备份的数据库!

返回..."

Else

response.write"Error,,找不到文件!

"

EndIf

Setfso=nothing

EndSub

'------------------检查某一目录是否存在-------------------

FunctionCheckDir（FolderPath）

folderpath=Server.MapPath（"."）&"\"&folderpath

Setfso1=CreateObject（"Scripting.FileSystemObject"）

Iffso1.Folde

• 登录
• 首页
• 资源分类
• 升级会员
• 通知公告
• 帮助中心