'********************************* '* 函数名称:Function nodeUser(parent) '* 函数参数:parent '* 参数类型 :string '* 返回值类型:-- '* 函数功能:递归显示用户树型结构 '* 作者:范维肖 '* 时间:2004-5-7 '********************************* Function nodeUser(parent) '检索其分支 sql = "select name from [user] where sel='"&parent&"'" set rs = conn.Execute(sql) do while not rs.Eof i=i+1 '格式控制 for j=i to 2 step -1 response.Write("<font color=red> | </font>") response.Write(" ") next response.Write("<font color=red> |-> </font>") '打印出此用户 response.Write(rs(0)) response.Write("<br>") '递归来显示出此用户为根的树型结构 nodeUser(rs(0)) '完毕后转向下一个 rs.MoveNext loop '一个级别的显示完成后就缩进一下 i=i-1 rs.close set rs=nothing End Function
再用的时候搜索了一下,没有找到能实现类似传销样的会员树,特写了一个 
|