📄 admin_datarestore.asp

📁 俄罗斯方块源码俄罗斯方块源码俄罗斯方块源码
💻 ASP
字号:
<!-- #include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
if session("admin")="" then
  response.redirect "admin_login.asp"
end if

'14 数据库恢复
if not checkflag("14") then
  call mb("对不起，您没有数据库恢复操作的权限！","",0)
end if

set rs=nothing
conn.close
set conn=nothing
%>
<link href="admin.css" rel="stylesheet" type="text/css">

<body leftmargin="5" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#000000" vspace="0" hspace="0">
  <tr bgcolor="#EFEBEF"> 
    <td height="27"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="86%"><font color="#FF3000">.:: 您可以在这里进行[ACCESS数据库]相关操作</font></td>
          <td width="14%" height="20" align="center"><a href="javascript:this.location.reload()"><img src="images/refresh.gif" alt="刷新" width="40" height="12" border="0"></a></td>
        </tr>
      </table></td>
  </tr>
  <tr > 
    <td height="1" bgcolor="#000000"></td>
  </tr>
</table>
        <%
if request("action")="Restore" then
	dim backpath,fso
	Dbpath=request.form("Dbpath")
	backpath=request.form("backpath")
	if dbpath="" then
	response.write "请输入您要恢复成的数据库全名"	
	else
	Dbpath=server.mappath(Dbpath)
	end if
	backpath=server.mappath(backpath)
	'Response.write Backpath
	Set Fso=server.createobject("scripting.filesystemobject")
	if fso.fileexists(dbpath) then  					
		fso.copyfile Dbpath,Backpath
		response.write "成功恢复数据！"
	else
		response.write "备份目录下并无您的备份文件！"	
	end if
else
%>
<form method="post" action="admin_DataRestore.asp?action=Restore">
	
  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" Class="TableLine" >
    <tr> 
      <td height="25" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF" ><font color="#000000">数据库在线压缩</font></td>
    </tr>
    <tr> 
      <td width="34%" height="22" align="center" valign="middle" bgcolor="#FFFFFF">备份数据库路径(相对)：</td>
      <td width="66%" height="22" valign="middle" bgcolor="#FFFFFF">
<input type=text size=30 name=DBpath value="DataBackup\****.asa">
        填写备份数据库文件名替换“****.asa”，可自行命名（注意路径不能改变）</td>
    </tr>
    <tr> 
      <td height="22" align="center" valign="middle" bgcolor="#FFFFFF"> <BR> <BR>
        目标数据库路径(相对)： <BR> <BR> &nbsp;&nbsp;</td>
      <td height="22" valign="middle" bgcolor="#FFFFFF"> 
        <input type=text size=30 name=backpath value="dragon\*****.dbf">
        填写您当前使用的数据库路径，如不想覆盖当前文件，可自行命名（注意路径是否正确）</td>
    </tr>
    <tr> 
      <td height="30" colspan="2" align="center" bgcolor="#FFFFFF"> <input type=submit value="恢复数据"> 
      </td>
    </tr>
  </table>  
 </form>       
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -