排序“中值排序基数法实现树状结构”的补充

    由于一时疏忽，造成了此法“对于int类型的基数字段，对原始贴的回复只能有31个；numeric类型的基数字段，对原始贴的回复也不能超过120个”(实际上是对于int型字段，原始贴的回复第32个以上的树状结构显示开始紊乱，对于numeric型的基数字段，原始贴的回复从121个以上树状结构显示开始紊乱——回复并不会出问题)，这是由于计算机存储精度引起的。
    我们可以将加贴的存储过程修改一下(加进前面加上**号的行)以限制到了一定深度(在特定数据类型下，基数无法分辨)的时候不再以树状结构显示(而采用平显——平行显示，这样做虽然有点象折衷的做法，但在实际上由于浏览器等的限制——即使在深度100的时候能以树状结构显示，但从你的浏览器看来的树状结构的结果仍然不是清晰的——屏幕宽度不够，会折行呗)。

加贴存储过程：

CREATE PROCEDURE [add] keyid int,message varchar(50) OUTPUT  ———keyid为回复的贴子id号，如果是新贴则为0，message为出错信息
AS
  IF (keyid=0)
    INSERT INTO forum (rootid,deep,ordernum,……) values(0,0,0,……)
  ELSE
    BEGIN
     DECLARE rootid int,id int,deep int,begnum float,endnum float,ordernum float
     SELECT rootid=0,id=0,deep=0,begnum=0,endnum=0,ordernum=0
     SELECT rootid=rootid,id=id,begnum=ordernum,deep=deep from forum where id=keyid
     IF (id=0)
       BEGIN
        SELECT message='要回复的贴子已经被删除！'
        return
       END
     ELSE
       BEGIN
        IF (rootid=0) SELECT rootid=id  ——回复的是根贴，取其id为新加贴的rootid
        SELECT endnum=ordernum where rootid=rootid and ordernum>begnum order by ordernum
        IF (endnum=0)
          SELECT ordernum=begnum+65536   ——回复的是最后一贴，可以在此限制ordernum的范围以防溢出
        ELSE
**          BEGIN
**            IF endnum-begnum>1           ——精度仍能分辨。此处的1为精度标记，适合于基数字段为int，如果基数字段为numeric字段，请酌情选娶(呸呸呸，错别字来了)，目的是使基数精度过小时限制深度增加，避免显示时的紊乱
**              SELECT ordernum=(begnum+endnum)/2,deep=deep+1  ——关键，取排序基数中值
**            ELSE
**              SELECT ordernum=begnum     ——限制深度不能再增加，此贴与回复贴平行显示，如果存在parentid字段，则要取parentid和回复贴的parentid一样
**          END
**        INSERT into forum (rootid,deep,ordernum,……) values(rootid,deep,ordernum,……)
       END
    END
  Select message='成功'
  return

剪枝存储过程改为：

CREATE PROCEDURE [del] keyid int,message varchar(50) OUTPUT  ———keyid为要删除的贴子id号，如果是新贴则为0，message为出错信息
AS
DECLARE rootid int,id int,deep int,begnum float,endnum float
SELECT rootid=0,deep=0,begnum=0,endnum=0,id=0
SELECT id=id,begnum=ordernum,rootid=rootid,deep=deep from forum where id=keyid
IF (id=0)
  BEGIN
   SELECT message='该贴子不存在！"
   return
  END
ELSE
  BEGIN
   SELECT endnum=ordernum from forum where rootid=rootid and deep<=deep and ordernum>begnum order by ordernum
   IF (endnum=0)    ——要删除的是最后一个子枝或是根贴
     DELETE FROM forum where ordernum>=begnum and (rootid=rootid or id=rootid)
   ELSE
**     BEGIN
**       IF begnum=endnum
**         DELETE FROM forum where id=id and (rootid=rootid or id=rootid) ——已经受精度限制的枝，只删当前贴
**       ELSE
**         DELETE FROM forum where ordernum>=begnum and ordernum<endnum and (rootid=rootid or id=rootid)
**     END
  END


   虽然是限制，但此限制应该是必须的，因为实际上的回复深是不能太大的(就象我在这里灌到八九层的时候，讨饭猫就大叫“打住打住”了，呵呵)

   欢迎访问我的个人主页http://swuse.yeah.net(原来bigeagle是说我这一句话“目的明显啊”)