[讨论]ASP无限分类的删除

[这个贴子最后由chinanic在 2007/01/19 06:18am 第 1 次编辑]

我是把某分类以下的所有分类ID找出来，然后一起删。。
期待更多的好方法。

1. ';删除分类
2. Sub Del()
3.     ID=CLng(Request("ID"))
4.     sql="Delete from Class where ID="&ID
5.     conn.Execute(sql)
6.     AllID=ID
7.     Set rs=Server.CreateObject("ADODB.RecordSet")
8.     sql="select * from Class where ParentID="&ID
9.     rs.open sql,conn,1,1
10.     if not(rs.eof and rs.bof) then
11.         while not rs.eof
12.             ID=rs("ID")
13.             AllID=AllID&"|"&ID
14.             Call ReClassDel(ID)
15.             rs.movenext
16.         wend
17.     End if
18.     rs.close
19.     IDArr=Split(AllID,"|")
20.     For i = 0 to UBound(IDArr)
21.         sql="Delete from Class where ID="&IDArr(i)
22.         conn.Execute(sql)
23.     Next
24. ';这句是调用一个消息函数，通知用户删除成功
25.     Call Msg("53")
26. End Sub
27. Sub ReClassDel(ID)
28.     Set rs_sub=Server.CreateObject("ADODB.RecordSet")
29.     sql_sub="select * from Class where ParentID="&ID
30.     rs_sub.open sql_sub,conn,1,1
31.     while not rs_sub.eof
32.         ID_sub=rs_sub("ID")
33.         AllID=AllID&"|"&ID
34.         Call ReClassDel(ID_sub)
35.         rs_sub.movenext
36.     wend
37.     rs_sub.close
38. End Sub

复制代码