数据库的备份及还原
发布网友
发布时间：2022-04-23 09:35
共1个回答
热心网友
时间：2022-04-10 08:52
<%@ LANGUAGE=VBScript CodePage=936%>
<%Response.Buffer=True%>
<%
dim conn
dim connstr
dim db
db="../data/#dkiekie564#$%^&.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<style type="text/css">
<!--
.style2 {
color: #FFFFFF;
font: 16px;
font-weight: bold;
}
body {
background-color: #BEE9FD;
}
-->
</style>
<body topmargin="0">
<table width="780" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFCC66" class="a2">
<tr>
<td height="25" align="center" background="images/fan002.jpg" class="style2">备
份 数 据 库</td>
</tr>
<tr class="a4">
<td align="center" bgcolor="#FFFFFF">
<%
if request("action")="Backup" then
call backupdata()
else
%>
<form method="post" action="backup.asp?action=Backup">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25"><BR><strong>备份数据文件</strong>[需要FSO权限]</td>
</tr>
<tr>
<td height="22"> 当前数据库路径</td>
</tr>
<tr>
<td height="22"><input type=text size=80 name=DBpath value="<%=db%>"></td>
</tr>
<tr>
<td height="22"> 备份数据库目录[如目录不存在，程序将自动创建]</td>
</tr>
<tr>
<td height="22"><input type=text size=80 name=bkfolder value=backup></td>
</tr>
<tr>
<td height="22">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
</tr>
<tr>
<td height="22"><input type=text size=80 name=bkDBname value=#dkiekie564#$%^&.mdb></td>
</tr>
<tr>
<td height="22"><div align="center">
<input type=submit value="确定">
</div></td>
</tr>
<tr>
<td height="22"><br>
<br>
本程序的默认数据库文件为<%=db%><br>
您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
注意：所有路径都是相对与程序空间根目录的相对路径</td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table>
</form>
<%end if%><%
sub backupdata()
Dbpath=request.form("Dbpath")
Dbpath=server.mappath(Dbpath)
bkfolder=request.form("bkfolder")
bkdbname=request.form("bkdbname")
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bkfolder) = True Then
fso.copyfile dbpath,bkfolder& "\"& bkdbname
else
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& "\"& bkdbname
end if
response.write "备份数据库成功，您备份的数据库路径为" &bkfolder& "\"& bkdbname
Else
response.write "找不到您所需要备份的文件。"
End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%> </td>
</tr>
</table>
</body>
数据库还原：
<%@ LANGUAGE=VBScript CodePage=936%>
<%Response.Buffer=True%>
<%
dim conn
dim connstr
dim db
db="backup/#dkiekie564#$%^&.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<style type="text/css">
<!--
.style2 {
color: #FFFFFF;
font: 16px;
font-weight: bold;
}
body {
background-color: #9DD3FB;
}
-->
</style>
<body topmargin="0">
<table width="780" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0100FC" class="a2">
<tr>
<td height="25" align="center" background="images/fan002.jpg" class="style2">还
原 数 据 库</td>
</tr>
<tr class="a4">
<td align="center" bgcolor="#9DD3FB">
<%
if request("action")="Backup" then
call backupdata()
else
%>
<form method="post" action="hy.asp?action=Backup">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25"><BR>
<strong>还原数据库文件</strong>[需要FSO权限]</td>
</tr>
<tr>
<td height="22"> 数据库备份路径</td>
</tr>
<tr>
<td height="22"><input type=text size=80 name=DBpath value="<%=db%>"></td>
</tr>
<tr>
<td height="22"> 数据库目录[如目录不存在，程序将自动创建]</td>
</tr>
<tr>
<td height="22"><input type=text size=80 name=bkfolder value=../tata></td>
</tr>
<tr>
<td height="22">数据库还原将覆盖现有数据，请谨慎操作！</td>
</tr>
<tr>
<td height="22"><input type=text size=80 name=bkDBname value=#huanyuan.mdb></td>
</tr>
<tr>
<td height="22"><div align="center">
<input type=submit value="确定">
</div></td>
</tr>
<tr>
<td height="22"><br>
备份数据库文件为<%=db%><br>
您可以用这个它来还原您的法规数据，以保证您的数据安全！<br>
注意：所有路径都是相对与程序空间根目录的相对路径！</td>
</tr>
<tr>
<td height="10"> </td>
</tr>
</table>
</form>
<%end if%><%
sub backupdata()
Dbpath=request.form("Dbpath")
Dbpath=server.mappath(Dbpath)
bkfolder=request.form("bkfolder")
bkdbname=request.form("bkdbname")
Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bkfolder) = True Then
fso.copyfile dbpath,bkfolder& "\"& bkdbname
else
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& "\"& bkdbname
end if
response.write "数据库还原成功，您的数据库路径为" &bkfolder& "\"& bkdbname
Else
response.write "找不到您所需要备份的文件。"
End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
MakeNewsDir = True
Set fso1 = nothing
End Function
%></td>
</tr>
</table>
</body>
