动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
   Asp → 阅读文章

 bbs的树状结构算法

作者:鑫哥 来源:chinaasp 
阅读 4474 人次 , 2001-5-11 

数据库设计中order_value是用来排序的,具体实现是
**注意以下的讨论是对一个主题而言,就是对一棵树而言!
如果加一新贴那么 order_value=0
如果跟贴查比父贴 order_value大的order_value
如果有假设为next_value,那么新帖的
order_value为父贴的(order_value+next_value)/2;
如果有那么新帖的order_value为父贴的order_value+1000
也就是说如果对A贴跟贴,如果A为末贴,A的字帖的order_value为order_value(父)+1000,
不是末贴既找出比A大的order_value,新的order_value为两者的一半!
排序实现: order by groupid,order_value desc
**技巧如果想实现层次多一点可以每次加的多一点+100000,那样应该会好一点

***不足之处:
1:使用两个字段排序,速度有点慢
2:使用order_value是一个浮点数,使用float估计不够,还是使用double
3:只能实现理论上的无穷层实际上超过10层使用float有问题,使用double可能没有
4:插入是需要查找下一个order_value

Dim ordervalue, nextvalue As Double
sql = "select gorders where gId=" & gId & " and goders> " & gorders & " order by goders "
rs1.Open sql, conn1, adOpenForwardOnly, adLockOptimistic '查询比父贴大的
order_value
If (rs1.EOF And rs1.BOF) Then
gorders = gorders + 256
gLayer = gLayer + 1
Else
nextvalue = rs1("gorders")
If (nextvalue - gorders) > 1 Then
gorders = Int((gorders + nextvalue) / 2)
gLayer = gLayer
Else
'gorders,glayer跟回帖一样
End If
End If

End Sub
  

 本文Tags算法  
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:bbs的树状算法的补充程序
· 下一篇:带日期标注的日历控件
· 使用ASP生成包含随机数字的图片
· 如何更好更快的debug
· SUNWEN教程之----C#进阶(五)
· ASP数据库简单操作教程
· 实现WEB中的@虚拟域名系统(原理篇)


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077