无限级分类的非递归实现(存储过程版）

--Print '更新本栏目的：Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
Print 'Order : '+Ltrim(Str(@nColumn_Order))
Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth,Column_Order = @nColumn_Order, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
IF @@Error <> 0
    Begin
    Set @Err = 5
    Goto theEnd
    End

--Print '更新本栏目下的所有子栏目的：Column_Path,Column_Depth,Column_Order'
             Update Tb_Column Set Column_Path = Replace(Column_Path,@oColumn_Path,@nColumn_Path),Column_Depth = Column_Depth + (@nColumn_Depth-@oColumn_Depth),Column_Order = Column_Order+( @nColumn_Order-@oColumn_Order) Where Column_Path like ''+@oColumn_Path+'%'
IF @@Error <> 0
    Begin
    Set @Err = 6
    Goto theEnd
    End

End
Else
Begin
--获取未来父节点的相关信息,并设置本节点的相关值
Select @nColumn_Depth = Column_Depth,@nColumn_Path = Column_Path From Tb_Column Where Column_ID = @Parent_ID
IF @nColumn_Depth Is  NULL Or @nColumn_Path Is Null
      Begin
      Set @Err = 8
      Goto theEnd
      End
Set @nColumn_Depth = @nColumn_Depth +1
Select @nColumn_Order =Max(Column_Order) From Tb_Column Where Column_ID = @Parent_ID Or  Column_Path like ''+@nColumn_Path+'%'
IF @nColumn_Order Is  NULL
      Begin
      Set @Err = 9
      Goto theEnd
      End

Set @nColumn_Path = @nColumn_Path +''+ Ltrim(Str(@Column_ID))

IF @nColumn_Order = @oColumn_Order+1 --如果新的父节点是原来位置上端最近一个兄弟,则所有节点的顺序都不改变

上一页 [1] [2] [3] [4] [5] [6] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:在ASP.NET Atlas中调用Web Service—处理错误 超时以及响应用户的取消操作

下一篇:借助工具 为BitComet轻松去广告