asp无限分级(递归调用)

　　<%

　　dim m

　　m=0

　　call ShowTree(0)%>

　　<%

　　Sub ShowTree(parentID)

　　dim s

　　m=m+1

　　Dim rs

　　Set rs = Server.CreateObject("ADODB.RecordSet")

　　sql="Select class_id,class_name FROM [WMS_Class] where class_father_id="&Cint(parentID)

　　rs.open sql,Conn,1,1

　　if rs.eof and m = 1 then

　　response.Write("该频道暂无栏目")

　　end if

　　Do While Not rs.Eof

　　response.Write rs(0)

　　for n=1 to m

　　if n = m and m = 1 then

　　Response.Write ("╋")

　　elseif n = 1 then

　　Response.Write ("　")

　　elseif n = m then

　　Response.Write ("├")

　　else

　　Response.Write ("│")

　　end if

　　next

　　response.Write rs(1)&"<br>"

　　Call ShowTree(rs(0))

　　m=m-1

　　rs.Movenext

　　Loop

　　End Sub

　　%>