www.gusucode.com > 盐城分类信息网asp源码程序 > admin/qqnew.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("..\qq\pic\new\"&bak)) then objFSO.DeleteFile(Server.MapPath("..\qq\pic\new\"&bak)) end if response.write"<script language=javascript>alert('删除qq表情成功!');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("..\qq\pic\new\")) 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">qq/pic/new/</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"> 文件名称</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"> 上传时间</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=../qq/pic/new/<%=upname.name%>><br> <%=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"> qq表情图<%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"> <%=upname.datecreated%></td> <td width="31" height="25" align=center bgcolor="#DBE4EE"><a href="?bak=<%=upname.name%>&delbak=ok">删除</a></td> </tr> <%next%> </table> </center> </div> <% set uploadFolder=nothing set uploadFiles=nothing end if %> <% '*********************************** '本站由吉林信息网团队制作 '*********************************** '--------版权说明------------------ '吉林信息网官方网站:http://www.jl-e.com 'QQ:304133183 '*********************************** %>