admin_db_ubackup.asp

非常好的源码 非常好的源码 非常好的源码

<!--#include file=admin_login_check.asp-->
<br>
<form name="form1" method="post" action="?action=hy"> 
<font color=red class="STYLE1"> 
<% 
if request.QueryString("action")="hy" then 
Dbpath=trim(request.form("Dbpath")) 
backpath=trim(request.form("backpath")) 
if dbpath="" then 
response.write "请输入备份的数据库全名" 
else 
Dbpath="../"&Dbpath
Dbpath=server.mappath(Dbpath) 
end if
if backpath="" then 
response.write "请输入您要恢复成的数据库全名" 
else 
backpath="../"&backpath
backpath=server.mappath(backpath) 
end if
if  backpath<>"" and dbpath<>"" then
Set Fso=server.createobject("scripting.filesystemobject") 
if fso.fileexists(dbpath) then 
fso.copyfile Dbpath,Backpath 
response.write "成功恢复数据！" 
else 
response.write "备份目录下并无您的备份文件！" 
end if 
end if
end if%> 
</font> <table width="100%" height="1" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#336699" class="tableBorder"> 
<tr> 
<th width="593" height=25 bgcolor="#FFFFFF" >   <B>恢复数据</B>( 需要FSO支持，FSO相关帮助请看微软网站 ) </th> 
</tr> 
<tr> 
<td height=100 bgcolor="#FFFFFF" class="forumrow">   备份数据库路径(相对)： 
<input type=text size=30 name=DBpath value="<%=const_backDatabase%>"> 
  <BR> 
  目标数据库路径(相对)： 
<input name=backpath type=text id="backpath" value="<%=const_AccessDatabase%>"  size=30> 
<BR> 
  填写您当前使用的数据库路径，如不想覆盖当前文件，可自行命名（注意路径是否正确），然后修改data.asp文件， 如果目标文件名和当前使用数据库名一致的话，不需修改data.asp文件<BR> 
   
<input name="submit" type=submit value="恢复数据"> 
<br> 
-------------------------------------------------------------------<br> 
注意：所有路径都是相对与程序空间根目录的相对路径 </td> 
</tr> 
</table> 
<p> </p> 
</form>