adminupload.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="bbs.asp"-->
<%dim action,strt,i,fs,f,usedtable,allow,n,selfname,sp,thisdir,fdir,c2,thing,MyFileObject,ho
action=request.querystring("action")
select case action
case"FSO" strt="常用组件支持情况查询"
end select
sub send(str)
response.write"<div align=center><table class=td1 border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#cad6eb width=90% height=50><tr><td width=100% class=td2 colspan=2 background=pic/titlebg.gif height=26><p align=center>操作提示</p></td></tr><tr><td width=100% ><p style='margin:5px;line-height:150%'><font color= red>"&str&"</font></p></td></tr></table></div>"
end sub
%>

<%call admintop%>
<%
thisdir=server.mappath("./../upload")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fdir=fs.GetFolder(thisdir)
%>
<script>
function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}
</script>
<p align="center">upload目录，共有 <font color="#FF0000"><b><%=fdir.Files.count%></b></font> 个文件&nbsp; 
<font color="#FF0000">（使用本功能，需服务器支持！）</font></p>
<form method=post name=form action="?action=delfiles">
<div align="center">
  <center>
<table cellpadding=2 width=90% cellspacing=0 border=1 style="border-collapse: collapse; border-width: 0" bordercolor="#cad6eb">
<tr><td width=710 bgcolor="<%=c2%>" height="28" background="pic/titlebg.gif" colspan="5">　</td>
  </tr>
<tr><td width=20 bgcolor="<%=c2%>"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td>
  <td width=250 bgcolor="<%=c2%>">名称</td>
  <td  width=90 bgcolor="<%=c2%>">
大小</td><td width=150 bgcolor="<%=c2%>">类型</td>
  <td width=200 bgcolor="<%=c2%>">
修改时间</td></tr></table>
  </center>
</div>
<%
For each thing in fdir.Files
response.write "<center><table cellpadding=2 cellspacing=0 width='90%' bordercolor=#cad6eb border=1 style='border-collapse: collapse; border-width: 1'><tr><td width=20 align=center><input type='CheckBox' value='"&thing.name&"' name=files></td><td width=250><a target=_blank href=./../upload/"&thing.Name&">"&thing.Name&"</a></td><td width=90>" & cstr(thing.size) & "</td><td width=150>" & thing.type & "</td><td width=200>" & cstr(thing.datelastmodified) & "</td></tr></table>"
Next
%>
<p align="center">
<INPUT type=submit value=" 删 除 " name=Submit></p>
</form></center>
<%
action=request.querystring("action")
if action="delfiles" then
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
for each ho in request.form("files")
MyFileObject.DeleteFile""&Server.MapPath("./../upload/"&ho&"")&""
next
  Response.Write  "<script language='javascript'>" & VbCRlf
  Response.Write  "alert('删除成功！');" & VbCrlf
  Response.Write  "location.href='?menu=files';" & vbCrlf
  Response.Write  "</script>" & VbCRLF
  Response.End %>
<%=d2%><%
end if%>
<%call admindown%>