有人知道这个问题吗？（树形控制）来者有分！！！

[码视野]

有人知道用如何树形菜单控制页面吗 ？就象http://www.codeclub.net/bbs/中的左边的菜单控制右边的论坛页面那样，我试了，但是老是在左边点击了就在左边显示！！！无限感谢！！

[lea1981]

<a href=.... ... target="右边的frame name">kkk</a>

[parisli]

使用帧就OK了：）

[逍遥小贼]

使用帧frame,就像一楼写的那样，自己在完善一下

[码视野]

有点不是很清楚，我刚学，能说的具体点吗 ？

[码视野]

是不是右边的要设置为一个frame？

[masterme]

用表格
左右两列！然后在右边的列中用
<frame src="..."></frame>然后在其他的连接上用一楼的就可以了啊

[allserver]

<%@ 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 parid="root" then parid=int(0)
if(nodeLayer<0) then
nodeLayer=0
end if
%>
<%
strconn="DBQ="+server.mappath("xTree.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
''SQL 语句书写要求：在记录集的前面三个字段必须依次为：row_id（惟一的主键）、name（菜单条显示的内容）、par_id（父节点row_id),其它根据需要输出与显示
set conn=server.createobject("ADODB.connection")
conn.open strconn
strsql="select * from tree where par_id="& parid & ""
'Response.Write strsql
set rs=server.createobject("ADODB.Recordset")
rs.open strsql,conn,1,1
i=0
dim row_id
row_id=""
while not rs.EOF
row_id=rs.Fields("row_id").Value
name=rs.Fields("name").Value
j=0

while j<nodeLayer
Response.Write("<img src='blank.gif'>")
j=j+1
wend
Response.Write("<img id='objNode"&row_id&"' style='cursor:hand' src='jumpback.gif' onclick=javascript:createChildNode('"&row_id&"',"&nodeLayer+1&") border=0 align='absmiddle'>")
Response.Write("<img src='blank.gif' border=0 align='absmiddle'>")
Response.Write("<a class=item href='view.asp?id="&row_id&"' target='mainFrame'>"&Trim(name)&"</a></br>") '项目内容
Response.Write("<span id='oSpan"&row_id&"' ></span>") '子节点内容区域
i=i+1
rs.MoveNext
wend
'''''''''''''''''''''''''''''''''''''''''Server Code END ''''''''''''''''''''''''''''''''''
%>

[allserver]

function getChildTree(parId,nodeLayer)
//parId:=夫节点id,nodeLayer:=子节点所属层次
{
var xmlhttp = new ActiveXObject ("Microsoft.XMLHTTP");
xmlhttp.Open("get", "xtree.asp?parId="+parId+"&nodeLayer="+nodeLayer, false);
xmlhttp.Send("");
return xmlhttp.responseText;
}

function showHide(objid)
//显示，隐藏区域，达到菜单显示的目的
//objid:=区域对象ID的parid部分
{
var temp;
eval("temp=oSpan"+objid+".style.display");
if(temp=="block")
{
eval("oSpan"+objid+".style.display='none'");
eval("objNode"+objid+".src='jumpback.gif'");
}
else
{
eval("oSpan"+objid+".style.display='block'");
eval("objNode"+objid+".src='collapse.gif'");
}
}//end function

function createChildNode(childNodeId,nodeLayer)
//如果子节点内容为空，则初始化，并更新数据
//childNodeId:=子节点对象Id的parid部分
{
var temp;
eval("temp=oSpan"+childNodeId+".innerHTML");
if(temp=="")
{
eval("oSpan"+childNodeId+".innerHTML='<div align=right>LOADING...</div><br>'");
temp=new String(getChildTree(childNodeId,nodeLayer));
if(temp.length!=0)
{
eval("oSpan"+childNodeId+".innerHTML=temp");
eval("objNode"+childNodeId+".src='collapse.gif'");//变为减号
}
else
{//如果temp内容为空，说明未找到子树，则该节点为叶节点，更改相关属性
eval("objNode"+childNodeId+".src='leaf.gif'");//更改图标
eval("objNode"+childNodeId+".onclick=''"); //取消click事件
eval("oSpan"+childNodeId+".innerHTML=temp");//内容为空
}
}
else
{ showHide(childNodeId);
}
}

[zyizyizyi]

不就是用框架吗？

[zyizyizyi]

也不要设么控件的，我自己就做了一个可无限生成树的VB程序

[码视野]

那如何控制在右边显示呢 ？我按照上面做了"target="RightFrame"时，显示的是新窗口！！