類似 MSDN 左邊導航樹效果的實現! [JavaScript + ASP] (轉)

類似 MSDN 左邊導航樹效果的實現! [JavaScript + ASP] (轉)[@more@]

MSDN 和CSDN 左邊導航樹的效果都是在點選父節點時,再發出請求填充其子節點!好像網頁只重新整理部分! script + [ +  Access] 實現

源:

<!-- Tree.asp --&gt

 
 
 

dim adoConnection   set adoConnection = Server.Create("ADO.Connection")   'adoConnection.Open "Provr=OLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data =TRIATONPSQL2KE"   adoConnection.Open "Provider=.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 count(*) from tree where parentid = T.id) as children from tree T where id = id ",adoConnection   dim i   i=0   do until adoRecordset.eof  %>   0 then %>   onClick='ExpandNode(Node_,)'>+     >-       正在載入 ...     adoRecordset.MoveNext   l   adoRecordset.close   set adoRecordset = nothing   adoConnection.close   set adoConnection = nothing %>

 

<!-- SubTree.asp --&gt

  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=TRIATONPSQL2KE"

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

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

表結構:
Tree(id,parentid,remark)