www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\manager_backup.asp
<link href="admin.css" rel="stylesheet" type="text/css">
<%
if session("level")<>"1" then
Response.Write("你无权访问此页面！")
Response.End
end if
%>
<!--#INCLUDE FILE="conn.asp"-->
<body bgcolor="#CDD5DE">
<br>
<br>
<br>
<table width="85%" border="0" cellspacing="1" cellpadding="0" align="center" class="tablebody">
<tr>
<td><table width="100%" border="0" cellpadding="5" cellspacing="0">
<tr>
<th>数 据 库 备 份</a></span></th>
</tr>
</table></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="top">
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="50%"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<%
if request("action")="Backup" then
call backupdata()
else
%></td>
</tr>
<tr>
<form method="post" action="Manager_backup.asp?action=Backup">
<td><br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25"><strong>备份数据库文件</strong>[需要FSO权限]</td>
</tr>
<tr>
<td height="24"> 当前数据库路径</td>
</tr>
<tr>
<td height="24"><input type=text size=50 name=DBpath value="../mseason_date/#@$~mseason_date.mdb"></td>
</tr>
<tr>
<td height="24"> 备份数据库目录[如目录不存在，程序将自动创建]</td>
</tr>
<tr>
<td height="24"><input type=text size=50 name=bkfolder value=../Databf></td>
</tr>
<tr>
<td height="24">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
</tr>
<tr>
<td height="24">
<input type=text size=30 name=bkDBname value=bf$#@~data.mdb></td>
</tr>
<tr>
<td height="24"><div align="center">
<br>
<input name="submit" type=submit value="确 定"><br><br>
</div></td>
</tr>
<tr>
<td height="22">
您可以用这个功能来备份数据库至<font color=red>网站空间</font>！</td>
</tr>
<tr>
<td height="22">
注意：所有路径都是相对与程序空间根目录的相对路径</td>
</tr>
</table></td>
</form>
</tr>
</table>
<%end if%>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><%
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
%></td>
</tr>
</table>
<p> </p>
</td>
<td width="50%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25">
<div align="center"></div>
</td>
</tr>
<tr>
<td><br>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="25"><strong>备份数据库文件</strong>[不需要FSO权限]</td>
</tr>
<tr>
<td height="176"><div align="center">
<img src="images/log_3.gif" width="181" height="167"></div></td>
</tr>
<tr>
<td height="22"><div align="center">
<input type=button value="确 定" onClick='window.location.href=("../mseason_date/#@$~mseason_date.mdb");'><br><br>
</div></td>
</tr>
<tr>
<td height="22">
您可以用这个功能来备份数据库至<font color=red>本地电脑</font>！</td>
</tr>
<tr>
<td height="22">
注意：所有路径都是相对与程序空间根目录的相对路径</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<strong> </strong> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>