www.gusucode.com > 盐城分类信息网asp源码程序 > admin/deluptupian.asp

    <%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183  
'***********************************
%><!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
if request("delbak")="ok" then
dim objFSO,bak
bak=trim(request("bak"))
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath("..\uptupian\"&bak)) then
objFSO.DeleteFile(Server.MapPath("..\uptupian\"&bak))
end if
response.write"<script language=javascript>alert('删除成功!');history.go(-1)</script>"
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("..\uptupian\"))
Set uploadFiles=uploadFolder.Files
filenum=uploadfiles.count
%>
<style type="text/css">
<!--
body {
	background-color: #E7EEF5;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style><p align="center">
<p align="center">此页显示了<font color="#FF0000">uptupian</font>目录下用户上传的图片文件</p>
<div align="center">
  <center>
<table width="88%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">
<tr bgcolor="#B6EBC4"> 
<td height="25" width="126" bgcolor="#C5D5E4">
<p align="left"><b><font color="#666666">&nbsp;文件名称</font></b></td>
<td height="25" width="65" bgcolor="#C5D5E4">
<p align="center">
<font color="#666666"><b>类型</b></font></td>
<td align=center height="25" width="30" bgcolor="#C5D5E4"> 
<p><font color="#666666"><b>大小</b></font></td>
<td align=center height="25" width="187" bgcolor="#C5D5E4">
<p align="left"><b><font color="#666666">&nbsp;上传时间</font></b></td>
<td align=center height="25" width="38" bgcolor="#C5D5E4">
<p align="left"></td>
</tr>
<%
For Each Upname In uploadFiles
%>
<tr>
<td width="176" height="25" bgcolor="#DBE4EE"><img src=../uptupian/<%=upname.name%> width="106" height="55"><br>&nbsp;<%=upname.name%></td>
<td width="85" height="25" bgcolor="#DBE4EE"><%if right(upname.name,4)<>".mdb" then%><p align="center"><font color="#FF0000">图片格式</font><%else%><p align="center">
图片<%end if%></td>
<td width="73" height="25" align=center bgcolor="#DBE4EE">
<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 width="187" height="25" align=center bgcolor="#DBE4EE">
<p align="left">&nbsp;<%=upname.datecreated%></td>
<td width="31" height="25" align=center bgcolor="#DBE4EE"><a href="?bak=<%=upname.name%>&delbak=ok">删除</a></td>
</tr>
<%next%>
</table>
<td height="25" width="200">
<p align="center">
　</td>
</tr>
<tr> 
<td height="25" width="151" align="center">
</td>
</tr>
  </center>
</div>
<%
set uploadFolder=nothing
set uploadFiles=nothing
end if
%>
<%
'***********************************
'本站由吉林信息网团队制作
'***********************************
'--------版权说明------------------
'吉林信息网官方网站：http://www.jl-e.com
'QQ:304133183  
'***********************************
%>