数据库：

代码：

<%
dim conn,dbpath,ConnString
dbpath="database.mdb"
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
set conn=server.createobject("adodb.connection")
conn.open ConnString

'该函数用于递归获取分类下所有子分类的ID
Function getChildIDs(id)
    Dim childIDs, rsChild
    Set rsChild = Server.CreateObject("ADODB.Recordset")
    rsChild.Open "SELECT * FROM category WHERE parentid="&id, conn, 1, 3
    '检查是否存在子分类
    If Not rsChild.EOF Then
        '循环获取子分类
        Do While Not rsChild.EOF
            '获取当前子分类ID
            childIDs = childIDs & rsChild("id") & ","
            '递归获取当前子分类下的子分类ID
            childIDs = childIDs & getChildIDs(rsChild("id"))
            rsChild.MoveNext
        Loop
    End If
    rsChild.Close
    Set rsChild = Nothing
    '返回当前分类下的所有子分类ID
    getChildIDs = childIDs
End Function

'获取分类1下所有子分类的ID
childIDs = getChildIDs(1)

'去除最后一个逗号
childIDs = Left(childIDs, Len(childIDs)-1)

'输出结果
Response.Write childIDs
%>

输出结果：

2,7,8,3