📄 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"> 文件名称</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"> 备份时间</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"> <%=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"> <%=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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -