asp无限分级(递归调用)

数据库字段:id(自动编号),class_name(菜单名),parentid(父菜单id)

<%
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
%>