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&"'"
''SQL 語(yǔ)句書(shū)寫(xiě)要求：在記錄集的前面三個(gè)字段必須依次為：row_id（惟一的主鍵）、name（菜單條顯示的內(nèi)容）、par_id（父節(jié)點(diǎn)row_id),其它根據(jù)需要輸出與顯示
set conn=server.createobject("ADODB.connection")
conn.open strconn

set rs=server.createobject("ADODB.Recordset")
rs.open strsql,conn,3,3
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.jpg'>")
j=j 1
wend
Response.Write("<img id='objNode"&row_id&"' style='cursor:hand' src='../../open.jpg' onclick=javascript:createChildNode('"&row_id&"',"&nodeLayer 1&") border=0 align='absmiddle'>")
Response.Write("<img src='../../blank.jpg' border=0 align='absmiddle'>")
Response.Write("<a class=item href='../../view.ASP?id="&row_id&"' target='mainFrame'>"&Trim(name)&"</a></br>") '項(xiàng)目?jī)?nèi)容
Response.Write("<span id='oSpan"&row_id&"' ></span>") '子節(jié)點(diǎn)內(nèi)容區(qū)域
i=i 1
rs.MoveNext
wend
'''''''''''''''''''''''''''''''''''''''''Server Code END ''''''''''''''''''''''''''''''''''
%>

---------xtree.js-----------------------------------------------------------------------------

function getChildTree(parId,nodeLayer)
//parId:=夫節(jié)點(diǎn)id,nodeLayer:=子節(jié)點(diǎn)所屬層次
{
var XMLhttp = new ActiveXObject ("Microsoft.XMLHTTP");
XMLhttp.Open("get", "xtree.ASP?parId=" parId "&nodeLayer=" nodeLayer, false);
XMLhttp.Send("Author:taojianbo;Version:2.0");
return XMLhttp.responseText;
}

function showHide(objid)
//顯示，隱藏區(qū)域，達(dá)到菜單顯示的目的
//objid:=區(qū)域?qū)ο驣D的parid部分
{
var temp;
eval("temp=oSpan" objid ".style.display");
if(temp=="block")
{
eval("oSpan" objid ".style.display='none'");