Dim group_list Function GetGroupList(groupid) Set Rs= Server.CreateObject("ADODB.Recordset") if groupid="" then Sql = "SELECT group_id FROM [group] WHERE parent_id is null " else Sql = "SELECT group_id FROM [group] WHERE parent_id = "&groupid end if Rs.Open Sql,Conn,1,1 RsCount = Rs.RecordCount For i = 0 To RsCount - 1 group_id=Rs("group_id") group_list=group_list&","&group_id
GetGroupList(group_id) Rs.MoveNext Next Rs.Close Set Rs = Nothing GetGroupList=Mid(group_list,2,Len(group_list)-1) END Function GetGroupList(group_id)不该有
Function GetGroupList(groupid)
Set Rs= Server.CreateObject("ADODB.Recordset")
if groupid="" then
Sql = "SELECT group_id FROM [group] WHERE parent_id is null "
else
Sql = "SELECT group_id FROM [group] WHERE parent_id = "&groupid
end if
Rs.Open Sql,Conn,1,1 RsCount = Rs.RecordCount For i = 0 To RsCount - 1
group_id=Rs("group_id")
group_list=group_list&","&group_id
GetGroupList(group_id)
Rs.MoveNext
Next
Rs.Close
Set Rs = Nothing
GetGroupList=Mid(group_list,2,Len(group_list)-1)
END Function
GetGroupList(group_id)不该有