不是这13个数,是13层.......
不好意思啊,这2W暂时不能给你......
要是13个数,我一个一个算也能算出来了

不过我自己已经搞出来了.能算任意点下面的13层.

怎么个搞法啊，说说看啊

积分又没用，我要那做什么，再说也没达到你要的效果！

我晕，不是发现你是hxfly的马甲，我会把你骂的很惨，忽视我的劳动我就是不客气！

<%
''dateArray存放二叉树实际所有节点的数组
''这里的一组数仅做参考，可从数据库中提取
Dim dateArray(13)
dateArray(0) = 1
dateArray(1) = 11
dateArray(2) = 12
dateArray(3) = 111
dateArray(4) = 112
dateArray(5) = 121
dateArray(6) = 122
dateArray(7) = 1111
dateArray(8) = 1112
dateArray(9) = 1121
dateArray(10) = 1122
dateArray(11) = 1211
dateArray(12) = 1221
dateArray(13) = 1222

Function getNullNote(dataArr,upLevelNote)
Dim upLevelNoteArr,IntI
Dim curLevelNote,IntK
Dim hasNode,IntJ
''根据上层（即父节点所在层）得出本存所有接点字符串，各节点值之间用“|”分隔
''例如：上级的父节点有“11，12”，则得出的结果curLevelNote = "111|112|121|122|"
upLevelNoteArr = Split(upLevelNote,"|")
For IntI = 0 To Ubound(upLevelNoteArr)
If upLevelNoteArr(IntI)<>"" And Not IsNull(upLevelNoteArr(IntI)) Then
curLevelNoteLeft = CStr(upLevelNoteArr(IntI))&"1"
curLevelNoteRight = CStr(upLevelNoteArr(IntI))&"2"
curLevelNote = curLevelNote & curLevelNoteLeft &"|"& curLevelNoteRight &"|"
End If
Next
''循环将当前层的应有节点与实际存在接点比较，
''如果在实际接点中不存在则说明该接点为空，输出该节点值，并跳出循环
curLevelNoteArr = Split(curLevelNote,"|")
For IntK = 0 To Ubound(curLevelNoteArr)
hasNode = False
If curLevelNoteArr(IntK)<>"" And Not IsNull(curLevelNoteArr(IntK)) Then
For IntJ = 0 To Ubound(dataArr)
If Cstr(curLevelNoteArr(IntK))=Cstr(dataArr(IntJ)) Then
hasNode = True
Exit For
End If
Next
If hasNode = False Then
Response.Write(Cstr(curLevelNoteArr(IntK)))
Exit Function
End If
End If
Next
''如果当前层的节点都存在，则将当前层作为父层继续检测其下层的节点
Call getNullNote(dataArr,curLevelNote)
End Function
Call getNullNote(dateArray,1)
%>