admin_backup.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：admin_backup.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：数据库文件的备份
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then	
	errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
	response.End
elseif cur_adminsuper<>1 then
	errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
	response.End
end if

dim bkfolder,bkdbname,fso,folderpath,fso1,f
call main()
sub main()
if request("action")="Backup" then
	call backupdata()
else
%>
<table cellspacing="1" cellpadding="4" align="center" class="tableborder" align="center">
	<tr class="tablebody">
	<td class="td_title" align="center">备 份 数 据 库 ！！！</td>
	</tr>
	<tr class="tablebody">
	<td style="line-height:150%"><font color="#FF0000">注意：</font><br>
	1、备份数据需要FSO组件支持，FSO组件的相关帮助！所有路径都是相对与程序空间根目录的相对路径！此功能谨慎使用,可能在有些空间备份后,在本机上不能用ACCESS打开。<br>
	2、如果备份目录不存在，程序将自动创建！<br>
	3、如果备份目录有该文件，将覆盖，如果没有，程序将自动创建！<br>
	4、数据库备份操作适合于此时不便于使用FTP操作的情况下的在线备份，如果有条件，尽量利用FTP备份到本地。<br>
	5、在进行数据库压缩之前，请先作备份处理。<br>
	6、在进入此操作前，请确定网站现处于<font color="blue">维护状态</font>！
	<br>
	<form method="post" name="backupdb" action="admin_backup.asp?action=Backup" onsubmit="return checkform()">
	<input type="hidden" name="DBpath" value="<%=db%>"> 
	<%
	qqq=split(db,"/")
	backupdir=qqq(0)&"/"&qqq(1)
	%>
	<input type="hidden" size="24" name="bkfolder" value="<%=backupdir%>/Backup<%=year(date)%>-<%=month(date)%>#data">
	<br>
	<p align="center"><input type="submit" name="submit" value="开始备份"></p><br></td>
	</tr>
	<tr class="tablebody">
	<td>您可以用这个功能来备份您的数据库，以保证数据的安全！</td>
	</tr>
	</form>
</table>
<script>
function checkform()
{ 
document.backupdb.submit.disabled=true;
document.backupdb.submit.value="已提交";
return true;
}
var b=2;
document.backupdb.submit.disabled=true;
document.backupdb.submit.value="请确定网站目前处理维护状态";
for(i=1;i<=b;i++)
{window.setTimeout("update("+i+")",i*1000);}
function update(c){
if(c==b)
{
document.backupdb.submit.disabled=false;
document.backupdb.submit.value="开始备份"
}
else{
a=b-c;
document.backupdb.submit.value="请确定网站目前处理维护状态";}
}
</script>
<%
end if
end sub
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 "<script>"
Response.Write"alert('数据库备份（原目录下）完成，请进行其他操作！\n建议使用 FTP 工具将数据库备份，以保证数据安全');"
Response.Write "</script>"
Response.Write"<script>history.go(-1)</script>"
else
Response.Write "<script>"
Response.Write"alert('找不到您所需要备份的文件！');"
Response.Write "</script>"
Response.Write"<script>history.go(-1)</script>"
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="wapls_admin_bottom.asp"-->
</body>
</html>