function get_sub_jiedian(jie_id,rank) filepath=Server.MapPath(dm_root&"/data/#data.mdb") set oconn_1=Server.CreateObject("adodb.connection") oconn_1.Open "provider=microsoft.jet.oledb.4.0;jet oledb:database password=goodsite;data source=" &filepath set ors_1=server.CreateObject("adodb.recordset") sql_1="select * from nav where p_node='"&jie_id&"' order by xuhao" ors_1.open sql_1,oconn_1,1,3 if ors_1.recordcount>0 then  do while not ors_1.eof node_str=node_str&"|"&jie_id&"_"&ors_1("编号")&"_"&ors_1("node")&"_"&ors_1("xuhao")&"_"&ors_1("link_page_button")&"_"&ors_1("is_tuwen")&"_"&ors_1("is_hidden")&"_"&rank&get_sub_jiedian(cstr(ors_1("编号")),rank+1) ors_1.movenext:loop else node_str="" end if  get_sub_jiedian=node_str end function
给补充完整给分哦....谢谢了~~~~
要求顶级结点输出粗体，子级结点空两格加“-”，子级的子级再多空两格加“-”，如此无穷 ，并以表格方式列阵输出

[ 本帖最后由 x324423 于 2011-7-13 20:36 编辑 ]

有没有高手帮个忙啊。