list_buk.asp

个人网站系统,本人基于第三方源码进行更改!

<!--#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
%>