--------------------------------------------------------------------------------------------------------------
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top"> <br> <strong><br>
</strong> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
<tr>
<td class="back_southidc" height="25"> <div align="center"><strong>备份数据库</strong></div>
<%
if request("action")="Backup" then
call backupdata()
else
%></td>
</tr>
<tr class="tr_southidc">
<form method="post" action="Admin_DataBackup.asp?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 disabled="disabled" type=text size=50 name=DBpath value="<%=db%>"></td>
</tr>
<tr>
<td height="22"><input type="hidden" size=50 name=bkfolder value=Databackup ></td>
</tr>
<tr>
<td height="22">备份数据库名称[如备份目录有该文件,将覆盖,如没有,将自动创建]</td>
</tr>
<tr>
<td height="22"><input type=text size=30 name=bkDBname value="<%=date()%>"></td>
</tr>
<tr>
<td height="22"><div align="center">
<input type=submit value="确定">
</div></td>
</tr>
<tr>
<td height="22"><br> <br>
本程序的默认数据库文件为<%=db%><br>
您可以用这个功能来备份您的法规数据,以保证您的数据安全!<br>
注意:所有路径都是相对与程序空间根目录的相对路径</td>
</tr>
<tr>
<td height="22"> </td>
</tr>
</table></td>
</form>
</tr>
</table>
<%end if%>
<%
sub backupdata()
Dbpath=db
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 "<center>备份数据库成功,备份的数据库为 " & bkfolder & "\" & bkdbname & "</center>"
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
%></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
----------------------------------------------------------------------------------------------------------------