类似 MSDN CSDN 左边导航树效果的实现! [&#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

//W3C//DTD HTML 4.0 Transitional//EN>

<script><br/>function ExpandNode(ParentNode,ParentId)&#123;<br/>var NodeX = eval(ParentNode.id + _0);<br/>if (NodeX.style.display == none)<br/>　 &#123;<br/>　 NodeX.style.display=block;<br/>　 if (NodeX.loaded == no)<br/>　　　 &#123;<br/>　　　 document.frames[hiddenframe].location.replace(http://localhost/dvbbs/subtree.asp?PID= + ParentId + &PNode= + ParentNode.id);<br/>　　　 NodeX.loaded = yes;<br/>　　 &#125;<br/>　 &#125;<br/>else<br/>　 &#123;<br/>　 NodeX.style.display=none;<br/>　 &#125;<br/>&#125;<br/></script>


　
　　 
　

　　　　

　　　　　 
　　　　　　　
　　　　　　　　　
　　　　　　　
　　　　　 

  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_,)>+
 
　　　  >-
 
,)>

_0 >　　  　正在加载 ...
　　

　　 adoRecordset.MoveNext
  loop
  adoRecordset.close
  set adoRecordset = nothing
  adoConnection.close
  set adoConnection = nothing
%>
　　　　　　　　　

　　　　

　　 

//W3C//DTD HTML 4.0 Transitional//EN>

  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 _
　　　　　　 &

& nSpace _
　　　　　　 & 　　  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 & \n & 　　  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 &

　　  if adoRecordset.Fields.item(Children).value >0 then
　　　　 shtml = shtml &

　　  end if
　　  i=i+1
　　  adoRecordset.MoveNext
  loop
  adoRecordset.close
  set adoRecordset = nothing
  adoConnection.close
  set adoConnection = nothing
response.write shtml
%>
<script><br/>　 var x = eval(parent. + <% =request.querystring(Pnode) & _0%> ) ;<br/>　 x.innerHTML=<% =shtml %>;<br/></script>

表结构:
Tree(id,parentid,remark)