数据库结构:
id ,content,parent(指向父亲节点)
代码
<%
myRs.Open "select * from TAB_ComCode where ID <>0 and Type ="&codetype&" order by Parent,ID"
DBConErrDo()
response.write "<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>"
while not myRs.EOF
if myRs.Fields ("Parent")=0 then
response.write "myTree.Nodes.Add (null,null,""a"& myRs.Fields (1)&"%"&myRs.Fields (4)&""","""&trim(myRs.Fields (2))&""");"
else
myr.Open "select * from TAB_ComCode where Type="&codetype &" and ID = "&myrs.Fields (3)
pinid = myr.Fields(4)
response.write "myTree.Nodes.Add (""a"& myRs.Fields (3)&"%"&pinid&""",4,""a"& myRs.Fields (1)&"%"&myRs.Fields (4)&""","""&trim(myRs.Fields (2))&""");"
myr.Close ()
end if
myRs.MoveNext ()
wend
%>