PHPSMARTY双循环(递归)输出分类有关问题

<!--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->{foreach from=$classlist item=newsclass}
    {$newsclass.classname}
{/foreach}

<!--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->$sql = "select * from jh_newsclass where parentid = 0";
$result = $mysqli->query($sql);
while ($row = $result->fetch_row()) {
    $classlist[] = array(
        'id'=>$row[0],
        'classname'=>$row[2],
        'parentid'=>$row[1],
        'ispro'=>$row[3],    
        );
}
$result->close();
$mysqli->close();
$smarty->assign('classlist',$classlist);
$smarty->assign('webname',Webname);
$smarty->display('admin/left.htm');

<!--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->              新闻专题
<ul><li class="forumli">+--<img id="folder180" src="https://www.gxlcms.com/images/leaf.gif" width="18" height="18" align="absmiddle"><font color="">新闻动态</font></li><li class="forumli">+--<img id="folder180" src="https://www.gxlcms.com/images/leaf.gif" width="18" height="18" align="absmiddle"><font color="">美大专题</font></li><li class="forumli">+--<img id="folder180" src="https://www.gxlcms.com/images/leaf.gif" width="18" height="18" align="absmiddle"><font color="">月兔专题</font></li></ul>
    供求信息
              产品展示
<ul><li class="forumli">+--<img id="folder180" src="https://www.gxlcms.com/images/leaf.gif" width="18" height="18" align="absmiddle"><font color="">美大灶具</font></li><li class="forumli">+--<img id="folder180" src="https://www.gxlcms.com/images/leaf.gif" width="18" height="18" align="absmiddle"><font color="">月图厨柜</font></li><li class="forumli">+--<img id="folder180" src="https://www.gxlcms.com/images/leaf.gif" width="18" height="18" align="absmiddle"><font color="">集成效果</font></li></ul>

<!--
Code highlighting produced by Actipro CodeHighlighter (freeware)
http://www.CodeHighlighter.com/
-->
<%
dim strs
Set Rs = server.CreateObject(JH_RS)
sql = "select * from jh_newsclass where parentid = 0"
Rs.Open SQL,Conn,1,1
while not rs.eof
%>
<%
        set strs = conn.execute("select * from jh_newsclass where parentid = " & rs("id"))
        if strs.eof and strs.bof then
%>
    &newsclass=<%=rs("id")%><%if rs("ispro") then response.Write("&ispro=true")%>" target="main"><%=rs("classname")%>
<%
        else
%>
              <%=rs("classname")%>
<%
        end if
%>
        <%call showparentclass("+","--",rs("id"))%>
<%
rs.movenext
wend
rs.close
set rs = nothing
%>
<%
sub showparentclass(astr,tree,parentid)
    dim showparentclassrs,temprs
    set showparentclassrs = conn.execute("select * from Jh_newsclass where parentid = " & parentid)
    if showparentclassrs.eof then 
        exit sub
    else
    response.Write("<ul>")
        while not showparentclassrs.eof
            response.Write"<li class="" forumli""="">"
            set temprs = conn.execute("select * from Jh_newsclass where parentid = " & showparentclassrs("id"))
            if temprs.eof and temprs.bof then
                response.Write"" & astr & tree & "<img id="" folder180""="" src="" https:="" www.gxlcms.com="" images="" leaf.gif""="" width="" 18""="" height="" align="" absmiddle""=""><font color="" ""="">" & showparentclassrs("classname")&"</font>"
            else
                response.Write astr & tree & "<img id="" folder180""="" src="" images="" folderclosed.gif""="" width="" 18""="" height="" align="" absmiddle""="">" & showparentclassrs("classname")
            end if
            set temprs = nothing
            response.Write"</li>"
            call showparentclass(astr,tree&"--",showparentclassrs("id"))
        showparentclassrs.movenext
        wend
    response.Write("</ul>")
    end if
end sub
%>