www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/listManage.asp
<%Admin="File"%>
<!--#include file="check.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
Domain=Request.ServerVariables("SERVER_NAME")
gFilePath=Request.ServerVariables("PATH_INFO")
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
CountN=len(gFilePath)
gFilePath=lcase(left(gFilePath,CountN-1))
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
AllPath=Domain&gfilepath
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("..")&"\List\"&request.form("FileName")(x)&"") then
MyFile.DeleteFile(Server.Mappath("..")&"\List\"&request.form("FileName")(x)&"")
end if
next
end if
Page=request.querystring("page")
if Page<=1 or Page="" then Page=1
PageSize=25
Domain=Request.ServerVariables("SERVER_NAME")
gFilePath=Request.ServerVariables("PATH_INFO")
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
CountN=len(gFilePath)
gFilePath=lcase(left(gFilePath,CountN-1))
gFilePath=lcase(left(gFilePath,instrRev(gFilePath,"/")))
AllPath="http://"&Domain&gfilepath
FileCount=0
Set FileFolder=MyFile.GetFolder(Server.MapPath("..")&"\List")
for each TheFile in FileFolder.Files
FileCount=FileCount+1
AFileSize=TheFile.size+AFileSize
next
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>■管理中心 - 共享世纪新闻文章管理系统</title>
<meta copy="WWW.2KY.CN 共享世纪">
<link rel="stylesheet" href="admin.css" type="text/css">
<!--#include file="top.asp"-->
<body>
<form method=post action="">
<script language="javascript">
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;
}
}
function Isvalidity(val,name){
if (val.value!='' && (isNaN(val.value) || val.value<=0))
{alert(name+"应填有效数字！");
val.value="";
val.focus();}
}
</script>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr valign="middle" align="center">
<th height="2" colspan="3" background="images/BLogo.gif">
<b><img border="0" src="images/t_log.gif"><font color="#FF0000"> </font></b>
共享世纪<b>文件管理器——分类HTML页管理<font color="#FF0000"><br>
</font>切换：<font color="#FF0000"><a href="HtmlManage.asp"><font color="#FFFFFF">文章HTML页管理</font></a></font> <font color="#FF0000"> <a href="listManage.asp">
<font color="#FFFFFF">分类HTML页管理</font></a></font> <font color="#FF0000"> <a href="JsFileManage.asp">
<font color="#FFFFFF">JS文件管理</font></a> <a href="ShtmlManage.asp">
<font color="#FFFFFF">专题HTML页管理</font></a></font></b></th></tr>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr bgcolor="#FFFFFF">
<td height=20 width="48%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumHeaderBackgroundAlternate>文件名/路径</td>
<td height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumHeaderBackgroundAlternate>上传时间</td>
<td height=20 width="14%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumHeaderBackgroundAlternate>文件大小</td>
<td height=20 width="13%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumHeaderBackgroundAlternate>删除</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="#FFFFFF">
<td height=20 width="61%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class="forumrow"><img border="0" src="images/t_html.gif"><a href=../List/<%=thing.name%> target=_blank><%=AllPath&"List/"&thing.name%></td>
<td height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class="forumrow"><%=thing.DateLastModified%></td>
<td height=20 width="9%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class="forumrow"><%=thing.Size&"(字节)"%></td>
<td height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class="forumrow"><input type="checkbox" name=FileName value=<%=thing.Name%>></td>
</tr>
<%
end if
next
%>
<tr bgcolor="#FFFFFF">
<td height=20 width="100%" colspan=5 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class="forumrow">
共有<font color=red><b><%=FileCount%></b></font>个文件; 占用<font color=red><b><%=AFileSize/1024%></b></font><font color=#0000ff><b>K</b></font>空间
<input type=hidden value=del Name=result>
<input type="checkbox" name="chkall" onclick="CheckAll(this.form)" value="ON">选中所有
<input type=submit value=删除 onclick="return Del()">
</td>
</tr>
<tr>
<td height=20 width="100%" colspan=5 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor=''; class=forumHeaderBackgroundAlternate>
<%
PageCount=int(FileCount/PageSize)+1
for i=1 to PageCount
response.write "<a href=htmlManage.asp?Page="&i&"><b> "&i&" </b></a>"
next
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>