写如下一个Sub:
Sub ReadClassTree(ParentID)
strSQL = "SELECT ID, ClassName FROM t_Class WHERE ParentID = " & Cint(ParentID)
set objRS = objDB.Execute(strSQL)
while not objRS.EOF
Response.Write objRS("ClassName") '需要替换为自己的代码
ReadClassTree(objRS("ID") '递归
objRS.MoveNext
wend
End Sub
调用的时候,只要使用
ReadClassTree
就可以按照分类关系取出分类了。