<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=true%>
<%
DbPath = SERVER.MapPath("../database/topboy-2002.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
%>
<%
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
fs.copyfile a, b, true
Response.write""
Response.write "数据库已经成功备份 >>>"
Response.write "*请按此返回..."
Response.end
end if
%>
备份的数据库存放于./database/backup.mdb;
"
Response.write "数据库已经成功备份 >>>"
Response.write "*请按此返回..."
Response.end
end if
%>