While m > 1 txtwriter.WriteLine("</treenode>") m = m - 1 End While Case Is <= 0 txtwriter.WriteLine("<treenode text=''''" & strname & "'''' NavigateUrl=''''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "'''' Target=''''main1''''/>") ''''txtwriter.WriteLine("</treenode>")
m = Len(strid) / 2
While m > 1 txtwriter.WriteLine("</treenode>") m = m - 1 End While
End Select txtwriter.WriteLine("</TREENODES>") txtwriter.Close()
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
