admin_restoredata.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="admin_head.asp"-->
<br><br>
<%
if request("action")="Restore" then
	Dbpath=request.form("Dbpath")
	backpath=request.form("backpath")
	if dbpath="" then
		errmsg="<li>请输入您要恢复成的数据库全名。"
		call Qcdn.Err_List(errmsg,1)
	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
		errmsg="<li>成功恢复数据！"
		call Qcdn.Err_List(errmsg,1)
	else
		errmsg="<li>备份目录下并无您的备份文件！"
		call Qcdn.Err_List(errmsg,1)
	end if
else
%>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
  <form action="" name="form1" method="post">
    <tr> 
      <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>恢 复 文 章 数 据</b> </td>
    </tr>
    <tr valign="middle"> 
	  <td><br>
	  &nbsp;&nbsp;<B>恢复数据</B>( 需要FSO支持，FSO相关帮助请看微软网站 )<br>
	  &nbsp;&nbsp;备份数据库路径(相对)：
              <input type=text size=30 name=DBpath value="DataBackup\article.mdb" class="smallInput">
              &nbsp;&nbsp;<BR>
  						&nbsp;&nbsp;目标数据库路径(相对)：
              <input type=text size=30 name=backpath value="<%=db%>" class="smallInput">
              <BR>&nbsp;&nbsp;填写您当前使用的数据库路径，如不想覆盖当前文件，可自行命名（注意路径是否正确），然后修改conn.asp文件，如果目标文件名和当前使用数据库名一致的话，不需修改conn.asp文件<BR>
						&nbsp;&nbsp;
              <input type=submit value="恢复数据" class="tbutton">
               <br>
  						-----------------------------------------------------------------------------------------<br>
              &nbsp;&nbsp;在上面填写本程序的数据库路径全名，本程序的默认备份数据库文件为DataBackup\article.mdb，请按照您的备份文件自行修改。<br>
  						&nbsp;&nbsp;您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
  						&nbsp;&nbsp;注意：所有路径都是相对与程序空间根目录的相对路径
	  </td>
	</tr>
	<input type="hidden" name="action" value="Restore">
	</form>
</table>
<%end if%>
<!--#include file="admin_copy.asp"-->