⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 jsfilemanage.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<%Admin="File"%>
<!--#include file="check.asp"-->

<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·网站内容管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
  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("..")&"\js\"&request.form("FileName")(x)&"") then
        MyFile.DeleteFile(Server.Mappath("..")&"\js\"&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("..")&"\js")
  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="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<link rel="stylesheet" href="admin.css" type="text/css">
<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>文件管理器——JS文件管理<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>
      <td class=forumHeaderBackgroundAlternate height=20 width="48%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>文件名/路径</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>上传时间</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="14%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>文件大小</td>
      <td class=forumHeaderBackgroundAlternate height=20 width="13%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>删除</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>
      <td class=forumrow height=20 width="61%" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><img border="0" src="images/js.gif"><a href=../js/<%=thing.name%> target=_blank><%=AllPath&"js/"&thing.name%></td>
      <td class=forumrow height=20 width="20%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=thing.DateLastModified%></td>
      <td class=forumrow height=20 width="9%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><%=thing.Size&"(字节)"%></td>
      <td class=forumrow height=20 width="10%" align=center onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';><input type="checkbox" name=FileName value=<%=thing.Name%>></td>
    </tr>
<%
  end if
  next
%>
  <tr>
     <td class=forumrow height=20 width="100%" colspan=5 align=right onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
     共有<font color=red><b><%=FileCount%></b></font>个文件;     占用<font color=red><b><%=AFileSize/1024%></b></font><font color=#0000ff><b>K</b></font>空间&nbsp;&nbsp;&nbsp;&nbsp;
     <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 class=forumHeaderBackgroundAlternate height=20 width="100%" colspan=5 onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
<%
  PageCount=int(FileCount/PageSize)+1
  for i=1 to PageCount
    response.write "<a href=jsfileManage.asp?Page="&i&"><b> "&i&" </b></a>"
  next
%>
     </td>
  </tr>
      </table>
    </td>
  </tr>
</table>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -