admin_db_backup.asp

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

<!--#include file=admin_login_check.asp-->
<br>
<form name="form1" method="post" action="?action=bf"> 
<table width="100%" border="0" align=center cellpadding="5" cellspacing="1" bgcolor="#336699" class="tableBorder"> 
<tr> 
<th width="100%" height=25 bgcolor="#FFFFFF" >   <B>备份数据</B>( 需要FSO支持，FSO相关帮助请看微软网站 ) </th> 
</tr> 
<tr> 
<td height=100 bgcolor="#FFFFFF" class="forumrow">    
<span class="STYLE1"> 
<% 
if request.QueryString("action")="bf" then 
Dbpath=request.form("Dbpath") 
backpath=request.form("backpath")

if dbpath="" then 
response.write "请输入您要您要备份的数据库<br/>" 
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 "数据库地址不存在，请检查data.asp中的const_AccessDatabase＝这一项是否正确！" 
end if 
end if
end if%> 
</span> <div align="center">     
<p>备份数据库路径： 
<input name=backpath type=text id="backpath" value="<%=const_backDatabase%>" size=30> 
<br> 
目标数据库路径： 
<input name=DBpath type=text id="DBpath" value="<%=const_AccessDatabase%>" size=30> 
<BR> 
  <BR> 
   
<input name="submit" type=submit value="备份数据"> 
</p> 
<p>
-------------------------------------------------------------------<br> 
注意：所有路径都是相对与程序空间根目录的相对路径 </td>  
</p> 
</div></td> 
</tr> 
</table> 
<p>  </p> 
</form>