技术资料 > ASP技术 > 客户端相关 : 列出指定目录下的所有文件和目录

March 25,2004

<%@ 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 STYLE='list-style-image: url(images/folder.gif)'><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>