| 本月文章推荐 |
bbs的树状算法的补充程序发表日期：2001-5-11
|
|
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 |
| 上一篇：bbs的树状结构算法
人气:12150 下一篇：ASP.NET:访问Excel 电子表格 人气:12840 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
