日期:2012-11-12  浏览次数:21132 次

其实可以这样
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
             for (var pos=0; pos<el.children.length; pos++) {
               if ("UL"==el.children[pos].tagName) break;