</style> </HEAD> <BODY leftMargin=0 rightMargin=0 topMargin=0 border=0> <bold>树形菜单演示程序</bold><br> <table border=0> <tr><td nowrap> <span id='oSpanroot' border=0></span><SCRIPT LANGUAGE=javascript>createChildNode("root",0);</SCRIPT></td></tr> </table> </BODY> </HTML> -------xtree.asp------------ <%@ Language=VBScript %> <% Response.CharSet="GB2312" Response.ContentType="text/html" '''''''''''''''''''''''''''''''Server code start''''''''''''''''''''''''''''''' dim parId,nodeLayer parid=Request.QueryString("parId") nodeLayer=cint(Request.QueryString("nodeLayer")) if(parid="") then Response.Write("root id can't is null") Response.End() end if if(nodeLayer<0) then nodeLayer=0 end if %> <% strconn="at" strsql="select * from tree where par='"&parid&"'" |