ASP.NET无限级分类的非递归实现(存储过程版)
![](/Images/OutliningIndicators/ContractedBlock.gif)
Code
1
通常情况下,我们更多的操作是读取目录,所以,在下面的实现中,读取我们只需要一Select语句就够了,不使用递归,理论上无限级~!
2
===================================================
3
表结构:
4
表名:Tb_Column
5
表结构(所有字段非空):
6
Column_ID int 主键(注:非标识)
7
Column_Name nvarchar(50)分类名称
8
Parent_ID int 父分类ID(默认值0)
9
Column_Path nvarchar(1000) 分类路径
10
Column_Depth int分类深度(默认值0)
11
Column_Order int排序(默认值0)
12
Column_Intro nvarchar(1000)分类说明
13![](/Images/OutliningIndicators/None.gif)
14
================================================
15
存储过程一:新建分类
16![](/Images/OutliningIndicators/None.gif)
17
CREATE PROCEDURE sp_Column_Insert
18
(
19
@Parent_ID int,
20
@Column_Name nvarchar(50),
21
@Column_Intro nvarchar(1000)
22
)
23
AS
24
Declare @Err As int
25
Set @Err=0
26![](/Images/OutliningIndicators/None.gif)
27
Begin Tran
28
--通过现有记录获取栏目ID
29
Declare @Column_ID As int
30
Declare @Column_Depth As int
31
Select @Column_ID = Max(Column_ID) From Tb_Column
32
IF @Column_ID Is Not Null
33
Set @Column_ID = @Column_ID+1
34
Else
35
Set @Column_ID = 1
36![](/Images/OutliningIndicators/None.gif)
37
--判断是否是顶级栏目,设置其Column_Path和Column_Order
38
Declare @Column_Path As nvarchar(1000)
39
Declare @Column_Order As int
40
IF @Parent_ID = 0
41
Begin
42
Set @Column_Path =Ltrim(Str(@Column_ID))
43
Select @Column_Order = Max(Column_Order) From Tb_Column
44
IF @Column_Order Is Not Null
45
Set @Column_Order = @Column_Order + 1
46
Else --如果没有查询到记录,说明这是第一条记录
47
Set @Column_Order = 1
48![](/Images/OutliningIndicators/None.gif)
49
--深度
50
Set @Column_Depth = 1
51
End
52
Else
53
Begin
54
--获取父节点的路径和深度
55
Select @Column_Path = Column_Path ,@Column_Depth = Column_Depth From Tb_Column Where
56![](/Images/OutliningIndicators/None.gif)
57
Column_ID=@Parent_ID
58
IF @Column_Path Is Null
59
Begin
60
Set @Err = 1
61
Goto theEnd
62
End
63![](/Images/OutliningIndicators/None.gif)
64
--获取同父节点下的最大序号
65
Select @Column_Order = Max(Column_Order) From Tb_PicColumn Where Column_Path like
66![](/Images/OutliningIndicators/None.gif)
67
''+@Column_Path+'|%' Or Column_ID = @Parent_ID
68
IF @Column_Order Is Not Null --如果序号存在,那么将该序号后的所有序号都加1
69
Begin
70
--更新当前要插入节点后所有节点的序号
71
Update Tb_Column Set Column_Order = Column_Order +1 Where Column_Order
72![](/Images/OutliningIndicators/None.gif)
73
>@Column_Order
74
--同父节点下的最大序号加上1,构成自己的序号
75
Set @Column_Order = @Column_Order + 1
76
End
77
Else
78
Begin
79
Set @Err=1
80
Goto theEnd
81
End
82![](/Images/OutliningIndicators/None.gif)
83
--父节点的路径加上自己的ID号,构成自己的路径
84
Set @Column_Path = @Column_Path + '|' + Ltrim(Str(@Column_ID))
85![](/Images/OutliningIndicators/None.gif)
86
--深度
87
Set @Column_Depth = @Column_Depth+1
88![](/Images/OutliningIndicators/None.gif)
89
End
90![](/Images/OutliningIndicators/None.gif)
91
Insert Into Tb_Column(Column_ID,Column_Name,Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Intro)
92![](/Images/OutliningIndicators/None.gif)
93
Values(@Column_ID,@Column_Name,@Parent_ID,@Column_Path,@Column_Depth,@Column_Order,@Column_Intro)
94![](/Images/OutliningIndicators/None.gif)
95
IF @@Error<>0
96
Begin
97
Set @Err=1
98
Goto theEnd
99
End
100![](/Images/OutliningIndicators/None.gif)
101
--更新当前记录之后的记录的ORDER
102
--Update Tb_Column Set Column_Order = Column_Order+1 Where Column_Order > @Column_Order
103![](/Images/OutliningIndicators/None.gif)
104
theEnd:
105
IF @Err=0
106
Begin
107
Commit Tran
108
Return @Column_ID
109
End
110
Else
111
Begin
112
Rollback Tran
113
Return 0
114
End
115
GO
116![](/Images/OutliningIndicators/None.gif)
117
===================================================
118
存储过程二:删除分类
119
CREATE PROCEDURE sp_Column_Delete
120
(
121
@Column_ID int
122
)
123
AS
124
Declare @Err As int
125
Set @Err = 0
126
Begin Tran
127
--首先查询该节点下是否有子节点
128
Select Column_ID From Tb_Column Where Parent_ID = @Column_ID
129
IF @@RowCount<>0
130
Begin
131
Set @Err = 1
132
Goto theEnd
133
End
134![](/Images/OutliningIndicators/None.gif)
135
--获取该节点的Column_Order,为了删除后整理其他记录的顺序
136
Declare @Column_Order As int
137
Select @Column_Order = Column_Order From Tb_Column Where Column_ID = @Column_ID
138
IF @Column_Order Is NUll
139
Begin
140
Set @Err =2
141
Goto theEnd
142
End
143![](/Images/OutliningIndicators/None.gif)
144
--更新其他记录的Column_Order
145
Update Tb_Column Set Column_Order = Column_Order -1 Where Column_Order >@Column_Order
146
IF @@Error<>0
147
Begin
148
Set @Err =3
149
Goto theEnd
150
End
151![](/Images/OutliningIndicators/None.gif)
152
--删除操作
153
Delete From Tb_Column Where Column_ID=@Column_ID
154
IF @@Error<>0
155
Begin
156
Set @Err =4
157
Goto theEnd
158
End
159![](/Images/OutliningIndicators/None.gif)
160
--更新其他记录的Column_ID
161
--Update Tb_Column Set Column_ID= Column_ID - 1 Where Column_ID >@Column_ID
162
--IF @@Error<>0
163
-- Begin
164
-- Set @Err =5
165
-- Goto theEnd
166
-- End
167![](/Images/OutliningIndicators/None.gif)
168
theEnd:
169
IF @Err = 0
170
Begin
171
Commit Tran
172
Return 0 --删除成功
173
End
174
Else
175
Begin
176
IF @Err=1
177
Begin
178
Rollback Tran
179
Return 1 --有子节点
180
End
181
Else
182
Begin
183
Rollback Tran
184
Return 2--未知错误
185
End
186
End
187
GO
188
=============================================
189
存储过程三:编辑分类
190
CREATE PROCEDURE sp_Column_Update
191
(
192
@Column_ID int,
193
@Parent_ID int,
194
@Column_Name nvarchar(50),
195
@Column_Intro nvarchar(1000)
196
)
197
AS
198
Declare @Err As int
199
Set @Err=0
200![](/Images/OutliningIndicators/None.gif)
201
Begin Tran
202![](/Images/OutliningIndicators/None.gif)
203
--获取修改前的:Parent_ID,Column_Depth,Column_Order
204
Declare @oParent_ID As int
205
Declare @oColumn_Depth As int
206
Declare @oColumn_Order As int
207
Declare @oColumn_Path As nvarchar(1000)
208![](/Images/OutliningIndicators/None.gif)
209
Select @oParent_ID = Parent_ID, @oColumn_Depth = Column_Depth,@oColumn_Order = Column_Order, @oColumn_Path = Column_Path From Tb_Column Where Column_ID = @Column_ID
210
IF @oParent_ID Is Null
211
Begin
212
Set @Err = 1
213
Goto theEnd
214
End
215![](/Images/OutliningIndicators/None.gif)
216
--如果父ID没有改变,则直接修改栏目名和栏目简介
217
IF @oParent_ID = @Parent_ID
218
Begin
219
Update Tb_Column Set Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
220
IF @@Error <> 0
221
Set @Err = 2
222
Goto theEnd
223
End
224![](/Images/OutliningIndicators/None.gif)
225![](/Images/OutliningIndicators/None.gif)
226
Declare @nColumn_Path As nvarchar(1000)
227
Declare @nColumn_Depth As int
228
Declare @nColumn_Order As int
229![](/Images/OutliningIndicators/None.gif)
230
--获取当前节点作为父节点所包含的节点数[包括自身] 注:如果返回 “1” 说明是单节点
231
Declare @theCount As int
232
Select @theCount = Count(Column_ID) From Tb_Column Where Column_ID=@Column_ID Or Column_Path like ''+@oColumn_Path+'|%'
233
IF @theCount Is Null
234
Begin
235
Set @Err = 3
236
Goto theEnd
237
End
238![](/Images/OutliningIndicators/None.gif)
239
IF @Parent_ID=0 --如果是设置为顶级节点,将节点设置为最后一个顶级节点
240
Begin
241
--Print '设置为顶级栏目'
242
Set @nColumn_Path = Ltrim(Str(@Column_ID))
243
Set @nColumn_Depth =1
244![](/Images/OutliningIndicators/None.gif)
245
Select @nColumn_Order = Max(Column_Order) From Tb_Column
246
IF @nColumn_Order Is NULL
247
Begin
248
Set @Err = 4
249
Goto theEnd
250
End
251![](/Images/OutliningIndicators/None.gif)
252
Set @nColumn_Order = @nColumn_Order - @theCount + 1
253![](/Images/OutliningIndicators/None.gif)
254
--更新三部分 1 节点本身 2 所有子节点 2 本树更改之前的后面记录的顺序
255
--Print '更新本栏目之前位置后面的所有栏目[不包括本栏目下的子栏目]的:Column_Order'
256
Update Tb_Column Set Column_Order = Column_Order-@theCount Where (Column_Order >@oColumn_Order) And (Column_Path Not like ''+@oColumn_Path+'|%')
257
IF @@Error <> 0
258
Begin
259
Set @Err = 7
260
Goto theEnd
261
End
262![](/Images/OutliningIndicators/None.gif)
263
--Print '更新本栏目的:Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
264
Print 'Order : '+Ltrim(Str(@nColumn_Order))
265
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
266
IF @@Error <> 0
267
Begin
268
Set @Err = 5
269
Goto theEnd
270
End
271![](/Images/OutliningIndicators/None.gif)
272
--Print '更新本栏目下的所有子栏目的:Column_Path,Column_Depth,Column_Order'
273
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+'|%'
274
IF @@Error <> 0
275
Begin
276
Set @Err = 6
277
Goto theEnd
278
End
279![](/Images/OutliningIndicators/None.gif)
280![](/Images/OutliningIndicators/None.gif)
281
End
282
Else
283
Begin
284
--获取未来父节点的相关信息,并设置本节点的相关值
285
Select @nColumn_Depth = Column_Depth,@nColumn_Path = Column_Path From Tb_Column Where Column_ID = @Parent_ID
286
IF @nColumn_Depth Is NULL Or @nColumn_Path Is Null
287
Begin
288
Set @Err = 8
289
Goto theEnd
290
End
291
Set @nColumn_Depth = @nColumn_Depth +1
292
Select @nColumn_Order =Max(Column_Order) From Tb_Column Where Column_ID = @Parent_ID Or Column_Path like ''+@nColumn_Path+'|%'
293
IF @nColumn_Order Is NULL
294
Begin
295
Set @Err = 9
296
Goto theEnd
297
End
298![](/Images/OutliningIndicators/None.gif)
299
Set @nColumn_Path = @nColumn_Path +'|'+ Ltrim(Str(@Column_ID))
300![](/Images/OutliningIndicators/None.gif)
301
IF @nColumn_Order = @oColumn_Order+1 --如果新的父节点是原来位置上端最近一个兄弟,则所有节点的顺序都不改变
302
Begin
303
Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
304
IF @@Error <> 0
305
Begin
306
Set @Err = 10
307
Goto theEnd
308
End
309
End
310![](/Images/OutliningIndicators/None.gif)
311
Set @nColumn_Order = @nColumn_Order + 1
312![](/Images/OutliningIndicators/None.gif)
313
--更新三部分 1 本树更改之前的后面(或前面)记录的顺序 1 节点本身 3 所有子节点
314
--分为向上移或象下移
315
--Print '更新本栏目之前位置后面的所有栏目[或者本栏目之后位置] [不包括本栏目下的子栏目]的:Column_Order'
316
IF @nColumn_Order < @oColumn_Order
317
Begin
318
Update Tb_Column Set Column_Order = Column_Order+@theCount Where Column_Order<@oColumn_Order And Column_Order >=@nColumn_Order And (Column_Path Not like ''+@oColumn_Path+'|%') And Column_ID<>@Column_ID
319
IF @@Error <> 0
320
Begin
321
Set @Err = 12
322
Goto theEnd
323
End
324
End
325
Else
326
Begin
327
Update Tb_Column Set Column_Order = Column_Order-@theCount Where Column_Order >@oColumn_Order And Column_Order<@nColumn_Order And (Column_Path Not like ''+@oColumn_Path+'|%') And Column_ID<>@Column_ID
328
IF @@Error <> 0
329
Begin
330
Set @Err = 13
331
Goto theEnd
332
End
333
End
334![](/Images/OutliningIndicators/None.gif)
335
--Print '更新本栏目的:Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
336
Print 'Order : '+Ltrim(Str(@nColumn_Order))
337
IF @nColumn_Order > @oColumn_Order
338
Set @nColumn_Order = @nColumn_Order - @theCount
339
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
340
IF @@Error <> 0
341
Begin
342
Set @Err = 10
343
Goto theEnd
344
End
345![](/Images/OutliningIndicators/None.gif)
346
--Print '更新本栏目下的所有子栏目的:Column_Paht,Column_Depth,Column_Order'
347
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+'|%'
348
IF @@Error <> 0
349
Begin
350
Set @Err = 11
351
Goto theEnd
352
End
353
End
354![](/Images/OutliningIndicators/None.gif)
355
theEnd:
356
IF @Err<>0 --如果有错误则返回错误号
357
Begin
358
Rollback Tran
359
Return @Err
360
End
361
Else --如果没有错误就返回0
362
Begin
363
Commit Tran
364
Return 0
365
End
366
GO
367
=========================================
368
存储过程四:显示分类(只是一条select语句)
369
分类列表:
370
CREATE PROCEDURE sp_Column_List
371
AS
372
SELECT Column_ID, Column_Name, Parent_ID, Column_Path, Column_Depth,
373
Column_Order, Column_Intro
374
FROM Tb_Column
375
ORDER BY Column_Order
376
GO
原文地址:https://www.cnblogs.com/zhangchenliang/p/1034135.html