<!--#include file="head.asp" -->
      <%
	if request("action")="Backup" then
	call backupdata()
	else
%>
      &nbsp;&nbsp;<B>備份數據</B>( 需要FSO支持，FSO相關幫助請看微軟網站 ) 
      <form method="post" action="BackupData.asp?action=Backup">
        <font color="<%=TableContentColor%>"> &nbsp;&nbsp; 當前數據庫路徑(相對路徑)： 
        <input type=text size=15 name=DBpath value="<%=db%>" class="smallInput">
        <BR>
        &nbsp;&nbsp; 備份數據庫目錄(相對路徑)： 
        <input type=text size=15 name=bkfolder value=Databackup class="smallInput">
        &nbsp;如目錄不存在，程序將自動創建<BR>
        &nbsp;&nbsp; 備份數據庫名稱(填寫名稱)： 
        <input type=text size=15 name=bkDBname value=article.mdb class="smallInput">
        &nbsp;如備份目錄有該文件，將覆蓋，如沒有，將自動創建<BR>
        &nbsp;&nbsp; 
        <input type=submit value="確定備份" class="buttonface">
        <br>
        -----------------------------------------------------------------------------------------<br>
        &nbsp;&nbsp;在上面填寫本程序的數據庫路徑全名，本程序的默認數據庫文件為article.mdb<br>
        &nbsp;&nbsp;您可以用這個功能來備份您的法規數據，以保證您的數據安全！<br>
        &nbsp;&nbsp;注意：所有路徑都是相對與程序空間根目錄的相對路徑 </font> 
      </form>
<%end if%>
<%

sub backupdata()
		Dbpath=request.form("Dbpath")
		Dbpath=server.mappath(Dbpath)
		bkfolder=request.form("bkfolder")
		bkdbname=request.form("bkdbname")
		Set Fso=server.createobject("scripting.filesystemobject")
		if fso.fileexists(dbpath) then
			If CheckDir(bkfolder) = True Then
			fso.copyfile dbpath,bkfolder& "\"& bkdbname
			else
			MakeNewsDir bkfolder
			fso.copyfile dbpath,bkfolder& "\"& bkdbname
			end if
			response.write "備份數據庫成功，您備份的數據庫路徑為" &bkfolder& "\"& bkdbname
		Else
			response.write "找不到您所需要備份的文件。"
		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)
        MakeNewsDir = True
    Set fso1 = nothing
End Function
%>
<!--#include file="copy.asp" -->