数据库备份与恢复.docx

数据库备份与恢复.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">