bbs的树状算法的补充程序

ssql = "select gorders，glayer from bbs where gId=" & gId & " and goders> " & gorders & " order by goders  "

rs1.Open sql, conn1, adOpenForwardOnly, adLockOptimistic '查询比父贴

                                            ‘order_value大的order_value

If (rs1.EOF And rs1.BOF) Then

If gLayer >= 8 Then  '如果深度大于8，就设goerders,glayer跟回帖平行

   gorders = rs1("gorders")

   gLayer = rs1("glayer")

Else

  gorders = gorders + 256

  gLayer = gLayer + 1

End If

Else

  nextvalue = rs1("gorders")

  If (nextvalue - gorders) > 1 Then

   gorders = Int((gorders + nextvalue) / 2)

   gLayer = gLayer

  Else                             '跟跟贴平行

   gorders = rs1("gorders")

   gLayer = rs1("glayer")

End If

End If