当前位置: 首页 > 图文教程 > 网络编程 > ASP > bbs的树状算法的补充程序

ASP
ASP编程中15个非常有用的例子 （二）
ASP与JSP的比较(一)
ASP与JSP的比较(二)
ASP中五种连接数据库的方法
从ASP调用SQL中的图像
用排序串字段实现树状结构（例程：连接字串）
用排序串字段实现树状结构（例程：删除贴子）
用排序串字段实现树状结构（例程：回复表单）
用排序串字段实现树状结构（例程：显示贴子内容）
用排序串字段实现树状结构（例程：显示树）
用排序串字段实现树状结构（存储过程）
用排序串字段实现树状结构（库结构）
用排序串字段实现树状结构（原理）
remote script文档(转载自微软)(一)
remote script文档(转载自微软)(二)
remote script文档(转载自微软)(三)
remote script文档(转载自微软)(四)
remote script文档(转载自微软)(五)
remote script文档(转载自微软)(六)
remote script文档(转载自微软)(七)

No. « 187 188 189 190 »

技术文章搜索

关键字

ASP 中的 bbs的树状算法的补充程序

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 103 ::
收藏到网摘: n/a

  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