admin_backupdata.asp

网站 QCNEWS后台管理程序,风格流行功能强大

<!--#include file="admin_head.asp"-->
<br><br>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
  <form action="" name="form1" method="post">
    <tr> 
      <td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>备 份 文 章 数 据</b> </td>
    </tr>
    <tr valign="middle"> 
      <td><br>
	   <%
	if request("action")="Backup" then
	call backupdata()
	else
%>
      &nbsp;&nbsp;&nbsp;<B>备份数据</B>( 需要FSO支持，FSO相关帮助请看微软网站 ) 
      <form method="post" action="admin_BackupData.asp">
        <font color="<%=TableContentColor%>"> <br>&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="tbutton">
        <br>
        -----------------------------------------------------------------------------------------<br>
        &nbsp;&nbsp;在上面填写本程序的数据库路径全名，本程序的默认数据库文件为article.mdb<br>
        &nbsp;&nbsp;您可以用这个功能来备份您的法规数据，以保证您的数据安全！<br>
        &nbsp;&nbsp;注意：所有路径都是相对与程序空间根目录的相对路径 </font> 
		<input type="hidden" name="action" value="Backup">
      </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
			response.write "<br><br><input type=button value=' 返 回 ' class=tbutton onclick=javascript:location.href=""admin_backupdata.asp"">"
		Else
			errmsg = "<li>找不到您所需要备份的文件。"
			call Qcdn.Err_List(errmsg,1)
			response.end
		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
%>
	  </td>
    </tr>
</table>
<!--#include file="admin_copy.asp"-->