本站使用的数据库备份代码

    核心代码是：

<%

... ...

Case "bfdata"
  call BfData()

... ...

%>

<form id="form1" name="form1" method="post" action="?Sub=bfdata"><input type="submit" name="button" id="button" value="备份!" onclick="JavaScript:return confirm('你的选择真明智!')"/></form>

<%

... ...
sub BfData()
dbname   =  "../Data/#data.mdb"

backname =  "../Data/back/#data.mdb"

'备份
set fsoObj=Server.createobject("Scripting.FileSystemObject")
fsoObj.CopyFile Server.Mappath(cstr(dbname)),Server.Mappath(cstr(backname)),True

Response.Write("<script language=javascript>alert('备份OK，点击返回!');this.top.location.href='index.asp';</script>")
 
'还原 
'fsoObj.CopyFile Server.Mappath(cstr(backname)),Server.Mappath(cstr(dbname)),True 
end sub

... ...
%>