admin_copyfile.asp

文章管理系统,生成静态网页 .

<!--#include file=setup.asp-->
<!--#include file=head.asp-->
<!--#include file=admin_cookie.asp-->
<!--#include file=conn.asp-->
<%
self=request.servervariables("url")
%>

<%
function ok(a)
%><br>
<table width=90% align=center bgcolor=black cellpadding=3 cellspacing=1><tr><td bgcolor=white valign=middle align=center height=120>
<%=a%>
</table>
<%
response.end
end function
%>
<%
function ok1(a)
%><br>
<table width=90% align=center bgcolor=black cellpadding=3 cellspacing=1><tr><td bgcolor=white valign=middle align=center height=120><meta http-equiv="refresh" content="2 url=<%=self%>">
<%=a%>
</table>
<%
response.end
end function
%>
<%
if request("action")="delall" then
set conn=server.createobject("adodb.connection")
conn.open connstr
if conn.execute("select * from bf").eof then ok1("备份数据库为空")
conn.execute("delete * from bf")
conn.close
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath("bak")) then
fso.deletefolder(server.mappath("bak"))
fso.createfolder(server.mappath("bak"))
set fso=nothing
end if
ok1("删除所有备份成功，请重新备份")
end if
%>
<%
if request("bfsj")<>"" then

	if request.querystring("bf")="" then ok1("你的备份不能为空")
	if request.cookies("d")="" then ok1("未知错误，可能是由于你的浏览去不支持cookie造成的")
	
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
MyFileObject.CopyFile ""&Server.MapPath(Request("yl"))&"",""&Server.MapPath(Request("bf"))&""
set myfileobject=nothing

set conn=server.createobject("adodb.connection")
conn.open connstr
set rs=server.createobject("adodb.recordset")
rs.open "select * from bf",conn,1,3
rs.addnew
rs("date")=request.cookies("d")
rs("addr")=request("bf")
rs.update
conn.close
%>
<table width=90% align=center cellpadding=3 cellspacing=1 bgcolor=#000000>
<tr><td bgcolor=#FFFFFF height=120 align=center valign=middle>数据备份成功,返回上一页<meta http-equiv="refresh" content="2 url=<%=self%>">
</table>
<%
response.end
end if
%>

<%
if request("hfsj")<>"" then
 if request("addr")="" then ok1("未知错误")
set fso=server.createobject("scripting.filesystemobject")
fso.copyfile server.mappath(request("addr")),server.mappath(db)
set fso=nothing
ok1("数据恢复成功!")
response.end
end if
%>

<%
if request("action")="hf" then
set conn=server.createobject("adodb.connection")
conn.open connstr
if conn.execute("select * from bf").eof then ok1("没有备份的资料,请备份")
%>
<form action=<%=self%>>
<table width=90% align=center cellpadding=3 cellspacing=1 bgcolor=#000000>
<tr><td bgcolor=#FFFFFF colspan=2 align=center>数据恢复
<tr><td bgcolor=#FFFFFF width=30%>数据路径/时间:<td bgcolor=#FFFFFF>
<select name=addr>
<%
set conn=server.createobject("adodb.connection")
conn.open connstr
set rs=conn.execute("select * from bf order by date desc")
do while not rs.eof
response.write "<option value="&rs("addr")&">"&rs("date")&"</option>"
rs.movenext
loop
%>
<tr><td bgcolor=#FFFFFF>复制为:<td bgcolor=#FFFFFF><input class="inpute" name=yl value=<%=db%>>
<tr><td bgcolor=#FFFFFF colspan=2  align=center>
<input class="input1" type=submit value="恢复数据" name="hfsj">
</table>

<%
response.end
end if
%>
<%
if request("action")="copy" then 
response.cookies("d")=now()
%><br>
<table width=90% align=center bgcolor=black cellpadding=3 cellspacing=1><tr><td bgcolor=white valign=middle align=center colspan=2>备份数据
<tr>
<form action=<%=self%>>
<td bgcolor=white>
数据库路径:<td bgcolor=white><input class="inpute" name=yl value=<%=db%>>
<tr><td bgcolor=white>要备份为:<td bgcolor=white><input class="inpute" name=bf value=bak/<%=server.urlencode(now)%>.bak>
<tr><td bgcolor=white align=center colspan=2><input name=bfsj class="input1" type=submit value="备份">
</table>


<%
response.end
end if
%>
<br><table cellpadding=3 cellspacing=1 align=center width=90% bgcolor=#000000>
<tr><td bgcolor=#FFFFFF height=100 align=center valign=middle>
<a class=SoftMeun href=<%=self%>?action=hf>数据恢复</a><br><a class=SoftMeun href=<%=self%>?action=copy>备份数据</a><br><a class=SoftMeun          href=<%=self%>?action=delall onclick="if(confirm('是否要删除全部吗？？/用于最新安装'))location.href=this.href;else return false">删除备份</a>
</table>