我是不是提错地方了啊,嘿嘿,这个是vbscript

解决方案 »

  1.   

    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)不该有