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

    由于一时疏忽，造成了此法“对于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=@root