if(parid="") then Response.Write("root id can't is null") Response.End() end if if(nodeLayer<0) then nodeLayer=0
end if %> <% strconn="at" strsql="select * from tree where par='"&parid&"'" ''SQL 语句书写要求:在记录集的前面三个字段必须依次为:row_id(惟一的主键)、name(菜单条显示的内容)、par_id(父节点row_id),其它根据需要输出与显示 set conn=server.createobject("ADODB.connection") conn.open strconn
set rs=server.createobject("ADODB.Recordset") rs.open strsql,conn,3,3 i=0 dim row_id row_id="" while not rs.EOF row_id=rs.Fields("row_id").Value name=rs.Fields("name").Value j=0
while jResponse.Write("") j=j+1 wend Response.Write("javascript:createChildNode('"&row_id&"',"&nodeLayer+1&") border=0 align='absmiddle'>") Response.Write("") Response.Write(""&Trim(name)&"")'项目内容 Response.Write("") '子节点内容区域 i=i+1 rs.MoveNext wend '''''''''''''''''''''''''''''''''''''''''Server Code END '''''''''''''''''''''''''''''''''' %>