asp无限分类（递归调用）

数据库字段：ID（自动编号），class_name（菜单名称），ParentID（父菜单ID）
复制代码代码如下所示：
<
定义m
M = 0
叫ShowTree（0）%>
<
Sub ShowTree（ParentID）
暗淡的
m＝m + 1
昏暗的RS
集= server.createobject（ADODB。记录集）
Sql= Select class_id, class_name FROM {WMS_Class} where class_father_id= Cint (parentID)
rs.open sql，Conn，1,1
如果rs.eof m = 1
响应。写入（通道没有列）
最后如果
而不是卢比EOF
响应：写入RS（0）
对于n＝1到m
如果n＝m和m＝1
响应。写入（）
N = 1
响应。写（）
n = m然后
响应。写入（）
其他的
响应。写入（）
最后如果
下一个
响应。写入RS（1）
叫ShowTree（RS（0））
M = m-1
MoveNext卢比
环
端子
%>