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

程序员文章站 2024-01-03 19:24:46

...

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>

New Document

　
　　
　

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>

New Document

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

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

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

声明：本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系admin@php.cn核实处理。