追蹤
不花錢做知識管理(KM)
關於部落格
阿米巴實現『不花錢做知識管理(KM)』的想法、行動方案、心得...全紀錄。
  • 48508

    累積人氣

  • 0

    今日人氣

    0

    追蹤人氣

樹狀目錄

關鍵程式碼:menu.asp <body onLoad="exe(0);" > <script language="javascript" src="function.js"></script> <script language="javascript"> var isShow; var isLoad; isLoad = new ActiveXObject("Scripting.Dictionary"); //isShow = new ActiveXObject("Scripting.Dictionary"); function exe(id) { if (!isLoad.Exists(id)) { isLoad.add(id,''); loaddata(id); } /* if(isShow.Exists(id)) { isShow.Remove(id); } else { isShow.Add(id,''); } */ if (id>0) change1('a'+id,'b'+id); } function loaddata(id) { eval('c'+id).innerHTML = '載入中。。。'; var xml = new ActiveXObject("Microsoft.XMLHTTP"); xml.open("GET","server.asp?id="+id,false); xml.send(); var returnvalue = unescape(xml.ResponseText); var m = returnvalue.split("#"); var str; str="<table border='0' cellspacing='0' cellpadding='0'>"; var i=0,len=m.length-1; for (;i<len;i++) { var n = m[i].split("*"); if ( n[0] > 0 )//有子節點 { var listtype; if ( i == len-1 )//最後一個 { str += "<tr colspan='2' onClick=exe('" + n[1] + "');><td id='b" + n[1] + "' class='menu3' nowrap>" + n[3] + "</td></tr>"; listtype="list1"; } else { str += "<tr colspan='2' onClick=exe('" + n[1] + "');><td id='b" + n[1] + "' class='menu1' nowrap>" + n[3] + "</td></tr>"; listtype="list"; } str += "<tr id='a" + n[1] + "' style='display:none'><td id='c" + n[1] + "' class='" + listtype + "' ></td>"; } else//葉子節點 { if ( i == len-1 )//最後一個 { str += "<tr><td id='b" + n[1] + "' class='file1' nowrap><a href='" + n[4] + "' target='mainFrame'>" + n[3] + "</a></td></tr>"; } else { str += "<tr><td id='b" + n[1] + "' class='file' nowrap><a href='" + n[4] + "' target='mainFrame'>" + n[3] + "</a></td></tr>"; } } } str += "</table>"; eval('c'+id).innerHTML = str; } </script> <div nowrap><a href=menu.asp><img border="0" src="images/computer1.gif" border=0 align=absmiddle>知識庫</a>&nbsp;&nbsp;<a href=editmenu.asp><img border="0" src="images/newDoc0.gif" border=0 align=absmiddle>新主題</a>  </div> <div id="c0"></div> </body> 關鍵程式碼:server.asp <!--#include file="conn.asp"--> <% function menu(id) set rs=server.CreateObject("adodb.recordset") sql="select * from menu where id1="&id&" order by id,url" rs.open sql,conn,1,1 while not rs.eof ChildCount=conn.execute("select count(*) from menu where id1="&rs("id"))(0) response.Write(escape(ChildCount&"*"&rs("id")&"*"&rs("id1")&"*"&rs("menuname")&"*"&rs("url")&"#")) rs.movenext wend rs.close set rs=nothing end function menu(request("id")) %> 關鍵程式碼:function.js // JavaScript Document function change1(a,b) { if(eval(a).style.display=='') { eval(a).style.display='none'; eval(b).className='menu3'; } else { eval(a).style.display=''; eval(b).className='menu4'; } } function change2(a,b) { if(eval(a).style.display=='') { eval(a).style.display='none'; eval(b).className='menu1'; } else { eval(a).style.display=''; eval(b).className='menu2'; } }
相簿設定
標籤設定
相簿狀態