<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("VPSAUID")="" 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_VPS where id='"&session("VPSAUID")&"'"
			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("maxbak")<1 then
	ef=True
	ec="很抱歉，您的云服务器不允许使用本功能！"
end if
end if

if not ef then
	Set dshost = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_VPSProductlist where VPStype='"&dsph ("VPStype")&"'"
		if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"
Response.End
end if
	dshost.Open Sql,conn,1,1
if dshost.Eof then
	ef=True
	ec="产品类型不存在！"
end if
end if	

if not ef then
	Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_ServerVPSlist 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 Len(dsserver("backupdir"))<2 then
	ef=True
	ec="很抱歉，产品所在的服务器不支持此功能！"
end if
end if

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

%>
<!--#include virtual="/inc-freehost-function/template-vpsadm-top.asp"-->
　云服务器自助管理


<br>
<br>

<TABLE 
            width="100%" border=1 align=center cellPadding=0 cellSpacing=0 borderColorLight=#cccccc borderColorDark=#fbfbfb>
  <TBODY>
    <TR align="center">
      <TD height="35" colspan="3" vAlign=middle bgColor=#494949>&nbsp; <font color="#FFFFFF">云服务器整体备份还原：</font></TD>
    </TR>
    <TR align="left">
      <TD height="89" colspan="3" vAlign=middle bgColor=#FFFFFF><p><br>
        　1.由于可能存在文件锁定的情况，我们不承诺备份100%成功，若有非常重要的数据，请您自己进行备份。 <br>
        <br>
        　2.云服务器还原功能将用以前备份的虚拟硬盘文件覆盖现有虚拟硬盘文件．因此的现有数据将掉失。 <br>
        <br>
　3.由于虚拟硬盘文件往往达到几十个G,因此还原需要半小时或更长的时间才能完成。 <br>
<br>
　4.由于大量的数据复制操作影响服务器的性能,因此,还原备份的限制在<%=dshost("canSNAST")%>-<%=dshost("canSNAEN")%>点之间才能使用。<br>
<br>
　5.本系统每周会对您的云服务器进行备份，您购买的产品允许保留<font color="#FF0000"> <%=dsph("Maxbak")%> </font>次备份。<br>
<br>
      </p>
      </TD>
    </TR>
<%for i=1 to dsph("Maxbak")%>
  <form action="backupauto2.asp" method="post" name="form1">	
    <TR>
      <TD width="74%" height="35" align="left" vAlign=middle bgColor=#FFFFFF>

	  <%
tobackdir=dsserver("backupdir")
timestd=dateadd("d",-((i-1)*7),dsph("lastbackuptime"))
	  If Right(dsph("vhdpath"),5)=".vhdx" then
		tobackdir=replace(tobackdir&"\"&dsph("vpsname")&"-"&year(timestd)&right("00"&month(timestd),2)&right("00"&day(timestd),2)&".vhdx","\\","\")
	  Else
		tobackdir=replace(tobackdir&"\"&dsph("vpsname")&"-"&year(timestd)&right("00"&month(timestd),2)&right("00"&day(timestd),2)&".vhd","\\","\")
	  End if

	  %>
    　　<%=timestd%> 的备份　
      <%'Response.write 
	 ' tobackdir="\\192.168.0.1\share\test.txt"
	  'Response.write OPFileExists(URL,FreeHostsharekey,tobackdir)
	  if instr(OPFileExists(URL,FreeHostsharekey,tobackdir),"已存在")>1 then
	  canbackup=true
	  %>
      此备份文件可用
      <%else
	  canbackup=false
	  %>
      <font color="#FF0000">备份文件不可用或不存在</font>
      <%
	  end If
      %></TD>
 
      <TD width="26%" align="center" vAlign=middle bgColor=#FFFFFF>
	  <%if canbackup then%><br>

          <input name="Submit" type="submit" id="Submit" value="马上还原全部硬盘数据"  onClick="if (confirm('您选择了还原全部硬盘数据，请您确认本次操作？')==false){return false;}"><br><br>
<br>
          <input name="Submit" type="submit" id="Submit" value="马上还原第一硬盘(C盘)数据"  onClick="if (confirm('您选择了还原第一硬盘数据到上一次备份状态，请您确认本次操作？')==false){return false;}">
          <br>
          <br>


          <input name="id" type="hidden" value="<%=Request("id")%>">
		  <input name="bakid" type="hidden" value="<%=i%>">
		  <%else%>	  &nbsp;
          <%end if%>
</TD>
    </TR>
</form>

<%next%>	
  <tr><td colspan="2"></TBODY>
</TABLE>


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