网络整理 - 08-17

<%@ LANGUAGE = VBscript %>
<%Server.scriptTimeout=5000%>
<html>

<head>
<style TYPE="text/css">
          /* Outline Style Sheet */
          UL UL {display: none;
                 margin-left: 20pt}
      </style>
<script LANGUAGE="Javascript">
         function checkParent(src, dest) {
           // Search for a specific parent of the current element
           while (src!=null) {
             if (src.tagName == dest) return src;
             src = src.parentElement;
           }
           return null;
        }
        function outline() {
           // Expand or collapse if a list item is clicked.
           var open = event.srcElement;
           // Make sure clicked inside an LI. This test allows rich HTML inside lists.
           var el = checkParent(open, "LI");
           if (null!=el) {
             var pos = 0;
             // Search for a nested list
             for (var pos=0; pos<el.children.length; pos++) {
               if ("UL"==el.children[pos].tagName) break;
            }
            if (pos==el.children.length) return;
          } else return;
          el = el.children[pos];
          if ("UL"==el.tagName) {
            // Expand or Collapse nested list
            if (""==el.style.display) {
              el.style.display = "block";
              el.style.listStyleImage = "url(images/folder.gif)";
              el.parentElement.style.listStyleImage = "url(images/ofolder.gif)";
            }
          else
          {
              el.style.display = "";
              el.parentElement.style.listStyleImage = "url(images/folder.gif)";
          }
        }
          event.cancelBubble = true;
        }
        document.onclick = outline;
       </script>

<base target="main">
<title>Folders</title>
<link rel="stylesheet" type="text/css" href="ase.css">
</head>

<body topmargin="0" leftmargin="0">

<script LANGUAGE=vbscript RUNAT = Server>
    Dim fs, folderpara, folderArray
    Set fs = CreateObject("scripting.FileSystemObject")
if not isempty(request("txtRelative")) then
folderpara=server.mappath(request("txtRelative"))
else
folderpara=request("txtAbsolute")
end if
    Response.write "<UL>"
    Response.write "<LI><a href='files.asp?sPath=" &
folderpara & "'>" & folderpara & "</a></LI>"
    Call ShowFolderList(folderpara)
    Response.write "</UL>"
    set fs = Nothing

Sub ShowFolderList(folderspec)
    Dim f, f1, fc, s,fs
    Set fs=Server.CreateObject("scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    Set fs=f.Files
    'if (not (fc.count = 0)) then
       Response.write "<UL>"
       For Each f1 in fc
       s = f1.name
       If (not ((left (s, 1)) = "_")) then
        Response.write "<li>"
        Response.write "<a href='files.asp?sPath=" & f1 & "'>"
        Response.write s & "</LI>"
        Response.write "</a>"
        Call ShowFolderList((folderspec & "/" & s))
       end if
       Next

       For Each f1 in fs
       s = f1.name
       If (not ((left (s, 1)) = "_")) then
        Response.write "<li>"
        Response.write "<a href='files.asp?sPath=" & f1 & "'><font color=666666>"
        if instr(s,"product")>0 then
         Response.write replace(s,"product","<font color=008800>product</font>")
        else
         if instr(s,"prod")>0 then
         Response.write replace(s,"prod","<font color=008800>prod</font>")
         else
         Response.write s
         end if
        end if
        Response.write "</font></LI>"
        Response.write "</a>"
       end if
       Next
       Response.write "</UL>"
    'end if
end sub
</script>

</body>
</html>

原作者：不详
来源：不详

列出指定目录下的所有文件和目录