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

ASP
asp下查询xml的实现代码
一个asp版XMLDOM操作类
ASP XML编程objXML.async = False
asp按关键字查询XML的代码
asp下用fso和ado.stream写xml文件的方法
SQL"不能为新插入的行确定标识"错误的解决方法
asp 类型转换函数大全
ASP存储过程开发应用详解
asp 静态页面的另一种思路
EasyASP v1.5发布(包含数据库操作类，原clsDbCtrl.asp)
ASP访问数量统计代码
asp中文数字验证码
Ajax+asp应用实例 注册模块，表单提交
将ASP记录集输出成n列的表格形式显示的方法
ASP 游标参数详解(ASP记录集)
关于ASP循环表格的问题之解答[比较详细]
ASP Recordset 分页显示数据的方法(修正版)
ASP ajax分页教程一
Asp Oracle存储过程返回结果集的代码
XMLHttp ASP远程获取网页内容代码

No. « 79 80 81 82 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 198 ::
收藏到网摘: 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