日期:2008-11-14  浏览次数:20895 次

其实可以这样
left frame:
use filesystemobject function list all folder on server;
use DHTML or treeview display them

onclick call display.ASP?foldername
the code is like this:
================================
<%@ LANGUAGE = VBScript %>
<HTML>

<head>
<style TYPE="text/CSS">
          /* Outline Style Sheet */
          UL{cursor: hand;
             color: navy;
             font-family: Arial}
          UL UL {display: none;
                 margin-left: 20pt}
      </style>
<link REL="stylesheet" TYPE="text/CSS" HREF=../../"CSS/myCSS.CSS">
<script LANGUAGE="javascript">
<!--
  function mousemove()
  {
    var srcElement;
    srcElement=window.event.srcElement;
    if ("A" == srcElement.tagName)
    {
      srcElement.className = "coolstyle";
    }
  }

  function mouseout()
  {
    var srcElement;
    srcElement=window.event.srcElement;
    if ("A" == srcElement.tagName)
    {
      srcElement.className = "normalstyle";
    }
  }

//-->
</script>
<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
   &n