开发学院网页设计 JavaScript 类似 MSDN CSDN 左边导航树效果的实现! [java... 阅读

类似 MSDN CSDN 左边导航树效果的实现! [javascript + ASP]

　2007-11-27 17:26:18　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣椤愯姤鎱ㄥ鍡楀幊缂傚倹姘ㄩ幉绋款吋閸澀缃曢梻鍌欑濠€閬嶆惞鎼淬劌绐楅柡宥庡亞娑撳秵銇勯弽顐沪闁绘挶鍎甸弻锝夊即閻愭祴鍋撻崷顓涘亾濮樼偓瀚�

闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣捣閻棗銆掑锝呬壕濡ょ姷鍋涢ˇ鐢稿极閹剧粯鍋愰柟缁樺笧閳ь剦鍙冨鍝勑ч崶褏浠奸梺璇茬箲閼归箖鎮鹃悜钘夎摕闁靛濡囬崢鐢告⒑鐟欏嫷鍟忛柛鐘崇墵閵嗗倹绺介崨濠勫幈闁硅壈鎻槐鏇熺墡闂備線娼уú銈団偓姘嵆閻涱噣骞掑Δ鈧粻锝嗙節闂堟稑鏆欏ù婊堢畺閺岋綁濮€閳惰泛婀辨竟鏇熺節濮橆厾鍘甸梺缁樺姦閸撴岸鎮樻潏銊ょ箚闁圭粯甯炴晶娑氱磼缂佹ḿ娲寸€规洖宕灃闁告劕鍟犻崜婵堟崲濞戞ḿ鏆嗗┑鐘辫兌閺佹牜绱撴担浠嬪摵闁圭懓娲ら悾鐑藉箳閹搭厽鍍甸梺鐟板悁閻掞箓鎮楅幖浣光拻濞达絿鍎ら崵鈧梺鎼炲€栭悧鐘荤嵁韫囨稒鏅搁柨鐕傛嫹

婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柛娑橈攻閸欏繑銇勯幘鍗炵仼缂佺媭鍨堕弻娑㈠箛闂堟稒鐏堥悗鐟版啞缁诲啴濡甸崟顖氱閻庨潧鎽滈悾濂告⒑绾拋娼愭繛鑼枎椤繒绱掑Ο鑲╂嚌闂侀€炲苯澧畝锝堝劵椤︽煡鎮￠妶澶嬬厪闁割偅绻冮崑顏呯箾瀹割喕绨婚幆鐔兼⒑鐎圭姵銆冮柤鍐茬埣瀹曟繈鏁冮埀顒勨€旈崘顔嘉ч柛鈩冾殘閻熸劙姊洪悡搴℃毐闁绘牕銈稿畷鐑樼節閸パ冨祮闂侀潧楠忕槐鏇㈠储椤忓牊鈷戦柟鑲╁仜閸旀鏌￠崨顔锯姇缂佸倹甯熼ˇ瀵哥磼鏉堛劌绗氭繛鐓庣箻閸┾剝鎷呴柨瀣垫綗闂傚倷娴囧銊╂倿閿曞倸绠查柛銉墮閺嬩線鏌熼崜褏甯涢柡鍛倐閺屻劑鎮ら崒娑橆伓闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣椤愯姤鎱ㄥ鍡楀幊缂傚倹姘ㄩ幉绋款吋閸澀缃曢梻鍌欑濠€閬嶆惞鎼淬劌绐楅柡宥庡亞娑撳秵銇勯弽顐沪闁绘挶鍎甸弻锝夊即閻愭祴鍋撻崷顓涘亾濮樼偓瀚�　　闂傚倸鍊搁崐鎼佸磹閹间礁纾归柣鎴ｅГ閸ゅ嫰鏌ら崫銉︽毄濞寸姵姘ㄧ槐鎾诲磼濞嗘帒鍘＄紓渚囧櫘閸ㄥ爼濡撮崘顔煎窛闁哄鍨归崢娲倵楠炲灝鍔氭い锔诲灦瀹曪繝骞庨懞銉у帾闂婎偄娲﹀ú鏍ㄧ墡闂備浇顕х€垫帡宕滈悢濂夋綎闁惧繐婀辩壕鍏间繆椤栨碍鎯堟い顐㈢焸濮婃椽宕烽娑欏珱闂佺ǹ顑呭Λ婵嬪箚閳ь剚銇勮箛鎾寸ォ婵☆垰瀚板娲传閸曨剚鎷卞┑鐐插级宀ｅ潡骞戦姀鐘斀濠电姴瀚弶鎼佹⒑閸濆嫭宸濆┑顔惧厴閹即濡烽埡鍌楁嫽婵炶揪绲介幖顐ゆ暜鐠轰警鐔嗛柣鐔峰簻閺€鑽ょ磼閸屾氨孝妤楊亙鍗冲畷鐓庮潩閿濆懍澹曢梺鍝勫暙閻楀棛绮堥崘鈹夸簻闊洤娴烽ˇ锕€霉濠婂牏鐣洪柡灞诲妼閳规垿宕卞☉鎵佸亾濡も偓椤儻顧侀柛鐘崇墵濠€渚€姊虹紒妯曟垿鎮烽妷褉鍋撳鐓庢灓缂侇喚绮妶锝夊礃閳哄啫骞堟俊鐐€栭崝鎴﹀磹閺囥垹鍑犻幖娣妽閻撶喖鐓崶褜鍎忛柛鏃€绮撻弻鏇㈠炊瑜嶉顓犫偓娈垮枟濞兼瑨鐏掗梺鍛婄箓鐎氼剝顤傛繝纰夌磿閸嬫垿宕愰幋锕€鍨傛繛宸簼閸嬶繝鏌嶉崫鍕櫣缂佺姵鐗犻弻宥夊煛娴ｅ憡娈查梺绋挎捣閸犳牠寮婚弴銏犵倞鐟滃秶鑺辨繝姘厵闁告垯鍊栫€氾拷

核心提示：MSDN 和CSDN 左边导航树的效果都是在点击父节点时,再发出请求填充其子节点!好像网页只刷新部分! JavaScript + [asp + Access] 实现源程序下载: http://www.triaton.com.cn/Private/Zip/Tree.zip&

MSDN 和CSDN 左边导航树的效果都是在点击父节点时,再发出请求填充其子节点!好像网页只刷新部分! JavaScript + [asp + Access] 实现

源程序下载: http://www.triaton.com.cn/Private/Zip/Tree.zip

<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME=Generator CONTENT=EditPlus>
<META NAME=Author CONTENT=>
<META NAME=Keywords CONTENT=>
<META NAME=Description CONTENT=>
</HEAD>
<BODY>
<iframe width=100% height=30 id=hiddenframe></iframe>
<script>
function ExpandNode(ParentNode,ParentId){
var NodeX = eval(ParentNode.id + _0);
if (NodeX.style.display == none)
　 {
　 NodeX.style.display=block;
　 if (NodeX.loaded == no)
　　　 {
　　　 document.frames[hiddenframe].location.replace(http://localhost/dvbbs/subtree.asp?PID= + ParentId + &PNode= + ParentNode.id);
　　　 NodeX.loaded = yes;
　　 }
　 }
else
　 {
　 NodeX.style.display=none;
　 }
}
</script>
<CENTER>
<TABLE border=1 width=20% height=60%>
　 <TR>
　　 <TD>
　　　　 <DIV style=OVERFLOW: auto;WIDTH: 100%;HEIGHT:100%>
　　　　　 <TABLE width =300%>
　　　　　　　 <TR>
　　　　　　　　　 <TD>
<%
dim adoConnection
set adoConnection = Server.CreateObject(ADODB.Connection)
adoConnection.Open Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=TRIATON\PSQL2KE
adoConnection.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.mappath(/dvbbs) & \Tree.mdb;Persist Security Info=False
dim adoRecordset
set adoRecordset = Server.CreateObject(ADODB.Recordset)
adoRecordset.Open select *,(select count(*) from tree where parentid = T.id) as children from tree T where rootid = id ,adoConnection
dim i
i=0
do until adoRecordset.eof
%>
<div id=Node_<% = i %>>
　　 <a href=#
<% if adoRecordset.Fields.item(Children).value >0 then %>
　　　 onClick=ExpandNode(Node_<% = i %>,<% =adoRecordset.Fields.item(id).value%>)>+</a>
<% else %>
　　　 >-</a>
<% end if%>
<a href=# onDblClick=ExpandNode(Node_<% = i %>,<% =adoRecordset.Fields.item(id).value%>)><% =adoRecordset.Fields.item(remark).value%></a>
</div>
<div id=Node_<% = i %>_0 style=display: none loaded=no>
　　　正在加载 ...
　　 </div>
<%　 i=i+1
　　 adoRecordset.MoveNext
loop
adoRecordset.close
set adoRecordset = nothing
adoConnection.close
set adoConnection = nothing
%>
　　　　　　　　　 </TD>
　　　　　　　 </TR>
　　　　　 </TABLE>
　　　　 </DIV>
　　 </TD>
　 </TR>
</TABLE>
</CENTER>
</BODY>
</HTML>

<!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME=Generator CONTENT=EditPlus>
<META NAME=Author CONTENT=>
<META NAME=Keywords CONTENT=>
<META NAME=Description CONTENT=>
</HEAD>
<BODY>
<%
dim parentid
parentid = request.querystring(PID)
parentnode = request.querystring(Parentnode)
dim adoConnection
set adoConnection = Server.CreateObject(ADODB.Connection)
adoConnection.Open Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=TRIATON\PSQL2KE

adoConnection.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.mappath(/dvbbs) & \Tree.mdb;Persist Security Info=False
dim adoRecordset
set adoRecordset = Server.CreateObject(ADODB.Recordset)
adoRecordset.Open select *,(select count(*) from tree where parentid =T.id ) as Children from tree T where parentid = & parentid ,adoConnection
response.write adoRecordset.source
dim i
Dim SHTML
dim parentnode
parentnode = request.querystring(Pnode)
dim j
j= len(parentnode) - len(replace(parentnode,_,))
dim nSpace
for i=0 to j - 1
　　 nSpace = nSpace + 　
next
i=0
do until adoRecordset.eof
　　 shtml = shtml _
　　　　　　 & <div id= & parentnode & _ & i + 1 & > & nSpace _
　　　　　　 & <a href=#
　　 if adoRecordset.Fields.item(Children).value >0 then
　　　　 shtml = shtml & onClick=ExpandNode( & parentnode & _ & i + 1 & , & adoRecordset.Fields.item(id).value & )>+
　　 else
　　　　 shtml = shtml & >-
　　 end if
　　 shtml = shtml & </a>\n & <a href=#
　　 if adoRecordset.Fields.item(Children).value >0 then
　　　　 shtml = shtml & onDblClick=ExpandNode( & parentnode & _ & i + 1 & , & adoRecordset.Fields.item(id).value & )
　　 end if
　　 shtml = shtml & > & adoRecordset.Fields.item(id).value & : & adoRecordset.Fields.item(remark).value & </a></div>
　　 if adoRecordset.Fields.item(Children).value >0 then
　　　　 shtml = shtml & <div id= & parentnode & _ & i + 1 & _0 style=display: none loaded=no> & nSpace & 　正在加载 ...</div>
　　 end if
　　 i=i+1
　　 adoRecordset.MoveNext
loop
adoRecordset.close
set adoRecordset = nothing
adoConnection.close
set adoConnection = nothing
response.write shtml
%>
<script>
　 var x = eval(parent. + <% =request.querystring(Pnode) & _0%> ) ;
　 x.innerHTML=<% =shtml %>;
</script>
</BODY>
</HTML>