<!--#include file=cookies.asp-->
<!--#include file=cookies1.asp-->
<%
if request("delbak")="ok" then
dim objFSO,bak
bak=trim(request("bak"))
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath("..\datacnmai\buk\"&bak)) then
objFSO.DeleteFile(Server.MapPath("..\datacnmai\buk\"&bak))
end if
response.write"<SCRIPT language=JavaScript>alert('刪除備份數據庫成功！');</SCRIPT>"
response.write "<meta http-equiv=refresh content=""1;URL=list_buk.asp"">"
response.end
else
%>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set uploadFolder=objFSO.GetFolder(Server.MapPath("..\datacnmai\buk\"))
Set uploadFiles=uploadFolder.Files
filenum=uploadfiles.count
%>
<p align="center">
<img src="img/list_bo.gif"></p>
<p align="center">此頁顯示了<font color="#FF0000">datacnmai/buk/</font>目錄下的所有數據庫備份文件</p>
<div align="center">
  <center>
<table width="498" style="border-collapse: collapse" bordercolor="#CCCCCC" cellpadding="0" cellspacing="0" border="1">
<tr>
<td height="25" width="176" bgcolor="#FEEEBC">
<p align="left"><b><font color="#666666">&nbsp;文件名稱</font></b></td>
<td height="25" width="85" bgcolor="#FEEEBC">
<p align="center">
<font color="#666666"><b>類型</b></font></td>
<td align=center height="25" width="73" bgcolor="#FEEEBC"> 
<p><font color="#666666"><b>大小</b></font></td>
<td align=center height="25" width="127" bgcolor="#FEEEBC">
<p align="left"><b><font color="#666666">&nbsp;備份時間</font></b></td>
<td align=center height="25" width="31" bgcolor="#FEEEBC">
<p align="left"></td>
</tr>
<%
For Each Upname In uploadFiles
%>
<tr>
<td height="25" width="176">&nbsp;<%=upname.name%></td>
<td height="25" width="85"><%if right(upname.name,4)<>".mdb" then%><p align="center"><font color="#FF0000">未知</font><%else%><p align="center">
數據庫備份<%end if%></td>
<td align=center height="25" width="73">
<p><%if upname.size>1024000 then%><%=left(upname.size/(1024*1024),5)%> MB<%else%><%=left(upname.size/1024,5)%>
<font color="#FF0000">KB</font><%end if%></td>
<td align=center height="25" width="127">
<p align="left">&nbsp;<%=upname.datecreated%></td>
<td align=center height="25" width="31"><a href="list_buk.asp?bak=<%=upname.name%>&delbak=ok">刪除</a></td>
</tr>
<%next%>
</table>
  </center>
</div>
<%
set uploadFolder=nothing
set uploadFiles=nothing
end if
%>