<%depth=0
'depth 记忆类别的深度 顶层类深度为1
function getchild(pid)
depth=depth+1
sql="select id,menuname from newcate where Id1="&pid
set rs=cnn.Execute(sql)
do while not rs.eof
aa=1
bb=rs("id")
Response.Write(string(depth,".")&bb&rs("menuname")&"<br/>")
'此处可嵌套循环
getchild(rs("id"))
rs.movenext()
loop
depth=depth-1
end function
getchild(14)'14是顶级ID或parentid值
%>
sql="select * from [a] where ParenetID=0"
set rs=conn.execute(sql)
if rs.eof then
'这里表示没有栏目
else
response.write ("id") '输出一级栏目ID号
elementid(rs("id"))
end if
rs.close
set rs=nothing
Sub elementid(TmpID)
sqlt="select * from [a] where ParentID="&TmpID
set rstt=conn.execute(sqlt)
if rstt.eof then
elementid="无下级了栏目"
exit Sub
else
response.write rstt("id") '输出下级的每一栏目ID号
Call elementid(rstt("id"))
end if
rstt.close
End Sub