list_buk.asp

信息管理系统 管理页面:admin/index.asp 用户和密码都是admin

<!--#include file=cookies.asp-->
<link rel="stylesheet" type="text/css" href="../1.css">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set uploadFolder=objFSO.GetFolder(Server.MapPath("..\data\buk\"))
Set uploadFiles=uploadFolder.Files
filenum=uploadfiles.count
%>
<p align="center">此页显示了<font color="#FF0000">data/buk/</font>目录下的所有数据库备份文件</p>
<div align="center">
  <center>
<table width="498" style="border-collapse: collapse" bordercolor="#EFEFEF" cellpadding="0" cellspacing="0" border="1">
<tr>
<td height="25" width="176" bgcolor="#F5F5F5">
<p align="left"><b><font color="#666666">&nbsp;文件名称</font></b></td>
<td height="25" width="85" bgcolor="#F5F5F5">
<p align="center">
<font color="#666666"><b>类型</b></font></td>
<td align=center height="25" width="73" bgcolor="#F5F5F5"> 
<p><font color="#666666"><b>大小</b></font></td>
<td align=center height="25" width="127" bgcolor="#F5F5F5">
<p align="left"><b><font color="#666666">&nbsp;备份时间</font></b></td>
<td align=center height="25" width="31" bgcolor="#F5F5F5">
<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="del_buk.asp?bak=<%=upname.name%>">删除</a></td>
</tr>
<%next%>
</table>
  </center>
</div>
<%
set uploadFolder=nothing
set uploadFiles=nothing
%>