databak.asp

九酷网络个人主页系统破解版

<!--#include file="config.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="inc/user.asp"-->
<!--#include file="mytop.asp"-->
<link href="css/user.css" rel="stylesheet" type="text/css">
<script language=javascript>
function manage(url)
{
window.open('manage.asp','manage','fullscren=yes');
}
</script>
<%
if rshost("databak")=False then
WriteErrMsg("您没有权限使用此功能！")
end if
menu=request("menu")
UserName = Request.Cookies("9cool_username")
select case menu
case ""
data
case "bak"
if fso.FolderExists(bakfolder&username) then fso.DeleteFolder(bakfolder&username)
Fso.CopyFolder UserDir & UserName,bakfolder & UserName
If Err Then
WriteErrMsg("程序出错,请联系管理员!")
Else
sql="Update [user] set baktime='"&Now()&"' where username='"&Request.Cookies("9cool_username")&"'"
Conn.Execute sql
call mb("您的网站数据已经成功备份！","databak.asp",1)
End If
case "res"
if not fso.FolderExists(bakfolder&username) then
WriteErrMsg("没有找到备份文件，无法恢复您的网站文件!")
response.end
end if
fso.DeleteFolder(userdir&username)
Fso.CopyFolder bakfolder&UserName,UserDir&UserName
If Err Then
WriteErrMsg("程序出错,请联系管理员!")
Else
  call mb("您的网站数据已经成功恢复！","databak.asp",1)
End If
end select
sub data
%>
<table width="778"  border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form action="?" method="post" onSubmit="return confirm('确定执行此操作吗？');">
  <tr class="a1">
    <td height="25" align="center">数据备份/恢复</td>
  </tr>
  <tr class="a3">
    <td align="center">上次备份时间：<font color=gray><%if rsuser("baktime")<>"" then
	Response.Write rsuser("baktime")
	else
	Response.Write "还未备份！"
	end if%></font></td>
  </tr>
  <tr class="a3">
    <td align="center"><input type="radio" name="menu" value="bak">
      备份
      <input type="radio" name="menu" value="res">
      恢复</td>
  </tr>
  <tr class="a3">
    <td align="center"> 
      <input name="Submit" type="submit" id="Submit" value=" 确 定 "></td>
  </tr></form>
</table>
<%end sub%>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->