|
|
|
bbs的树状算法的补充程序
作者:佚名 来源:一亩三分地 点击: 日期:2007-03-28 |
|
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
|
|
|
|
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【论坛讨论】 |
 相关文章: |
|
|
文章评论:(条) |
|
|
|
|
责任编辑:一分 声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。 |
|
设为主页
收藏本站
