📄 admin_data3.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
if Session("Urule")<>"a" then
response.redirect "error.asp?id=admin"
end if
%>
<!--#include file="data.asp"-->
<!-- #include file="check.asp" -->
<title>恢复数据</title>
<link rel="stylesheet" type="text/css" href="oa1.css">
<BODY bgcolor="#DFEBFF" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<table border="0" cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="tableBorder">
<tr>
<th height=25 >
<B>恢复<span lang="zh-cn">红金羚</span>数据</B>( 需要FSO支持， )
</th>
</tr>
<form method="post" action="Admin_Data3.asp">
<tr>
<td height=100 class="forumrow">
备份数据库路径(相对)：<input type=text size=30 name=DBpath value="Databackup\redboy.mdb"> <BR>
目标数据库路径(相对)：<input type=text size=30 name=backpath value="<%=db%>"><BR>
<BR>
<input type=submit value="恢复数据"> <br>
-----------------------------------------<br>
在上面填写本程序的数据库路径全名，本程序的默认备份数据库文件为DataBackup\redboy.MDB，请按照您的备份文件自行修改。<br>
您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
注意：所有路径都是相对与程序空间根目录的相对路径</font>
</td>
</tr>
</form></table>
<%
dim dbpath,bkfolder,bkdbname,fso,fso1
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
if dbpath="" then
response.write "请输入您要恢复成的数据库全名"
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -