<%
if session("postboard_admin")<>true then
response.write("")
response.end()
end if
IF request.form("behave")<>"restore" THEN '查看动作
%>
<%
ELSE
If request.form("bkfile")<>empty and request.form("mdbfile")<>empty Then '检查是否全填
Bfile=server.mappath(request.form("bkfile"))'确定备份文件的物理文件名
Mfile=server.mappath(request.form("mdbfile"))'确定要覆盖的数据库物理文件名
Mfolder=mid(request.form("mdbfile"),1,instr(request.form("mdbfile"),"/")-1)'确定要覆盖的数据库所在目录
Mfolder=server.mappath(Mfolder)
Set fs = CreateObject("Scripting.FileSystemObject")
BFE=fs.FileExists(Bfile)
' MFE=fs.FileExists(Mfile)
MFOE=fs.FolderExists(Mfolder)'查看数据库目录是否存在
if BFE<>true then '如果备份文件不存在
response.write("")
response.end()
end if
if MFOE<>true then '如果数据库目录不存在
response.write("")
response.end()
end if
fs.CopyFile Bfile,Mfile
response.write("")
set fs=nothing
Else
response.write("")
End If
END IF
%>