这不就是我用的无限级分类吗,你怎么拿出来晒干
'==================================
'=功 能:读取分类下所有小分类ID,输出结果例子 ,2,10,14
'==================================
function ReadSubId(id)
Dim c_sql,c_rs,cat_id,F_List
c_sql="Select id From [Scs_cat] where upid="&id
Set c_rs=Server.Createobject("adodb.recordset")
c_rs.open c_sql,Conn,1,1
If Not(c_rs.Bof Or c_rs.Eof) Then
Do While Not c_rs.Eof
cat_id=c_rs(0)
F_List=F_List&","&cat_id
F_List=F_List&ReadSubId(cat_id)
c_rs.MoveNext
Loop
End If
c_rs.Close:Set c_rs=Nothing
ReadSubId=F_List
End Function