根据模板文件建立动态目录树结构的类-IDC资讯中心

根据模板文件建立动态目录树结构的类：建议入精华备查，有演示 

演示地址：http://www.cnaspol.com/myasp/mmtree/treesample.asp 

本程序包括三文件和相关的图片文件，包括test.asp,tree.asp,mytree.txt组成 

test.asp 引用类文件和模板文件 

<%@ language=vbscript %> 

<!– #include file="tree.asp" –> 

<% 

======================================== 

building a tree from a template file 

======================================== 

     

    set mytree1 = new tree 

    mytree1.top = 10 

    mytree1.left = 10 

    mytree1.expandimage = "plus.gif" 

    mytree1.collapseimage = "minus.gif" 

    mytree1.leafimage = "webpage.gif" 

 

    mytree1.loadtemplate server.mappath("mytree.txt") 

     

    mytree1.draw() 

     

    set mytree1 = nothing 

 

%> 

 

</body> 

</html> 

 

 

mytree.txt 树形结构模板文件 

 

cisco 

    cisco links #1 

        <a href="#">adjusting ip mtu, tcp mss, and pmtud on windows and sun systems (by cisco)</a> 

        <a href="#">cisco command documentation</a> 

        <a href="#">ciscos collection</a> 

    cisco links #2 

        <a href="#">dfw cisco users group</a> 

        <a href="#">internet protocol journal (by cisco)</a> 

    asp #2 

        asp #2 

            <a href="#">vb</a> 

            <a href="#">asp</a> 

desktop 

    cisco links #3 

        <a href="#">area code lookup</a> 

        <a href="#">arin based whois search</a> 

        <a href="#">world time zone map</a> 

    cisco links #4 

        <a href="#">area code lookup</a> 

        <a href="#">arin based whois search</a> 

        <a href="#">world time zone map</a> 

        <a href="#">world time zone map</a> 

internet 

    <a href="#">index of traceroute web servers</a> 

    <a href="#">internet health report (daze networks, inc.</a> 

    <a href="#">internet protocol journal (by cisco)</a> 

    <a href="#">internet traffic report</a> 

    <a href="#">internic network solutions homepage</a> 

    <a href="#">ip 101: all about ip addressing by cmp net</a> 

network 

    <a href="#">digex network services group</a> 

    <a href="#">network computing online</a> 

    <a href="#">network computing online: technology center</a> 

    <a href="#">network training web site (by interoperability lab)</a> 

    <a href="#">networking primer (by bay networks)</a> 

    <a href="#">subnetting (by network computing online)</a> 

software support 

    <a href="#">symantec security alerts</a> 

technology 

    <a href="#">technology dictionary (by pcwebopaedia)</a> 

    <a href="#">technology dictionary (by whatis?com)</a> 

    <a href="#">technology topics (by n.e.t.)</a> 

    <a href="#">tracert</a> 

    <a href="#">understanding i.p. addressing (by 3com)</a> 

trading 

    <a href="#">keynote web broker trading index</a>         

    <a href="#">nasdaq</a> 

training 

    <a href="#">rfc index (ohio state university)</a> 

    <a href="#">vi/ex editor (by cmp net)</a> 

 

 

 

 

tree.asp   处理树形结构的vbsclass类(关键) 

 

<% 

dim gbltreenodecount:gbltreenodecount = 1 

class treenode 

    public value 

    public expandimage 

    public collapseimage 

    public leafimage 

    public expanded 

    private mszname 

    private mcolchildren 

    private mbchildreninitialized 

     

    public property get childcount() 

        childcount = mcolchildren.count 

    end property 

     

    private sub class_initialize() 

        mszname = "node" & cstr(gbltreenodecount) 

        gbltreenodecount = gbltreenodecount + 1 

         

        mbchildreninitialized = false 

        expanded = false 

    end sub 

 

    private sub class_terminate() 

        if mbchildreninitialized and isobject(mcolchildren) then 

            mcolchildren.removeall() 

            set mcolchildren = nothing 

        end if 

    end sub 

     

    private sub initchildlist() 

        set mcolchildren = server.createobject("scripting.dictionary") 

        mbchildreninitialized = true 

    end sub 

     

    private sub loadstate() 

        if request(mszname) = "1" or request("togglenode") = mszname then 

            expanded = true 

        end if 

    end sub 

     

    public function createchild(szvalue) 

         

        if not mbchildreninitialized then initchildlist() 

         

        set createchild = new treenode 

        createchild.value = szvalue 

        createchild.expandimage = expandimage 

        createchild.collapseimage = collapseimage 

        createchild.leafimage = leafimage 

     

        mcolchildren.add mcolchildren.count + 1, createchild 

         

    end function 

     

    public sub draw() 

     

        loadstate() 

 

        response.write "<table border=""0"">" & vbcrlf 

        response.write "<tr><td>" & vbcrlf 

         

        if expanded then 

            response.write "<a href=""javascript:collapsenode(" & mszname & ")""><img src=""" & collapseimage & """ border=""0""></a>" & vbcrlf 

        elseif not mbchildreninitialized then 

            response.write "<img src=""" & leafimage & """ border=0>" & vbcrlf 

        else 

            response.write "<a href=""javascript:expandnode(" & mszname & ")""><img src=""" & expandimage & """ border=""0""></a>" & vbcrlf 

        end if 

         

        response.write "</td>" & vbcrlf 

        response.write "<td>" & value & "</td></tr>" & vbcrlf 

     

        if expanded then 

            response.write "<input type=""hidden"" name=""" & mszname & """ value=""1"">" & vbcrlf 

             

            if mbchildreninitialized then 

                response.write "<tr><td> </td>" & vbcrlf 

                response.write "<td>" & vbcrlf 

 

                for each childnode in mcolchildren.items 

                    childnode.draw() 

                next 

 

                response.write "</td>" & vbcrlf 

                response.write "</tr>" & vbcrlf 

            end if 

        end if 

         

        response.write "</table>" & vbcrlf 

         

    end sub 

         

end class 

 

 

class tree 

     

    public top 

    public left 

    public expandimage 

    public collapseimage 

    public leafimage 

    private mszposition 

    private mcolchildren 

     

    public property let absolute(bdata) 

        if bdata then mszposition = "absolute" else mszposition = "relative" 

    end property 

     

    public property get absolute() 

        absolute = cbool(mszposition = "absolute") 

    end property 

     

    private sub class_initialize() 

        set mcolchildren = server.createobject("scripting.dictionary") 

        mntop  = 0 

        mnleft = 0 

        mszposition = "absolute" 

    end sub 

 

    private sub class_terminate() 

        mcolchildren.removeall() 

        set mcolchildren = nothing 

    end sub 

 

    public function createchild(szvalue) 

         

        set createchild = new treenode 

 

        createchild.value = szvalue 

        createchild.expandimage = expandimage 

        createchild.collapseimage = collapseimage 

        createchild.leafimage = leafimage 

     

        mcolchildren.add mcolchildren.count + 1, createchild 

     

    end function 

 

    public sub loadtemplate(szfilename) 

        dim objworkingnode 

        dim colnodestack 

        dim fsobj, tsobj 

        dim szline 

        dim ncurrdepth, nnextdepth 

         

        set colnodestack = server.createobject("scripting.dictionary") 

        set fsobj = createobject("scripting.filesystemobject") 

        set tsobj = fsobj.opentextfile(szfilename, 1) 

         

        ncurrdepth = 0 

        while not tsobj.atendofline 

            nnextdepth = 1 

            szline = tsobj.readline() 

             

            if ncurrdepth = 0 then 

                set objworkingnode = createchild(trim(szline)) 

                ncurrdepth = 1 

            else 

                while mid(szline,nnextdepth,1) = vbtab or mid(szline,nnextdepth,1) = " " 

                    nnextdepth = nnextdepth + 1 

                wend 

         

                if nnextdepth > 1 then szline = trim(mid(szline,nnextdepth)) 

                 

                if szline <> "" then 

                    if nnextdepth > ncurrdepth then 

                        if colnodestack.exists(ncurrdepth) then 

                            set colnodestack.item(ncurrdepth) = objworkingnode 

                        else 

                            colnodestack.add ncurrdepth, objworkingnode 

                        end if 

                         

                        set objworkingnode = objworkingnode.createchild(szline) 

                                     

                        ncurrdepth = ncurrdepth + 1 

                    elseif nnextdepth <= ncurrdepth then 

                         

                        if nnextdepth > 1 then 

                             

                            nnextdepth = nnextdepth – 1 

                            while not colnodestack.exists(nnextdepth) and nnextdepth > 1 

                                nnextdepth = nnextdepth – 1 

                            wend 

                         

                            set objworkingnode = colnodestack.item(nnextdepth) 

                            set objworkingnode = objworkingnode.createchild(szline) 

                             

                            nnextdepth = nnextdepth + 1 

                        else 

                            set objworkingnode = createchild(szline) 

                        end if 

                         

                        ncurrdepth = nnextdepth 

                    end if 

                end if 

                 

            end if 

        wend 

 

        tsobj.close() 

        set tsobj = nothing         

        set fsobj = nothing 

         

        colnodestack.removeall() 

        set colnodestack = nothing 

             

    end sub 

 

 

    public sub draw() 

         

        addclientscript() 

         

        response.write "<div id=""treectrl"" style=""left: " & left & "px; top: " & top & "px; position: " & mszposition & ";"">" & vbcrlf 

        response.write "<form name=""treectrlfrm"" action=""" & request.servervariables("script_name") & """ method=""get"">" & vbcrlf 

        response.write "<table border=""0"">" & vbcrlf 

        response.write "<tr><td>" & vbcrlf 

 

        for each childnode in mcolchildren.items 

            childnode.draw() 

        next 

 

        response.write "</td></tr>" & vbcrlf 

        response.write "</table>" & vbcrlf 

 

        response.write "<input type=""hidden"" name=""togglenode"" value="""">" & vbcrlf 

        response.write "</form>" & vbcrlf 

        response.write "</div>" & vbcrlf 

 

    end sub 

 

    private sub addclientscript() 

    %> 

        <script language="javascript"> 

         

        function expandnode(sznodename) 

        { 

            if(document.layers != null) { 

                document.treectrl.document.treectrlfrm.togglenode.value = sznodename; 

                document.treectrl.document.treectrlfrm.submit(); 

            } 

            else { 

                document.all["treectrlfrm"].togglenode.value = sznodename; 

                document.all["treectrlfrm"].submit(); 

            } 

        } 

         

        function collapsenode(sznodename) 

        { 

            if(document.layers != null) { 

                document.treectrl.document.treectrlfrm.elements[sznodename].value = -1; 

                document.treectrl.document.treectrlfrm.submit(); 

            } 

            else { 

                document.treectrlfrm.elements[sznodename].value = -1; 

                document.treectrlfrm.submit(); 

            } 

        } 

         

        </script> 

    <%     

    end sub 

 

end class 

%>

根据模板文件建立动态目录树结构的类

相关推荐

热门标签

热门文章

分类目录