请教各位高手，这段代码如何该成树型结构！在线等待

<style type="text/css">
<!--
.style2 {color: #Ff6600}
-->
</style>

<table width="178" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="14">
<table cellspacing=0 cellpadding=0 width=170 height="20">
<tr>
<td> <img src="image/images/main/cpfl.gif" width="178"></td>
</tr>
</table>
</td>
</tr>

<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>
<td height="20" align="center">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_anclass order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>ĿǰûÓÐÉÌÆ··ÖÀà"
else
while not rs.eof
%>
<table width=100% cellspacing="0" cellpadding="0" border="0">
<tr align="center">
<td colspan=3 style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';"> <strong><span class="style2">【</span><font color="#FF6600"><a href=class.asp?lx=big&anid=<%=rs("anclassid")%> target="_blank"><b><font color="#FF6600"><%=rs("anclass")%></font></b></a>】</font></strong></td>
</tr>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_nclass where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then
%>
<tr>
<td colspan=2>暂无小分类</td>
</tr>
<%
else
i=0
while not rs_s.eof
%>
<tr>
<td width=7% ></td>
<td width=48% align=center style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';" ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
<%rs_s.movenext
if rs_s.eof then
else
%>
<td width=45% align=center style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';"><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
</tr>
<%
rs_s.movenext
end if%>
<%
wend
end if
%>
<tr>
<td colspan=3 height=1 background="images/bj_x1.gif" ></td>
</tr>
</table>
<%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%></td>
</tr>
</table>
</td>
</tr>
</table>