📄 admin_backupdatabase.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_Checkmana.asp-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
if EnoughPopedom("back")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
set fso=Server.CreateObject("Scripting.FileSystemObject")
session("BackupDatabase")=""
if request.querystring("action")="DelALL" then Call DelDataBase
if fso.FolderExists(Server.Mappath("BackupDatabase")) then session("BackupDatabase")="<font color=red>你当前存在没有删除的备份数据!!为了防止他人窃取数据请删除</font><br><a href=admin_BackupDatabase.asp?action=DelALL>点击删除</a>"
Sub DelDataBase()
if fso.FolderExists(Server.Mappath("BackupDatabase")) then
fso.DeleteFolder(Server.Mappath("BackupDatabase"))
end if
End Sub
if request.form("action")="backup" then
DataBasePath=request.form("DataBasePath")
month1=month(now)
if Month1<10 then Month1="0"&Month1
day1=day(now)
if day1<10 then day1="0"&day1
hour1=hour(now)
if hour1<10 then hour1="0"&hour1
minute1=minute(now)
if minute1<10 then minute1="0"&minute1
second1=second(now)
if second1<10 then second1="0"&second1
if request.form("FileName")="" then
FileName=Year(now)&Month1&Day1&Hour1&Minute1&Second1
else
Filename=request.form("FileName")
end if
if fso.FileExists(Server.Mappath(""&DataBasePath&"")) then
if fso.FolderExists(Server.Mappath("BackupDatabase"))=false then fso.CreateFolder(Server.Mappath("BackupDatabase"))
fso.CopyFile(Server.Mappath(""&DataBasePath&"")),(Server.Mappath("BackupDatabase\Back"&FileName&".mdb"))
session("BackupDatabase")="请下载备份数据库，以便数据丢失之后可以恢复<br><a href=BackupDatabase/Back"&FileName&".mdb>下载</a><br>防止数据被窃取下载完之后请删除<br><a href=admin_BackupDatabase.asp?action=DelALL>删除</a>"
else
Call Warn("找不到数据库文件、请检查")
end if
end if
%>
<body>
<form name=form method=post action="")>
<p> </p>
<p> </p>
<table width="348" border="0" cellspacing="1" cellpadding="0" align="center">
<tr valign="middle">
<td height="16" colspan="7" > </td>
</tr>
<form method=post action="">
<tr valign="middle">
<td height="60" bgcolor="#FFFFFF" align="center" ><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#339900">
<tr bgcolor="#F7FFF4">
<td height="20" colspan="7"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b>数据备份</b></div></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#F7FFF4">
<td> <div align="right">当前数据库路径：</div></td>
<td height="60" colspan="6" align="center" > <div align="left">
<input type="text" name="DataBasePath" value=Database/#Foosun2004.asa>
</div></td>
</tr>
<tr align="center" valign="middle" bgcolor="#F7FFF4">
<td height="25" colspan="7" > <p> <%=session("BackupDatabase")%>
<input type="hidden" value="backup" name=action>
<input type="submit" value=" 立 刻 备 份 " class=Anbutc>
<a href="Admin_SQL.asp">压缩数据库</a></td>
</tr>
</table>
</td>
</tr>
</form>
</body>
</html>
<%Sub Warn(depict)%>
<script luanage=javascript>
history.back()
alert("<%=depict%>")
</script>
<%end Sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -