SQL无限分类存储过程整理2

模仿参考:动易无限分类

优点:算得上是真正的无限分类，不过ParentPath是有局限性,ClassID是标识列自动增一.

缺点:新增过程中ParentID不存在还没有完善，会插入NULL数据.后面三个存储过程还在测试。

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ArticleClass]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[ArticleClass]
GO

CREATE TABLE [dbo].[ArticleClass] (
[ClassID] [int] IDENTITY (1, 1) NOT NULL ,
[ClassName] [nvarchar] (100) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
[ParentID] [int] NULL ,
[ParentPath] [nvarchar] (255) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL ,
[Depth] [int] NULL ,
[RootID] [int] NULL ,
[Child] [int] NULL ,
[PrevID] [int] NULL ,
[NextID] [int] NULL ,
[OrderID] [int] NULL
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[ArticleClass] ADD
CONSTRAINT [DF_ArticleClass_ParentID_65E11278] DEFAULT (0) FOR [ParentID],
CONSTRAINT [DF_ArticleClass_Depth_66D536B1] DEFAULT (0) FOR [Depth],
CONSTRAINT [DF_ArticleClass_RootID_67C95AEA] DEFAULT (0) FOR [RootID],
CONSTRAINT [DF_ArticleClass_Child_68BD7F23] DEFAULT (0) FOR [Child],
CONSTRAINT [DF_ArticleClass_PrevID_69B1A35C] DEFAULT (0) FOR [PrevID],
CONSTRAINT [DF_ArticleClass_NextID_6AA5C795] DEFAULT (0) FOR [NextID],
CONSTRAINT [DF_ArticleClass_OrderID_6B99EBCE] DEFAULT (0) FOR [OrderID],
CONSTRAINT [PK_ArticleClass] PRIMARY KEY CLUSTERED
(
[ClassID]
) ON [PRIMARY]
GO

exec sp_addextendedproperty N'MS_Description', N'主键', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'ClassID'
GO
exec sp_addextendedproperty N'MS_Description', N'类别名称', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'ClassName'
GO
exec sp_addextendedproperty N'MS_Description', N'父类ID', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'ParentID'
GO
exec sp_addextendedproperty N'MS_Description', N'父类路径', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'ParentPath'
GO
exec sp_addextendedproperty N'MS_Description', N'深度', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'Depth'
GO
exec sp_addextendedproperty N'MS_Description', N'根类别编号', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'RootID'
GO
exec sp_addextendedproperty N'MS_Description', N'子类数量', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'Child'
GO
exec sp_addextendedproperty N'MS_Description', N'前一类别编号', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'PrevID'
GO
exec sp_addextendedproperty N'MS_Description', N'后一类别编号', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'NextID'
GO
exec sp_addextendedproperty N'MS_Description', N'排列顺序', N'user', N'dbo', N'table', N'ArticleClass', N'column', N'OrderID'

GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_Add_ArticleClass]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_Add_ArticleClass]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_Delete_ArticleClass]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_Delete_ArticleClass]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_Move_ArticleClass]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_Move_ArticleClass]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_Update_ArticleClass]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_Update_ArticleClass]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE PROCEDURE sp_Add_ArticleClass
@ParentID int,
@ClassName varchar(100)
as

declare @parentDepth int, @parentPath varchar(255), @parentName varchar(100)
declare @depth int
declare @maxRootID int, @RootID int
declare @orderId int,@prevOrderId int
declare @prevId int

select @maxRootID =ISNULL( max(RootID),0) From ArticleClass

-- 如果是加在根结点上
if @ParentID = 0
begin
select @prevId = ClassID from ArticleClass where RootID = @maxRootID and Depth = 0
set @ParentID = 0
set @parentPath = '0'
set @orderId = 0
set @RootID = @maxRootID + 1
set @prevId = 0
set @depth = 0
end

-- 如果不是加在根结点上
else if @ParentID > 0
begin
declare @childNumber int
select
@RootID = RootID,
@parentName = ClassName,
@depth = Depth + 1,
@parentPath = ParentPath,
@childNumber = Child,
@prevOrderId = OrderId
from ArticleClass where ClassID = @ParentID

set @orderId = @prevOrderId + 1

if @parentPath = '0'
begin
set @parentPath = cast(@ParentID as varchar)
end
else
begin
set @parentPath = @parentPath + ',' + cast(@ParentID as varchar)
end

if @childNumber > 0
begin
select @prevOrderId = max(OrderId) from ArticleClass where ParentID=@ParentID
select @prevId = ClassID from ArticleClass where ParentID=@ParentID and OrderId=@prevOrderId
set @orderId = @prevOrderId + 1
end
else
begin
set @prevId = 0
end
end

-- 插入一个新的类别
insert into ArticleClass
(ClassName,
ParentID,
ParentPath,
RootID,
OrderId,
Depth,
Child,
PrevId,
NextID)
values
(@ClassName,
@ParentID,
@parentPath,
@RootID,
@orderId,
@depth,
0,
@prevId,
0)

-- 更新受影响的行
declare @newClassID int
select @newClassID = max(ClassID) from ArticleClass
if @prevId > 0
update ArticleClass set NextID = @newClassID where ClassID = @prevId

if @ParentID > 0
begin
--父结点所拥有的子孙结点数加一
update ArticleClass set Child = Child + 1 where ClassID = @ParentID
--比被插入的OrderId大的通通加一
update ArticleClass
set OrderId = OrderId + 1
where @RootID = RootID and OrderId >= @orderId and ClassID != @newClassID
end

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE PROCEDURE sp_Delete_ArticleClass
@ClassID int=0,
@ErrInfo nvarchar(100)='' output
As

if(@ClassID=0)
begin
Set @ErrInfo='请选择要删除的类别'
return
end

if not exists(Select ClassID,RootID,Depth,ParentID,Child,PrevID,NextID From ArticleClass Where ClassID=@ClassID)
begin
--print('d')
Set @ErrInfo='栏目不存在，或者已被删除'
return
end

declare @RsChild int
declare @PrevID int
declare @NextID int
declare @Depth int
declare @ParentID int

Select @Depth=Depth,@ParentID=ParentID,@RsChild=Child,@PrevID=PrevID,@NextID=NextID From ArticleClass Where ClassID=@ClassID

if @RsChild>0
begin
--print('d')
Set @ErrInfo='要删除的栏目包含有子栏目，请先删除其子栏目后再进行删除本栏目的操作'
return

end

if(@Depth>0)
begin
update ArticleClass set child=child-1 where ClassID=@ParentID
end
delete From ArticleClass Where ClassID=@ClassID
if @PrevID>0
begin
update ArticleClass set NextID=@NextID where ClassID=@PrevID
end
if @NextID>0
begin
update ArticleClass set PrevID=@PrevID where ClassID=@NextID
end
Set @ErrInfo='成功'
return

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE PROCEDURE sp_Move_ArticleClass
@ParentID int=0,
@ClassID int=0,
@ErrInfo nvarchar(200)='' output
As

declare @oldParent int--原先分类的父类ID
declare @oldClassID int--原先分类的ID
declare @oldRootID int --原先根栏目ID
declare @oldParentPath nvarchar(100)--原父类栏目路径
declare @Depth int
declare @Child int
declare @PrevID int
declare @NextID int
declare @PrevOrderID int
declare @NewParentID int
declare @iParentID int
declare @iParentPath nvarchar(200)

declare @mParentPath nvarchar(100)

declare @ClassCount int

if not exists(Select * from ArticleClass Where ClassID=@ClassID)
begin
Set @ErrInfo='找不到指定的栏目'
return 1
end
else
begin
Select @oldParent=ParentID,@oldClassID=ClassID,@oldRootID=RootID,@oldParentPath=ParentPath,@Depth=Depth,@Child=Child,@PrevID=PrevID,@NextID=NextID
from ArticleClass
Where ClassID=@ClassID
end

if @oldParent<>@ParentID --更改了所在父路径要做一系列检查
begin
if @ParentID=@oldClassID
begin
Set @ErrInfo='目标栏目位置不能是自己！'
return 1
end

--判断所指定的栏目是否是外部栏目或者本栏目下的栏目
if @oldParent=0
begin
if @ParentID>0
begin--@ParentID=0
if not exists(Select RootID From ArticleClass where ClassID=@ParentID)
begin
Set @ErrInfo='顶部栏目不能移动'
return 1
end
else
begin
declare @currRootID int
Select @currRootID=RootID From ArticleClass where ClassID=@ParentID
if @oldRootID=@currRootID
begin
Set @ErrInfo='不能指定栏目下的栏目作为移动目标位置'
return 1
end

end
end

end
else
begin
if exists(select ClassID From ArticleClass where ParentPath like ''+@oldParentPath+','+Convert(nvarchar(100),@oldClassID)+'%' and ClassID=@ParentID)
begin
Set @ErrInfo='不能指定??目的下??目作?所??目'
return 1
end

end
end

if @oldParent=0
begin
set @NewParentID=@oldClassID
set @iParentID=0
end
else
begin
set @NewParentID=@oldParent
set @iParentID=@oldParent
end
--假如更改了所??目
--需要更新其原?所??目信息，包括深度、父?ID、?目?、排序、?承版主等?据
--需要更新?前所??目信息
declare @maxRootID int

select @maxRootID=isnull(max(RootID),0) From ArticleClass

if @NewParentID<>@ParentID and not(@iParentID=0 and @ParentID=0)
begin

if @PrevID>0
begin
update ArticleClass Set NextID=@NextID Where ClassID=@PrevID
end
if @NextID>0
begin
update ArticleClass Set PrevID=@PrevID Where ClassID=@NextID
end

print('@iParentID的值是:'+Convert(nvarchar(100),@iParentID))
print('@ParentID的值是:'+Convert(nvarchar(100),@ParentID))
--return

if @iParentID>0 and @ParentID=0 --如果原?不是一?分?改成一?分?
begin

Select @PrevID=ClassID From ArticleClass where RootID=@maxRootID and Depth=0
update ArticleClass set NextID=@ClassID where RootID=@maxRootID and Depth=0
set @maxRootID=@maxRootID+1

--更新?前?目?据
update ArticleClass set depth=0,OrderID=0,RootID=@maxRootID,ParentID=0,ParentPath='0',PrevID=@PrevID,NextID=0
where ClassID=@ClassID
--如果有下??目，?更新其下??目?据。下??目的排序不需考?，只需更新下??目深度和一?排序ID(RootID)?据
if @Child>0
begin
declare @i int
set @i=0
set @oldParentPath=@oldParentPath+','

--print('@oldParentPath的值是:'+Convert(nvarchar(100),@oldParentPath))
--print('Select ParentPath,ClassID From ArticleClass where ParentPath like ''%'+@oldParentPath+Convert(nvarchar(100),@ClassID)+'%''')

--return

declare @CurParentPath nvarchar(100)
declare @CurClassID int

Declare Cur CURSOR FOR
Select ParentPath,ClassID From ArticleClass where ParentPath like '%'+@oldParentPath+Convert(nvarchar(100),@ClassID)+'%'
Open Cur
Fetch Cur Into @CurParentPath,@CurClassID
While @@FETCH_STATUS=0
begin
set @i=@i+1
set @mParentPath=replace(@CurParentPath,@oldParentPath,'')

update ArticleClass Set depth=depth-@depth,RootID=@maxRootID,ParentPath=@mParentPath where ClassID=@CurClassID
Fetch Cur Into @CurParentPath,@CurClassID
end
Close Cur
deallocate Cur
end
update ArticleClass set child=child-1 where ClassID=@iParentID

end
else if @iParentID>0 and @ParentID>0 --如果是?一?分?目移?到其他分?目下
begin
--得到?前?目的下?子?目?

set @oldParentPath=@oldParentPath+','

Select @ClassCount=isnull(Count(ClassID),1) From ArticleClass Where ParentPath like '%'+@oldParentPath+Convert(nvarchar(100),@ClassID)+'%'
--?得目??目的相?信息

declare @Childtmp int
declare @ClassIDtmp int
declare @OrderIDtmp int
declare @ParentPathtmp nvarchar(200)
declare @RootIDtmp int
declare @depthtmp int

Select @Childtmp=Child,@ClassIDtmp=ClassID,@OrderIDtmp=OrderID,@ParentPathtmp=ParentPath,@RootIDtmp=RootID,@depthtmp=depth
from ArticleClass where ClassID=@ParentID

if @Childtmp>0
begin
--得到与本?目同?的最后一??目的OrderID
Select @PrevOrderID=Max(OrderID) From ArticleClass Where ParentID=@ClassIDtmp
--得到与本?目同?的最后一??目的ClassID
Select @PrevID=ClassID From ArticleClass Where ParentID=@ClassIDtmp and OrderID=@PrevOrderID
Update ArticleClass Set NextID=@ClassID Where ParentID=@ClassIDtmp and OrderID=@PrevOrderID
--得到同一父?目但比本?目??大的子?目的最大OrderID，如果比前一?值大，?改用??值。
declare @MaxOrderIDtmp int
if exists( Select Max(OrderID) from ArticleClass Where ParentPath like ''+@ParentPathtmp+','+Convert(nvarchar(100),@ClassIDtmp)+',%')
begin
Select @MaxOrderIDtmp= Max(OrderID) from ArticleClass Where ParentPath like ''+@ParentPathtmp+','+Convert(nvarchar(100),@ClassIDtmp)+',%'
if @MaxOrderIDtmp is not null
begin
if @MaxOrderIDtmp>@PrevOrderID
begin
set @PrevOrderID=@MaxOrderIDtmp
end
end
end
end
else
begin
set @PrevID=0
set @PrevOrderID=@OrderIDtmp
end
/*
print('@PrevID:'+Convert(nvarchar(200),@PrevID))
print('@PrevOrderID:'+Convert(nvarchar(200),@PrevOrderID))
print('@OrderIDtmp:'+Convert(nvarchar(200),@OrderIDtmp))
print('@ClassCount:'+Convert(nvarchar(200),@ClassCount))

print(@ParentPathtmp+','+Convert(nvarchar(100),@ClassIDtmp))
print('Update ArticleClass Set OrderID=OrderID+1 where RootID='+Convert(nvarchar(200),@RootIDtmp)+' and OrderID>'+Convert(nvarchar(200),@PrevOrderID))
return
*/

--在?得移???的?目?后更新排序在指定?目之后的?目排序?据
Update ArticleClass Set OrderID=OrderID+@ClassCount+1 where RootID=@RootIDtmp and OrderID>@PrevOrderID
--更新?前?目?据
Update ArticleClass Set depth=@depthtmp+1,OrderID=@PrevOrderID+1, RootID=@RootIDtmp,ParentID=@ParentID,ParentPath=@ParentPathtmp+','+Convert(nvarchar(100),@ClassIDtmp),PrevID=@PrevID,NextID=0 Where ClassID=@ClassID
--如果有子?目?更新子?目?据，深度?原?的相?深度加上?前所??目的深度
declare @i1 int
set @i1=0
declare @CurParentPath1 nvarchar(200)
declare @CurClassID1 int
Declare Cur1 Cursor SCROLL For
Select ParentPath,ClassID From ArticleClass where ParentPath like '%'+@oldParentPath+Convert(nvarchar(100),@ClassID)+'%' order by OrderID
Open Cur1
Fetch Cur1 Into @CurParentPath1,@CurClassID1
While @@FETCH_STATUS=0
begin
set @i1=@i1+1
set @iParentPath=@ParentPathtmp+','+Convert(nvarchar(100),@ClassIDtmp)+','+replace(@CurParentPath1,@oldParentPath,'')
--print('@iParentPath的值?'+@iParentPath)
update ArticleClass
Set depth=depth-@depth+@depthtmp+1,OrderId=@PrevOrderID+@i1,RootID=@RootIDtmp,ParentPath=@iParentPath
where ClassID=@CurClassID1
Fetch Cur1 Into @CurParentPath1,@CurClassID1
end
Close Cur1
Deallocate cur1
--更新所指向的上??目的子?目?
update ArticleClass set child=child+1 where ClassID=@ParentID
update ArticleClass set child=child-1 where ClassID=@iParentID
end
else --如果原?是一??目改成其他?目的下??目
begin
--得到移?的?目??
Select @ClassCount=count(ClassID) From ArticleClass Where RootID=@oldRootID

--?得目??目的相?信息
declare @Childtmp2 int
declare @ClassIDtmp2 int
declare @ParentPathtmp2 nvarchar(200)
declare @OrderIDtmp2 int
declare @RootIDtmp2 int
declare @ParentIDtmp2 int
declare @depthtmp2 int

select @Childtmp2=Child,@ClassIDtmp2=ClassID,@ParentPathtmp2=ParentPath,@RootIDtmp2=RootID,@ParentIDtmp2=ParentID,@depthtmp2=depth,@OrderIDtmp2=OrderID
From ArticleClass where ClassID=@ParentID

if @Childtmp2>0
begin
--得到与本?目同?的最后一??目的OrderID
select @PrevOrderID=isnull(Max(OrderID),0) From ArticleClass where ParentID=@ClassIDtmp2
Select @PrevID=isnull(ClassID,0) From ArticleClass Where ParentID=@ClassIDtmp2 and OrderID=@PrevOrderID
update ArticleClass Set NextID=@ClassID where ParentID=@ClassIDtmp2 and OrderID=@PrevOrderID
--得到同一父?目但比本?目??大的子?目的最大OrderID，如果比前一?值大，?改用??值。
declare @MaxOrderIDtmp2 int
if exists( Select Max(OrderID) from ArticleClass Where ParentPath like ''+@ParentPathtmp2+','+Convert(nvarchar(100),@ClassIDtmp2)+',%')
begin
Select @MaxOrderIDtmp2= Max(OrderID) from ArticleClass Where ParentPath like ''+@ParentPathtmp2+','+Convert(nvarchar(100),@ClassIDtmp2)+',%'
if @MaxOrderIDtmp2 is not null
begin
if @MaxOrderIDtmp2>@PrevOrderID
begin
set @PrevOrderID=@MaxOrderIDtmp2
end
end
end

end
else
begin
set @PrevID=0
set @PrevOrderID=@OrderIDtmp2
end

--在?得移???的?目?后更新排序在指定?目之后的?目排序?据
Update ArticleClass Set OrderID=OrderID+ @ClassCount+1 where RootID=@RootIDtmp2 and OrderID>@PrevOrderID
Update ArticleClass Set PrevID=@PrevID,NextID=0 where ClassID=@ClassID

declare @i2 int
Set @i2=0

declare @ParentIDtmp21 int
declare @ClassIDtmp21 int
declare @depthtmp21 int
declare @RootIDtmp21 int
declare @ParentPathtmp21 nvarchar(200)

Declare Cur2 Cursor SCROLL For
Select ParentID,ClassID,depth,RootID,ParentPath
From ArticleClass where RootID=@oldRootID order by OrderID
Open Cur2
Fetch Cur2 Into @ParentIDtmp21,@ClassIDtmp21,@depthtmp21,@RootIDtmp21,@ParentPathtmp21
While @@FETCH_STATUS=0
begin
Set @i2=@i2+1

if @ParentIDtmp21=0
begin
Set @oldParentPath=Convert(nvarchar(200),@ParentPathtmp2)+','+Convert(nvarchar(200),@ClassIDtmp2)

Update ArticleClass Set depth=depth+@depthtmp2+1,OrderId=@PrevOrderID+@i2,RootID=@RootIDtmp2,ParentPath=@oldParentPath,ParentID=@ParentID where ClassID=@ClassIDtmp21

end
else
begin
Set @oldParentPath=Convert(nvarchar(200),@ParentPathtmp2)+','+Convert(nvarchar(100),@ClassIDtmp2)+','+replace(@ParentPathtmp21,'0,','')
update ArticleClass set depth=depth+@depthtmp2+1,OrderID=@PrevOrderID+@i2,RootID=@RootIDtmp2,ParentPath=@oldParentPath where ClassID=@ClassIDtmp21
end
Fetch Cur2 Into @ParentIDtmp21,@ClassIDtmp21,@depthtmp21,@RootIDtmp21,@ParentPathtmp21
end
Close Cur2
Deallocate Cur2

update ArticleClass set child=child+1 where ClassID=@ParentID

end

end

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE PROCEDURE sp_Update_ArticleClass
@ClassID int=0,
@cRootID int =0,
@MoveNum int=0
As
--得到本栏目的PrevID,NextID
declare @PrevID int,@NextID int,@MaxRootID int,@LastRoot int

select @PrevID=PrevID,@NextID=NextID from ArticleClass where ClassID=@ClassID

--先修改上一栏目的NextID和下一栏目的PrevID
if @PrevID>0
begin
update ArticleClass set NextID=@NextID where ClassID=@PrevID
end

if @NextID>0
begin
update ArticleClass set PrevID=@PrevID where ClassID=@NextID
end

--declare @MaxRootID int
Select @MaxRootID=isnull(Max(RootID),0) From ArticleClass
--print(@MaxRootID )
set @MaxRootID=@MaxRootID+1 --4
--先将当前栏目和当前栏目的子栏目移动至最后根类别最后一个类别
Update ArticleClass Set RootID=@MaxRootID where RootID=@cRootID --@cRootID==2 RootID=4

--然后将位于本栏目前面栏目的RootID依次加一
declare @i int,@tRootID int ,@CurClassID int
set @i=1

Declare @tmpCursor CURSOR
--SET @tmpCursor = CURSOR SCROLL For
SET @tmpCursor = CURSOR SCROLL DYNAMIC SCROLL_LOCKS For

Select RootID,ClassID From ArticleClass where ParentID=0 and RootID<@cRootID order by RootID desc
for update
Open @tmpCursor
FETCH @tmpCursor INTO @tRootID,@CurClassID
While @@FETCH_STATUS=0
begin
set @LastRoot=@tRootID
-- print('@tRootID?里的值:'+Convert(nvarchar(100),@tRootID))
Update ArticleClass Set RootID=RootID+1 where RootID=@tRootID
set @i=@i+1
if @i> @MoveNum
begin
Update ArticleClass set PrevID=@ClassID where current of @tmpCursor
update ArticleClass set NextID=@CurClassID where ClassID=@ClassID
--print('Update ArticleClass Set PrevID='+convert(nvarchar(100),@ClassID)+' where ParentID=0 and RootID<'+convert(nvarchar(100),@cRootID)+'')
goto FAILURE
end

Fetch Next From @tmpCursor Into @tRootID,@CurClassID
--print('@tRootID?里的值:'+Convert(nvarchar(100),@tRootID))
end
FAILURE:
--print(@tRootID)

Fetch Next From @tmpCursor Into @tRootID,@CurClassID
--print(@LastRoot)

if @@fetch_status<>0
begin
Update ArticleClass Set PrevID=0 where ClassID=@ClassID
end

else
begin
Update ArticleClass set NextID=@ClassID where current of @tmpCursor
update ArticleClass set PrevID=@CurClassID where ClassID=@ClassID
end
CLOSE @tmpCursor
DEALLOCATE @tmpCursor

--然后再将当前栏目移动到相对应的位置，包括子栏目
update ArticleClass set RootID=@LastRoot where RootID=@MaxRootID
--print('update ArticleClass set RootID='+Convert(nvarchar(100),@tRootID)+' where RootID='+Convert(nvarchar(100),@MaxRootID))

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO