Dom遍历XML的一个例子,结果为树状结构(4)

height=16></a>" 
         else 
            ttstr1= ttstr1 & "image/l-plus.gif" & chr(34) & " id=" & chr(34) & "l-" & ttid & chr(34) & "  
height=16></a>" 
         end if 
         ttstr1= ttstr1 & "<a href=" & chr(34) & "#" & chr(34)  
         ttstr1=ttstr1 & " onclick=" & chr(34) & "call OnClickDiv('" & ttid & "','" & ttlf & "')" 
         ttstr1=ttstr1 & chr(34) & ">"  
         ttstr1=ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)  
         ttstr1= ttstr1 & "image/c-fold.bmp" & chr(34) & " id=" & chr(34) & "p-" & ttid & chr(34) & "  
height=16></a>" 
         ttstr1= ttstr1 & "<a href=" & chr(34) & "#" & chr(34)  
         ttstr1=ttstr1 & " onclick=" &chr(34) & "call OnClickDiv('" & ttid & "','" & ttlf & "')" 
         ttstr1=ttstr1 & chr(34) & ">"  
         ttstr1=ttstr1 & ttname & "</a><br>" & vbcrlf 
         ttstr1=ttstr1 & "<div id=" & chr(34) & ttid & chr(34) & " style=display:none>" & vbcrlf 
      else 
         ttstr1 = ttstr1 & "<img border=" & chr(34) & "0" & chr(34) & " src=" & chr(34)  
         if ttlf=0 then 
            ttstr1 = ttstr1 & "image/t-line.gif" & chr(34) & " height=16>" 
         else 
            ttstr1 = ttstr1 & "image/l-line.gif" & chr(34) & " height=16>"