bbs的树状算法的补充程序
点击次数：27 次 发布日期：2008-11-26 15:52:18 作者：源代码网
|
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 源代码网供稿. |
