?? adminface.asp
字號:
<!--#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
%>
<link href=../inc/Comm.css rel=stylesheet>
<body topmargin="0" leftmargin="0">
<%call admintop%>
<%
thisdir=server.mappath("./../headpic/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">頭像目錄，共有 <font color="#FF0000"><b><%=fdir.Files.count%></b></font> 個文件
<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="6"> </td>
</tr>
<tr><td width=20 bgcolor="<%=c2%>"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td>
<td width=180 bgcolor="<%=c2%>">頭像</td>
<td width=70 bgcolor="<%=c2%>">
用戶ID</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=180><a target=_blank href=./headpic/upload/"&thing.Name&"><img border=0 height=50 width=50 src=./../headpic/upload/"&thing.Name&"></a></td><td width=70>"&thing.Name&"</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("./../headpic/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%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -