在Web界面下如何生成像资源管理器一样的树形目录（版本2.0） eeff（原作）
关键字 数形目录 XML ASP Web Javascript
树形目录显示程序
问题描述：
在我们项目中常常会出现自关联的数据表，如果我们从整体看去，整个表就呈现为一个树形数据结构（对于复杂的情况，它可能变成一个图）。当我们对这个表进行显示，编辑时，如果不采用好的表现形式，会显得很笨拙，为此，我们开发这样的树形结构的程序。在上一版本中，我们使用的是递归算法来实现，在我们对这个算法评测时发现，对于拥有成千上万条记录的数据库就不再能胜任了，所以在新的算法版本中，我们使用了XML技术，动态的发现数据，以解决一次从服务器下在大量数据的尴尬，同时也遍免了如果表数据结构呈现为图时就会进入死循环的错误。
实际思路：
1、 初始显示时只显示根与二级节点，根与二级节点同在一层次
2、 点击一节点，如果它的子节点区域对象不存在，则建立对象，同时下载数据更新数据，显示所有子节点。
3、 每个节点在建立后都就有相同的功能，如检查子节点是否存在，显示隐藏子节点等等
4、 DHTML+XML+ASP+CSS同时使用
技术难点：
1、 使用xmlhttp接口时乱码问题：
因为在asp输出页面中，缺省的编码方案并不是中文的，那么在客户端页面的xmlhttp中解释时，就会以缺省的方案解析，所以就会出现乱码。为此，我们在Server端的asp页面中，加入如下代码定义编码方案：
Response.CharSet="GB2312"
Response.ContentType="text/html"
2、 如何在界面上保持上一版本的风格（类资源管理器形式）：
在上一版本中，所有的页面内容都是一气呵成的，在控制上采用递归等思想，所有时的界面相对友好，当时本版中的机制发生了变化，内容是有多次合成的
关键问题，img ,span 对象的id 如何确定
经过求证，在界面上，本版本的界面难以与第一界面相同，所以只能保留一部分，但是总体来说，新界面同样也能满足需要
因为在这里不好使用附件，所以只能贴源码了：
---xtree.html-------------------------------------------------------------------
1<html>
2<head>
3<meta content="Microsoft Visual Studio 6.0" name="GENERATOR"/>
4<script language="javascript" src="xtree.js">
5</script>
6<style type="text/css">
7<!--
8a:link { font-size: 14px; text-decoration: none; color: #0000FF}
9a:visited { font-size: 14px; color: #0000FF; text-decoration: none}
10a:hover { font-size: 14px; color: #FF0000; background-color: #CCCC99; text-decoration: none}
11a:active { font-size: 14px; color: #FFFFFF; background-color: #191970; text-decoration: none}
12.item{ font-size:14px}
13\-->
14</style>
15</head>
16<body border="0" leftmargin="0" rightmargin="0" topmargin="0">
17<bold>树形菜单演示程序</bold><br/>
18<table border="0">
19<tr><td nowrap="">
20<span border="0" id="oSpanroot"></span><script language="javascript">createChildNode("root",0);</script></td></tr>
21</table>
22</body>
23</html>
-------xtree.asp---------------------------------------------------------------
1@ Language=VBScript
1
2Response.CharSet="GB2312"
3Response.ContentType="text/html"
4'''''''''''''''''''''''''''''''Server code start'''''''''''''''''''''''''''''''
5dim parId,nodeLayer
6parid=Request.QueryString("parId")
7nodeLayer=cint(Request.QueryString("nodeLayer"))
8
9if(parid="") then
10Response.Write("root id can't is null")
11Response.End()
12end if
13if(nodeLayer<0) then
14nodeLayer=0
15
16end if
1
2strconn="at"
3strsql="select * from tree where par='"&parid&"'"
4''SQL 语句书写要求：在记录集的前面三个字段必须依次为：row_id（惟一的主键）、name（菜单条显示的内容）、par_id（父节点row_id),其它根据需要输出与显示
5set conn=server.createobject("ADODB.connection")
6conn.open strconn
7
8set rs=server.createobject("ADODB.Recordset")
9rs.open strsql,conn,3,3
10i=0
11dim row_id
12row_id=""
13while not rs.EOF
14row_id=rs.Fields("row_id").Value
15name=rs.Fields("name").Value
16j=0
17
18while j
<nodelayer response.write("<img="" src="blank.bmp">")
j=j+1
wend
Response.Write("<img align="absmiddle" border="0" id='objNode"&row_id&"' onclick="javascript:createChildNode('"&row_id&"',"&nodeLayer+1&")" src="open.bmp" style="cursor:hand"/>")
Response.Write("<img align="absmiddle" border="0" src="blank.bmp"/>")
Response.Write("<a class="item" href='view.asp?id="&row_id&"' target="mainFrame">"&Trim(name)&"</a>") '项目内容
Response.Write("<span id='oSpan"&row_id&"'></span>") '子节点内容区域
i=i+1
rs.MoveNext
wend
'''''''''''''''''''''''''''''''''''''''''Server Code END ''''''''''''''''''''''''''''''''''
1
2\---------xtree.js-----------------------------------------------------------------------------
3
4function getChildTree(parId,nodeLayer)
5//parId:=夫节点id,nodeLayer:=子节点所属层次
6{
7var xmlhttp = new ActiveXObject ("Microsoft.XMLHTTP");
8xmlhttp.Open("get", "xtree.asp?parId="+parId+"&nodeLayer="+nodeLayer, false);
9xmlhttp.Send("Author:taojianbo;Version:2.0");
10return xmlhttp.responseText;
11}
12
13function showHide(objid)
14//显示，隐藏区域，达到菜单显示的目的
15//objid:=区域对象ID的parid部分
16{
17var temp;
18eval("temp=oSpan"+objid+".style.display");
19if(temp=="block")
20{
21eval("oSpan"+objid+".style.display='none'");
22eval("objNode"+objid+".src='open.bmp'");
23}
24else
25{
26eval("oSpan"+objid+".style.display='block'");
27eval("objNode"+objid+".src='close.bmp'");
28}
29}//end function
30
31function createChildNode(childNodeId,nodeLayer)
32//如果子节点内容为空，则初始化，并更新数据
33//childNodeId:=子节点对象Id的parid部分
34{
35var temp;
36eval("temp=oSpan"+childNodeId+".innerHTML");
37if(temp=="")
38{
39eval("oSpan"+childNodeId+".innerHTML='<div align="right">LOADING...</div><br/>'");
40temp=new String(getChildTree(childNodeId,nodeLayer));
41if(temp.length!=0)
42{
43eval("oSpan"+childNodeId+".innerHTML=temp");
44eval("objNode"+childNodeId+".src='close.bmp'");//变为减号
45}
46else
47{//如果temp内容为空，说明未找到子树，则该节点为叶节点，更改相关属性
48eval("objNode"+childNodeId+".src='leaf.bmp'");//更改图标
49eval("objNode"+childNodeId+".onclick=''"); //取消click事件
50eval("oSpan"+childNodeId+".innerHTML=temp");//内容为空
51}
52}
53else
54{ showHide(childNodeId);
55}
56}</nodelayer>