<%
newname=Trim(Request.Form("newname"))
action=Trim(Request.Form("action"))
if newname<>"" and action="hy" then
oldaddrname=server.MapPath("../Data/qidongdb.mdb")
newaddrname=server.MapPath("Databackup/"&newname)
'原来数据库
Set fso=server.CreateObject("scripting.FileSystemObject")
on error resume next
fso.copyfile newaddrname,oldaddrname
Response.Write("
还原数据库成功 "&oldaddrname&"
")
a="ok"
set fso=nothing
end if
%>
<%if a<>"ok" then%>
刷新