<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("HOSTAUID")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request("id")="" Then
	ef=True
	ec="请输入产品ID！"
ElseIf Instr(1, Request("id"), "'", 1)>0 then
	ef=True
	ec="非法产品ID！"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="产品ID应该是数字！"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsph = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&session("HOSTAUID")&"'"
			if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dsph.Open Sql,conn,1,1
if dsph.Eof then
	ef=True
	ec="不存在的虚拟主机ID！"
end if
end if

if not ef then
if dsph("canback")="n" then
	ef=True
	ec="很抱歉，您的虚拟主机不允许使用本功能！"
end if
end if

if not ef then
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1
if dsserver.Eof then
	ef=True
	ec="服务器不存在！"
end if
end if

if not ef then
if not dsserver("backupyes")="y" then
	ef=True
	ec="很抱歉，产品所在的服务器不支持此功能！"
end if
end if

if not ef then
URL=dsserver("site")
FreeHostsharekey=dsserver("FreeHostsharekey")

%>
<!--#include virtual="/inc-freehost-function/template-hostadm-top.asp"-->
　虚拟主机自助管理


<br>

<TABLE 
            width="100%" border=1 align=center cellPadding=0 cellSpacing=0 borderColorLight=#cccccc borderColorDark=#fbfbfb>
  <TBODY>
    <TR align="center">
      <TD height="35" colspan="2" vAlign=middle bgColor=#494949>&nbsp; <font color="#FFFFFF">数据还原：</font></TD>
    </TR>
    <TR align="left">
      <TD height="89" colspan="2" vAlign=middle bgColor=#FFFFFF><p>　1.由于可能存在文件锁定的情况，我们不承诺备份100%成功，若有非常重要的数据，请您自己进行备份。 <br>
        　2.数据还原功能将用以前的备份覆盖现有文件．但不会影响上次备份后空间中新增加的文件。 <br>
        　3.此功能将恢复所有的文件，若有个别数据库有最新的内容，请先将这些文件改名或者下载到本地备份。 <br>
　4.如果您站点内的文件较多，恢复需要较长的时间，请耐心等待。 <br>
      </p>
      </TD>
    </TR>
	  <%
	  tn1=Weekday(now)
	  tn2=-(7-dsserver("backupday")+tn1)+1
	  if tn2<-7 then  tn2=tn2+7
	  if tn2=-7 then
	  tn2=0
	  end if
	  nowtimeori=dateadd("d",tn2,now)
	  
	  for ib=0 to dsserver("backupsave")-1%>
  <form action="siteback2.asp" method="post" name="form1">
    <TR>
      <TD width="44%" height="35" align="left" vAlign=middle bgColor=#FFFFFF>
	  <%
	  nowtime=dateadd("d",Clng("-"&ib*7),nowtimeori)
	  nowtime=dateadd("d",-1,nowtime)
	  txm=year(nowtime)&"-"&month(nowtime)&"-"&(day(nowtime))
	  dir=dsserver("backupdir")
	  dir=replace(dir&"\"&txm&"\"&lcase(dsph("ftpname"))&".rar","\\","\")
	  %>
	  　　<%=txm%>凌晨的备份　
	  <%if instr(OPFileExists(URL,FreeHostsharekey,dir),"已存在")>1 then
	  canbackup=true
	  %>此备份文件可用<%else
	  canbackup=false
	  %>
	  <font color="#FF0000">备份文件不可用</font>
	  <%end if%></TD>
      <TD width="56%" align="center" vAlign=middle bgColor=#FFFFFF><%if canbackup then%><input name="Submit" type="submit" id="Submit" value="马上还原">
        <input name="d" type="hidden" value="<%=ib%>"><input name="id" type="hidden" value="<%=Request("id")%>"><%else%>不可还原。<%end if%></TD>
    </TR></form>
<%next%>
  </TBODY>
</TABLE>


<br>　<a href="selfhostmodify.asp?id=<%=Request("id")%>"><font color="#000000">[返回上一页]</font></a>
<!--#include virtual="/inc-freehost-function/template-hostadm-end.asp"-->
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>