能不能用filesystemobject編寫一個伺服器上的資源管理員?

來源:互聯網
上載者:User
filesystemobject|伺服器 其實可以這樣
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;
            }
            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";
    



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。