Salad UN

既然有人在留言里提到递归了，那么我也贴上一段递归的程序吧，说明下，这段递归不是我写的，我也不知道怎么用。

最后是用了悟空的递归程序才实现了后台的所有栏目递归查询后生成文件 详细察看这篇吧 kingcms改进之递归多级子栏目一键生成所有文章

Function king_tag_products_getallsublist(listid,result)
 Dim rs,data,i,currentlistid
 set rs=conn.execute("select listid from king__products_list where listid1="&listid&";")
  if not rs.eof and not rs.bof Then
   data=rs.getrows()
   For i=0 To UBound(data,2)
    currentlistid=data(0,i)
    If Len(result)>0 Then
     
     result=result&","&data(0,i)
     Call king_tag_products_getallsublist(currentlistid,result)
    Else
    
     result=data(0,i)
     Call king_tag_products_getallsublist(currentlistid,result)
    End If
   Next
  End if
  rs.close
 Set rs=Nothing
 king_tag_products_getallsublist=result
End Function

这段也就贴在这，有问题就说说吧。