<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<!--#include file="body/incjs.asp"-->
<!--#include file="body/adminmenu.asp"-->
<!--#include file="body/foot.asp"-->
<script language="javascript">
  if(top.frames.length == 0)
  {
    document.location = "login.asp";
  }
  else
  {
    if(parent.ryan_bar)
    {
    }
    else
    {
      parent.location = "login.asp";
    }
  }
</script>
<%
function fsodbback()
	on error resume next
	dim obj_fso,backdbpath
	backdbpath=server.mappath(backdbdir & "/bak_"&right(server.mappath(dbpath),len(server.mappath(dbpath))-instrRev(server.mappath(dbpath),"\")))
	set obj_fso=server.createobject("scripting.filesystemobject")
	obj_fso.copyfile server.mappath(dbpath),backdbpath,true
	set obj_fso=nothing
	if err.number<>0 then
		fsodbback="<font color="&colors(12)&"><b>備份失敗，請確保服務器支持FSO，且 "&backdbdir&" 目錄可寫！</b></font>"
	else
		fsodbback="<font color="&colors(12)&"><b>備份數據庫成功，數據庫已成功備份到 "&backdbdir&" 目錄中！</b></font>"
	end if
end function
function compactdb()
	on error resume next
	dim obj_fso,obj_engine,temppath
	temppath = server.mappath(backdbdir & "/temp_compactdb.tmp")
	Set obj_fso = Server.CreateObject("Scripting.FileSystemObject")
	Set obj_engine = CreateObject("JRO.JetEngine")
	obj_engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(dbpath) ,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & temppath
	obj_fso.CopyFile temppath,server.mappath(dbpath),true
	obj_fso.DeleteFile temppath,true
	Set obj_engine = nothing
	if Err.Number <>0 then
		response.write "<font color="&colors(12)&"><b>壓縮失敗,可能你的服務器不支持FSO或JRO組件</b></font>"
	else
		response.write "<font color="&colors(12)&"><b>壓縮網站數據庫成功！</b></font>"
	end if
	set obj_fso=nothing
end function
%>
<!--#include file="body/admintop.asp"-->
<table width="<%=tablewidth%>" align="center" cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" style="border-top:0px;">
  <tr>
		<td width="205" valign="top" class="line"><%call adminmenu()%></td>
		<td valign="top" class="linee" width="565" style="text-align:center"><br><br><br>
			<table width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#09DD77" style="border-collapse: collapse">
                <tr >
					<td background="images/dh.gif"><font color="#000000">網站數據庫備份</font></td>
				</tr>
				<tr>
					<td><font color="#ff0000"><b>說明：</b></font><br>　　本操作將備份網站數據庫到網站所在目錄的 databackup 子目錄中，必要時可進行恢復。但仍推薦將數據庫備份到本地硬盤上。<br><br><font color="#ff0000"><b>注意：</b></font>本次操作需要服務器支持FSO才能順利完成！</td>
				</tr>
            <%if request.form("act")="backupdb" then%>
            <%=fsodbback()%> 
            <%else%>
				<tr >
					<td align="center"> 
            <form method="post" action="<%=selfname%>" onsubmit="if(confirm('你現在就要備份網站數據庫嗎？')){return true}else{return false}"><input type="hidden" name="act" value="backupdb"><input type="submit" value="備份數據庫" style="width:96px" class="button"></form></td>
				</tr><%end if%>
			</table><br><br><br>
			<table width="80%" border="1" cellspacing="0" cellpadding="4" bordercolor="#09DD77" style="border-collapse: collapse">
                 <tr>
					
          <td background="images/dh.gif"><font color="#000000">網站數據庫壓縮</font></td>
				</tr>
				<tr>
					<td><font color="#ff0000"><b>說明：</b></font><br>　　本操作將在線壓縮網站數據庫，且是一個相對較慢的過程。為保證安全，執行本操作前請一定先<b>備份</b>好你的數據庫。<font color="#ff0000">強烈建議在網站訪問量小的時段壓縮數據庫！</font><br><br><font color="#ff0000"><b>注意：</b></font><br>　　1。本操作需服務器支持FSO、JRO組件才能順利完成！<br>　　2。壓縮所需時間視數據庫大小而定，可能在0.1秒-10秒之間</td>
				</tr>
            <%if request.form("act")="compactdb" then%>
            <%=compactdb()%>
            <%else%>
			<tr>
            <td align="center">
            <form method="post" action="<%=selfname%>" onsubmit="if(confirm('建議在訪問量不大時壓縮數據庫。是否繼續？')){return true}else{return false}"><input type="hidden" name="act" value="compactdb"><input type="submit" value="壓縮數據庫" style="width:96px" class="button"></form></td>
				</tr><%end if%>
			</table><br><br><br>
		</td>
	</tr>
</table>
<%call endpage()%>