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

📄 view.asp

📁 TSYS网站管理系统 TSYS网站管理系统 TSYS网站管理系统
💻 ASP
字号:
🔍 
<%Option Explicit%>
<!--#include file="../Include/Config.asp" -->
<!--#include file="FunLib.asp" -->
<!--#include file="../Include/Tkl_SYSProedomClass.asp" -->
<%
Dim SysAdmin
Set SysAdmin=New SYSProedom_Class
If Not SysAdmin.Logined Then
    Response.Redirect("../Login.asp")
End If
%>
<%
Dim tempCurrentPath,CurrentPath,Cookie_tempCurrentPath,DirCmd,myPathRoot
    tempCurrentPath=FilterPath(Trim(Request("CurrentPath")))
    DirCmd=Request("DirCmd")
    Cookie_tempCurrentPath=Request.Cookies("TklSys")("FileSys_tempCurrentPath")
    myPathRoot=Def_FileSystem_DirectoryRoot&SysAdmin.AdminFileSysRoot

    Select Case DirCmd
        Case "/"
            tempCurrentPath = ""
        Case "../"
            tempCurrentPath = GetParent(tempCurrentPath)
        Case Else :
            If tempCurrentPath="" And Cookie_tempCurrentPath<>"" Then
                tempCurrentPath = Cookie_tempCurrentPath
            End If
    End Select
    CurrentPath = myPathRoot & tempCurrentPath

    Response.Cookies("TklSys")("FileSys_tempCurrentPath") = tempCurrentPath

Dim Fso
Set Fso = Server.CreateObject(Def_FsoObjectStr)
Dim Fol,Fols    'Folder,Folders
Dim Fle,Fles    'File,Files
If Fso.FolderExists(Server.MapPath(CurrentPath)) Then
    '获得虚拟文件系统主目录Def_FileSystem_DirectoryRoot
    Set Fol=Fso.GetFolder(Server.MapPath(CurrentPath))
Else
    Response.Cookies("TklSys")("FileSys_tempCurrentPath") = ""
    Response.Write "<b>"&CurrentPath&"</b>目录不存在。"
    Response.End
End If

Select Case Request("Work")
    Case "DelItem"
        DelItem()
        Response.Redirect("?CurrentPath=" & tempCurrentPath)
    Case "MoveItem"
        MoveItem()
        Response.Redirect("?CurrentPath=" & tempCurrentPath)
    Case "CreateFolder"
        CreateFolder()
        Response.Redirect("?CurrentPath=" & tempCurrentPath)
    Case Else
End Select

Dim ItemCount
ItemCount=0
%>
<html>
<head>
<title>Tsys虚拟文件系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Style.css" rel="stylesheet" type="text/css">
</head>

<body>
<a name="Top"></a> 
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr> 
    <td width="15%"> <img src="images/m_Home.gif" width="20" height="20" style="cursor:hand" onClick="window.location='?CurrentPath=/'" title="回到主目录"><img src="images/m_Front.gif" width="20" height="20" style="cursor:hand" onClick="history.back()" title="后退"><img src="images/m_Back.gif" width="20" height="20" style="cursor:hand" onClick="history.forward()" title="前进"><img src="images/m_STOP.gif" width="20" height="20" style="cursor:hand" onClick="window.stop" Title="停止"><img src="images/m_Ref.gif" width="20" height="20" style="cursor:hand" onClick="location.reload()" title="刷新"><img src="images/m_MakeFolder.gif" width="20" height="20" style="cursor:hand" onClick="CreateFolder()" title="创建目录"><img src="images/m_NewFile.gif" width="20" height="20"  style="cursor:hand" onClick="UploadFile()" title="上传文件"></td>
    <td>
      <input name="Path" type="text" class="Input" id="Path" value="<%=Replace(CurrentPath,Def_FileSystem_DirectoryRoot,"主目录")%>" size="80"  readonly="true" style="width:100%">
    </td>
  </tr>
</table>
<form name="form1" method="post" action="">
  <table border="0" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC" style="table-layout:fixed; word-break :break-all;width:100%">
    <tr bgcolor="#336699"> 
      <td width="4%" align="center">&nbsp;</td>
      <td width="60%"><font color="#FFFFFF">&nbsp;&nbsp;标题</font></td>
      <td width="14%" align="center"><font color="#FFFFFF">&nbsp;&nbsp;大小</font></td>
      <td width="13%" align="center" title="Created Time"><font color="#FFFFFF"> 
        创建时间</font></td>
      <td width="9%" align="center"><font color="#FFFFFF">操作</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center"><img src="images/Folder_Root.gif" width="16" height="16" Title="文件夹"></td>
      <td><a <%If tempCurrentPath<>"" Then%>href="?DirCmd=/" <%Else%>href="#" disabled="true"<%End If%>>回到主目录</a></td>
      <td align="center"><font color="#999999">None</font></td>
      <td align="center"><font color="#999999">None</font></td>
      <td align="center"><font color="#999999">None</font></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="center"><img src="images/Folder_Parent.gif" width="16" height="16" Title="文件夹"></td>
      <td><a <%If tempCurrentPath<>"" Then%>href="?DirCmd=../&CurrentPath=<%=tempCurrentPath%>" <%Else%>href="#" disabled="true"<%End If%>>回到父目录</a></td>
      <td align="center"><font color="#999999">None</font></td>
      <td align="center"><font color="#999999">None</font></td>
      <td align="center"><font color="#999999">None</font></td>
    </tr>
    <%
    Call ShowFolderList()
    Sub ShowFolderList()
        Dim Item
        Set Fols=Fol.SubFolders
        For Each Item In Fols 
            ItemCount=ItemCount+1
%>
    <tr bgcolor="#FFFFFF"> 
      <td align="center"><img src="images/Folder.gif" width="16" height="16" Title="文件夹"></td>
      <td><a href="?CurrentPath=<%=tempCurrentPath&"/"&Item.Name%>"><%=Item.Name%></a></td>
      <td align="center"><%=FormatNumber(Item.Size/1024,2)&" KB"%></td>
      <td align="center"><span Title="<%=Item.DateCreated%>"><%=FormatDateTime(Item.DateCreated,2)%></span></td>
      <td align="center"> 
        <input name="Item" type="checkbox" id="Item" value="<%=Item.Name & "1"%>">
      </td>
    </tr>
    <%
        Next
    End Sub
%>
    <%
    Call ShowFileList()
    Sub ShowFileList()
        Dim Item
        Set Fles=Fol.Files
        For Each Item In Fles 
            ItemCount=ItemCount+1
%>
    <tr bgcolor="#FFFFFF"> 
      <td align="center"><img src="images/<%=FileIco(Item.Name)%>" width="16" height="16"></td>
      <td bgcolor="#FFFFFF"><a href="<%=Def_FileSystem_DirectoryRoot&tempCurrentPath&"/"&Item.Name%>" target="_balnk" Title="<%=Item.Type%>" Id="File<%=ItemCount%>"><%=Item.Name%></a> 
        [<a href="#" onclick="prompt('[<%=Item.Name%>]文件的URL',File<%=ItemCount%>.href)"><font color="#0000FF">取得URL</font></a>]</td>
      <td align="center"><%=FormatNumber(Item.Size/1024,2)&" KB"%></td>
      <td align="center"><span Title="<%=Item.DateCreated%>"><%=FormatDateTime(Item.DateCreated,2)%></span></td>
      <td align="center"> 
        <input name="Item" type="checkbox" id="Item" value="<%=Item.Name & "0"%>">
      </td>
    </tr>
    <%
        Next
    End Sub
%>
    <tr align="right" bgcolor="#f6f6f6"> 
      <td colspan="5"> Total:<%=ItemCount%>&nbsp;|&nbsp; <a href="#Top">Top</a></td>
    </tr>
  </table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
    <tr>
      <td align="right">
        <input type="submit" name="Submit" value="Submit" style="display:none">
        <input name="Work" type="hidden" id="Work">
        <input name="Parameter" type="hidden" id="Parameter">
        <input name="CurrentPath" type="hidden" id="CurrentPath" value="<%=tempCurrentPath%>">
        <img src="images/DelFile.gif" width="36" height="37" onClick="DelItem()" title="删除所选项目" style="cursor:hand"><img src="images/MoveFile.gif" width="36" height="37" onClick="MoveItem()" title="移动所选项目" style="cursor:hand"> 
      </td>
    </tr>
  </table>
</form>
<script language="JavaScript" type="text/JavaScript">
function UploadFile()
{
    var Result=showModalDialog("UpFile.asp?Path=<%=tempCurrentPath%>","","dialogWidth:500px;dialogHeight:230px;center:yes;scroll:no;");
    if(Result){
        window.location.reload();
    }
}
function DelItem()
{
    if(confirm("请确定要将所选中的文件/文件夹删除！\n(删除后将无法还原)"))
    {    
        form1.Work.value='DelItem';
        form1.Submit.click()
    }
}
function MoveItem()
{
    var Result=prompt("请输入目标目录位置(详见帮助)：","")
    if(Result)
    {    
        form1.Work.value="MoveItem"
        form1.Parameter.value=Result
        form1.Submit.click()
    }
}
function CreateFolder()
{
    var str;
    str=prompt("<创建目录>\n请输入[目录名]:","Folder"+Math.floor(Math.random()*1000));
    if(str!=null)
    {
        if(str=="")
        {
            alert("<操作失败>\n未填写[目录名]");
            return false;
        }else{
            window.location='?CurrentPath=<%=tempCurrentPath%>&Work=CreateFolder&Title='+str;
        }
    }
}
</script>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td colspan="2" bgcolor="#f6f6f6" style="cursor:hand" onClick="if(HelpTab.style.display=='none'){HelpTab.style.display='';window.scrollTo(window.pageXOffset,2000);}else{HelpTab.style.display='none'}">&nbsp;<img src="../Images/Manage/why.gif" width="14" height="14"> 
      ::Help::</td>
  </tr>
  <tr Id="HelpTab" style="display:"> 
    <td width="2%">&nbsp;</td>
    <td width="98%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>·删除</td>
        </tr>
        <tr> 
          <td>　　被删除的文件/目录（含该目录下的所有子目录及文件）将不能还原</td>
        </tr>
        <tr> 
          <td>·移动</td>
        </tr>
        <tr> 
          <td>目标目录名的结尾不能包含＂/＂；</td>
        </tr>
        <tr> 
          <td>　　１．只输入＂/＂表示移动到主目录</td>
        </tr>
        <tr> 
          <td>　　２．＂/aaa/bbb＂表示移动到从主目录开始算起的aaa/bbb目录下面</td>
        </tr>
        <tr>
          <td>　　３．＂aaa/bbb＂表示移动到从当前所在目录开始算起的aaa/bbb目录下面</td>
        </tr>
      </table>
      <a name="Help"></a></td>
  </tr>
</table>
<p>&nbsp;</p>
</body>
</html>
<%
Set Fol=Nothing
Set Fso=Nothing

'#####删除对象
Function DelItem()
    If Not SysAdmin.ManageFiles Then
        Response.Write("<script>alert(""<操作失败>\n你的权限不足"& Def_SoftCopyright_Script &""");window.history.back();</script>")
        Response.End()
    End If

    Dim ItemList
    DelItem=true
    If Trim(Request("Item"))="" Then
        DelItem=false
        Exit Function
    End If
    ItemList=Split(Trim(Request("Item")),",",-1,1)
    on error resume next
    err.clear
    Dim I,ItemPath
    For I=0 To Ubound(ItemList)
        ItemPath=Server.MapPath(CurrentPath&"/"&Trim(Left(ItemList(I),Len(ItemList(I))-1)))
        '根据文件/文件夹进行删除
        If CBool(Right(ItemList(I),1)) Then
            Fso.DeleteFolder(ItemPath)
        Else
            Fso.DeleteFile(ItemPath)
        End If
        If err.Number<>0 then        
            DelItem=false
        End If
    Next
End Function

'#####移动对象
Function MoveItem()
    If Not SysAdmin.ManageFiles Then
        Response.Write("<script>alert(""<操作失败>\n你的权限不足"& Def_SoftCopyright_Script &""");window.history.back();</script>")
        Response.End()
    End If
    Dim DirectionPath
        DirectionPath=""
    Dim Parameter
        Parameter=Request("Parameter")
    If Parameter="/" Then
        DirectionPath=Server.MapPath(Def_FileSystem_DirectoryRoot)&"\"
    Else
        If Left(Parameter,1)="/" Then
            DirectionPath=Server.MapPath(Def_FileSystem_DirectoryRoot&Parameter)&"\"
        Else
            DirectionPath=Server.MapPath(CurrentPath&"/"&Parameter)&"\"
        End If
    End If
    If Not Fso.FolderExists(DirectionPath) Then
        Set Fso=Nothing
        Response.Write("<script>alert(""<操作失败>\n目录："&Parameter&" 不存在\n详见帮助"");window.history.back();</script>")
        Response.End()
    End If
    MoveItem=true
    If Trim(Request("Item"))="" Then
        DelItem=false
        Exit Function
    End If
    Dim ItemList
        ItemList=Split(Trim(Request("Item")),",",-1,1)
    on error resume next
    err.clear    
    Dim I,ItemPath
    For I=0 To Ubound(ItemList)
        ItemPath=Server.MapPath(CurrentPath&"/"&Trim(Left(ItemList(I),Len(ItemList(I))-1)))
        '根据文件/文件夹进行删除
        If CBool(Right(ItemList(I),1)) Then
            Fso.MoveFolder ItemPath,DirectionPath
        Else
            Fso.MoveFile ItemPath,DirectionPath
        End If
        If err.Number<>0 then        
            MoveItem=false
        End If
    Next
End Function

'#######创建目录
Function CreateFolder()
    If Not SysAdmin.ManageFiles Then
        Response.Write("<script>alert(""<操作失败>\n你的权限不足"& Def_SoftCopyright_Script &""");window.history.back();</script>")
        Response.End()
    End If

    Dim Title
    Title=FilterPath(Trim(Request("Title")))
    If Title="" Then
        CreateFolder=false
        Exit Function
    End If
    Dim FolderPath
    on error resume next
    err.clear
    FolderPath=Server.MapPath(CurrentPath&"/"&Title)
    If err.Number<>0 Then
        Response.Write("<script>alert(""<操作失败>\n目录名包含非法字符"");window.history.back();</script>")
        Response.End
    End If
    If Fso.FolderExists(FolderPath) Then
        Response.Write("<script>alert(""<操作失败>\n存在同名目录"");window.history.back();</script>")
        Response.End
    Else
        Fso.CreateFolder(FolderPath)
        CreateFolder=true
    End If
End Function
%>

⌨️ 快捷键说明

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