Function RecursionDeleteGroups(sID,sConn)
Dim RsRec
Set RsRec = sConn.Execute("select g_id from t_groups where g_nodeparentid="&sID)
IF RsRec.Eof Then
sConn.Execute("delete from t_groups where g_id="&sID)
Else
do while not RsRec.Eof
sConn.Execute("delete from t_groups where g_id="&sID)
RecursionDeleteGroups RsRec("g_id"),sConn
RsRec.MoveNext
Loop
End If
End Function
本组织和下级组织信息全部删除的递归函数
评论