类似MSDNCSDN左边导航树效果的实现![&#106avascript+ASP]

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

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

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

New Document 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; 　 } } 　　　　　　　

　　　　　　　　　　　　　　　　　　　　　 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 %>

　　 0 then %> 　　　 onClick=ExpandNode(Node_ , )>+ 　　　 >- , )>

声明：本文来自网络，不代表【好得很程序员自学网】立场，转载请注明出处：http://www.haodehen.cn/did158264

更新时间：2022-12-08 阅读：36次