如何递归生成 xml 文件
我有一个树形结构的表，想用递归的形式生成 下面效果的格式
现在我不知道子目录 开始和结束 怎么判断，并放入<ul>  </li>
程度部份
<%
Sub SubFl(FID,StrDis)


sql = "select * from c_sort  where parentid="& FID &" order by sortid"
rs.open sql,conn,1,1

If Not Rs.Eof Then
    Do While Not Rs.Eof
    EachAdd=EachAdd+1
    if EachAdd=Rdcount then
      
    end if  

 response.write "+s("sortname”）+"


    Call SubFl(Trim(Rs("sortid")),"&nbsp;&nbsp;" & Strdis) '递归子级分类
       Rs.Movenext:Loop
       If Rs.Eof Then
          Rs.Close
          Exit Sub
       End If
End If
Set Rs = Nothing

End Sub


%>


实现效果
<ul id="ddsubmenuside2" class="ddsubmenustyle blackwhite">
<li><a href="http://www.codefans.net">Item 1b</a></li>
<li><a href="#">Item 2b</a></li>
<li><a href="#">Item Folder 3b</a>
  <ul>
  <li><a href="#">Sub Item 3.1b</a></li>
  <li><a href="#">Sub Item 3.2b</a></li>
  <li><a href="#">Sub Item 3.3b</a></li>
  <li><a href="#">Sub Item 3.4b</a></li>
  </ul>
</li>
<li><a href="http://www.codefans.net">Item 4b</a></li>
<li><a href="#">Item Folder 5b</a>
  <ul>
  <li><a href="http://www.codefans.net">Sub Item 5.1b</a></li>
  <li><a href="#">Item Folder 5.2b</a>
    <ul>
    <li><a href="http://www.codefans.net">Sub Item 5.2.1b</a></li>
    <li><a href="#">Sub Item 5.2.2b</a></li>
    <li><a href="#">Sub Item 5.2.3b</a></li>
    </ul>
  </li>
</ul>
</a>
</li>
<li><a href="#">Item 6b</a></li>
</ul>
------解决方案--------------------
function getXml(value){
    var xml = "<value>";
    xml+=getXml(value); 
    xml += "</value>";
}