<%@language=vbscript codepage=936 %>
<%path="../basedata"%>
<!--#include file="../inc/function.asp"-->
<%call Loginpower%>
<%call legalpower%>
<!--#include file="../conn/conn_data.asp"-->

<!-- #include file="../Inc/Head.asp" -->
<br/><br/><br/><br/>
<div style="text-align:center;">
<table width="560" align="center" border="1" bordercolor="#A5B6D6" cellpadding="0" cellspacing="2" class="center">
        <tr>
          <td class="southidc" height="25"> <div align="center"><strong>备份数据库</strong></div>
            <%
if request.querystring("action")="Backup" then
call backupdata
else
%></td>
        </tr>
        <tr class="tr_southidc">
          <form method="post" action="?action=Backup">
            <td><br>
              <table width="91%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr>
                  <td height="25"><strong>备份数据库文件</strong>[需要FSO权限]</td>
                </tr>
                <tr>
                  <td height="22"> 当前数据库路径</td>
                </tr>
                <tr>
                  <td height="22"><input type="text" size="50" name="DBpath" value="data/data.mdb"></td>
                </tr>
                <tr>
                  <td height="22">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
                </tr>
                <tr>
                  <td height="22"><input type="text" size="30" name="bfDBname" value="<%=date()%>"></td>
                </tr>
                <tr>
                  <td height="22"><div align="center">
                      <input type="submit" value="确定">
                    </div></td>
                </tr>
                <tr>
                  <td height="22"><br> <br>
                    本程序的默认数据库文件为data/data.mdb<br>
                    您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
                    注意：所有路径都是相对与程序空间根目录的相对路径</td>
                </tr>
                <tr>
                  <td height="22">&nbsp;</td>
                </tr>
              </table></td>
          </form>
        </tr>
      </table></div>
      <%end if%>
      <%
sub backupdata()
Dbpath=server.mappath(db_data)
bffolder="backupdata"
strdate=request.form("bfdbname")
bfdbname=date()

Set Fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
If CheckDir(bffolder) = True Then
fso.copyfile dbpath,bffolder &"\"& bfdbname&".备份数据库"
else
MakeNewsDir(bffolder)
fso.copyfile dbpath,bffolder& "\"& bfdbname&".备份数据库"
end if
response.write errorback("备份数据库成功，备份的数据库日期为  "&strdate)
Else
response.write errorback("找不到您所需要备份的文件。" )
End if
end sub
'------------------检查某一目录是否存在-------------------
Function CheckDir(FolderPath)
folderpath=Server.MapPath("../../")&"\"&folderpath
Set fso1 = CreateObject("Scripting.FileSystemObject")
If fso1.FolderExists(FolderPath) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso1 = nothing
End Function
'-------------根据指定名称生成目录---------
Function MakeNewsDir(foldername)
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder(foldername)
Set fso1 = nothing
End Function
%>
<!-- #include file="../Inc/Foot.asp" -->