<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=true%>
<%
result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1)
if result = 0 or result = null then
response.redirect "manager-login.asp"
end if
if session("sid") <> "top" then
response.redirect "manager-login.asp"
end if
a = server.mappath(".database\topboy-2002.mdb")
b = server.mappath(".database\backup.mdb")
set fs = createobject("scripting.filesystemobject")
if request("hf") = "y" then
if fs.fileexists(b) = true then
fs.copyfile b, a, true
Response.write""
Response.write "数据库已经成功恢复 >>>"
Response.write "*请按此返回..."
Response.end
else
Response.write""
Response.write "备份数据库不存在或已经被删除，操作无法进行 >>>"
Response.write "*请按此返回..."
Response.end
end if
end if
%>
执行此操作程序覆盖现有的数据库，而将上次备份的数据恢复出来，从上次备份后新录入的数据可能会因此遗失，请谨慎使用！
"
Response.write "数据库已经成功恢复 >>>"
Response.write "*请按此返回..."
Response.end
else
Response.write"