<%
if session("postboard_admin")<>true then
response.write("")
response.end()
end if
IF request.form("behave")<>"backup" THEN '查看动作
%>
留言备份
<%
ELSE
If request.form("bkname")<>empty and request.form("Willcreate")<>empty and request.form("mdbfile")<>empty Then '检查是否全填
Bfile=server.mappath(request.form("bkname"))'确定备份文件的物理文件名
Bfolder=mid(request.form("bkname"),1,instr(request.form("bkname"),"/")-1)'确定备份文件的路径
Bfolder=server.mappath(Bfolder)'确定备份文件的物理路径
originalfile=server.mappath(request.form("mdbfile"))'确定原数据库物理文件名
Set fs = CreateObject("Scripting.FileSystemObject")
'BFE=fs.FileExists(Bfile)
BFdE=fs.FolderExists(Bfolder)'查看备份目录是否存在
OFE=fs.FileExists(originalfile)'查看原数据库是否存在
if OFE<>true then '如果原数据库不存在
response.write("")
response.end()
end if
if BFdE<>true then '如果要备份的目录不存在
if request.form("Willcreate")="inform" then '如果是否创建单选框值为通知,即不创建,则
response.write("要存放备份的目录不存在")
response.write("")
response.end()
elseif request.form("Willcreate")="create" then '如果为创建
fs.CreateFolder(Bfolder) '则创建
end if
end if
fs.CopyFile originalfile,Bfile
response.write("")
set fs=nothing
Else
response.write("")
End If
END IF
%>