📄 admin_picmanageup.asp
字号:
<!--#include file = "include.asp"-->
<!--#include file = "admin_CheckMana.asp"-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("pic")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath=Domain&soFilePath
Set MyFile=Server.CreateObject("Scripting.FileSystemObject")
if request.form("result")="del" then
Num=request.form("FileName").count
for x=1 to Num
if MyFile.FileExists(Server.Mappath("./")&"\RoUpimages\"&request.form("FileName")(x)&"") then
MyFile.DeleteFile(Server.Mappath("./")&"\RoUpimages\"&request.form("FileName")(x)&"")
end if
next
end if
Page=request.querystring("page")
if Page<=1 or Page="" then Page=1
PageSize=15
Domain=Request.ServerVariables("SERVER_NAME")
soFilePath=Request.ServerVariables("PATH_INFO")
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
socount=len(soFilePath)
soFilePath=lcase(left(soFilePath,socount-1))
soFilePath=lcase(left(soFilePath,instrRev(soFilePath,"/")))
sowinpath="http://"&Domain&soFilePath&"RoUpimages/"
FileCount=0
Set FileFolder=MyFile.GetFolder(Server.MapPath("./")&"\RoUpimages")
for each TheFile in FileFolder.Files
FileCount=FileCount+1
AFileSize=TheFile.size+AFileSize
next
%>
<LINK href=css/css.css rel=stylesheet>
<body bgcolor="#FFFFFF">
<form method=post action="">
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center">
<tr bgcolor="#FFFFFF" valign="middle" align="center">
<td width="300%" height="2" colspan="3" > <table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#97C893">
<tr bgcolor="#F7FFF4">
<td width="34%" height=20 align=center>文件名</td>
<td width="35%" height=20 align=center>上传时间</td>
<td width="20%" height=20 align=center>文件大小</td>
<td width="11%" height=20 align=center>删除</td>
</tr>
<%
i=0
for each thing in FileFolder.Files
i=i+1
if CCount>=PageSize then
exit for
elseif i>PageSize*(Page-1) then
CCount=CCount+1
%>
<tr bgcolor="#F7FFF4">
<td width="34%" height=24 class="small1"> <div align="left">
<table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18%"><table width="30" height="30" border="0" cellpadding="0" cellspacing="1" bgcolor="#C9C9C9">
<tr>
<td bgcolor="#FFFFFF"><a href="RoUpimages/<%=thing.name%>" target="_blank"><img src="RoUpimages/<%=thing.name%>" width="30" height="30" border="0"></a></td>
</tr>
</table></td>
<td width="82%"><a href=Files/Upimages/<%=thing.name%> target=_blank>
<%=thing.name%></a></td>
</tr>
</table>
</div></td>
<td width="35%" height=24 align=center><%=thing.DateLastModified%></td>
<td width="20%" height=24 align=center><%=thing.Size&"(bt)"%></td>
<td width="11%" height=24 align=center> <input type="checkbox" name=FileName value=<%=thing.Name%>></td>
</tr>
<%
end if
next
%>
<tr bgcolor="#F7FFF4">
<td height=20 colspan=5 align=right> <div align="center">共有<font color=red><b><%=FileCount%></b></font>个文件;
占用<font color=red><b><%=AFileSize/1024%></b></font><font color=#FF0000><b>K</b></font>空间
<input type=hidden value=del Name=result>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)">
选中所有
<input type=submit value=删除 onclick="return Del()" class=Anbut1>
</div></td>
</tr>
<tr bgcolor="#F7FFF4">
<td height=20 colspan=5>
<%
PageCount=int(FileCount/PageSize)+1
for i=1 to PageCount
response.write "<a href=?Page="&i&"><b>第"&i&"页</b></a> "
next
%>
<!--#include file = name.asp-->
</td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -