list_buk.asp

闲置物品免费交易的平台

<%
if session("admin")="" then
response.Write "<script LANGUAGE='javascript'>alert('网络超时或者您还没有登录请登录');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>2 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
on error resume next
Set uploadFolder=objFSO.GetFolder(Server.MapPath("..\databackup\"))
Set uploadFiles=uploadFolder.Files
filenum=uploadfiles.count
%>
<link href="../images/css.css" rel="stylesheet" type="text/css">
<p align="center"><font size="2">此页显示了<font color="#FF0000">databack/</font>目录下的所有数据库备份文件</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="110" bgcolor="#F5F5F5"> 
          <p align="left"><font size="2"><b><font color="#666666">&nbsp;文件名称</font></b></font>
        </td>
        <td height="25" width="87" bgcolor="#F5F5F5"> 
          <p align="center"> <font color="#666666" size="2"><b>类型</b></font>
        </td>
        <td align=center height="25" width="80" bgcolor="#F5F5F5"> 
          <p><font color="#666666" size="2"><b>大小</b></font>
        </td>
        <td align=center height="25" width="176" bgcolor="#F5F5F5"> 
          <p align="left"><font size="2"><b><font color="#666666">&nbsp;备份时间</font></b></font>
        </td>
        <td align=center height="25" width="33" bgcolor="#F5F5F5"> 
          <p align="left">
        </td>
      </tr>
      <%
For Each Upname In uploadFiles
%>
      <tr> 
        <td height="25" width="110"><font size="2">&nbsp;<%=upname.name%></font></td>
        <td height="25" width="87"> <font size="2">
          <%if right(upname.name,4)<>".mdb" then%>
          </font>
          <p align="center"><font color="#FF0000" size="2">未知</font><font size="2">
            <%else%>
            </font>
          <p align="center"><font size="2"> 数据库备份
            <%end if%>
            </font>
        </td>
        <td align=center height="25" width="80"> 
          <p><font size="2">
            <%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%>
            </font>
        </td>
        <td align=center height="25" width="176"> 
          <p align="left"><font size="2">&nbsp;<%=upname.datecreated%></font>
        </td>
        <td align=center height="25" width="33"><font size="2"><a href="del_buk.asp?bak=<%=upname.name%>">删除</a></font></td>
      </tr>
      <%next%>
    </table>
  </center>
</div>
<%
set uploadFolder=nothing
set uploadFiles=nothing
%>