效果如下图：
在很多时间我们需要在页面中实际如上图所示的树型结构，我们可以使用JS来完成，也可以利用VB自带的treeview控件来实现。
STEP 1：如果你的计算机上安装了VB，那么就可以找到Mscomctl.ocx这个文件，这个实际上就是treeview控件;
STEP2：在 开始->运行中键入gegsvr32 Mscomctl.ocx(需要指定实际路径)将这个组件注册到IIS;
STEP3：在页面中加入以下代码以设置参数（有很多我也不明白，希望高手可以指教）
<OBJECT CLASSID = "clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<PARAM NAME="LPKPath" value="tvwLPK.lpk">
</OBJECT>
<OBJECT codebase="../style/mscomctl.ocx" id=TreeView1 style="LEFT: 0px; TOP: 0px; "
height=600 width=229 align=right
classid=clsid:C74190B6-8589-11D1-B16A-00C0F0283628 name=TreeView1
viewastext>
<PARAM NAME="_ExtentX" value="5186">
<PARAM NAME="_ExtentY" value="5450">
<PARAM NAME="_Version" value="393217">
<PARAM NAME="HideSelection" value="0">
<PARAM NAME="Indentation" value="529">
<PARAM NAME="LabelEdit" value="1">
<PARAM NAME="LineStyle" value="1">
<PARAM NAME="PathSeparator" value="">
<PARAM NAME="Sorted" value="1">
<PARAM NAME="Style" value="7">
<PARAM NAME="Checkboxes" value="0">
<PARAM NAME="FullRowSelect" value="0">
<PARAM NAME="HotTracking" value="0">
<PARAM NAME="Scroll" value="1">
<PARAM NAME="SingleSel" value="0">
<PARAM NAME="ImageList" value="">
<PARAM NAME="BorderStyle" value="0">
<PARAM NAME="Appearance" value="0">
<PARAM NAME="MousePointer" value="0">
<PARAM NAME="Enabled" value="1">
<PARAM NAME="OLEDragMode" value="0">
<PARAM NAME="OLEDropMode" value="0">
</OBJECT>
STEP4：向控件中灌入数据
<script language=vbscript>
sub window_onload
<%
set conn=server.createobject("adodb.connection")
conn.open application("connstr") '根据实际情况改写连接字符串
set rs=server.createobject("adodb.recordset")
sql="select * from db1" '从表中读取数据
do until rs.eof
id=rs("id")
mc=rs("mc")
%>
treeview1.nodes.add , , "A" & "<%=id%>","<%=mc%>" '加入第一层树枝
'add方法的参数说明：上层节点关键字，节点类型，本层节点关键字，本层要显示的标题
'因为这是最高层，所以前两个参数为空
'另外，关键字不能是数字，所以要在前面加一个字符将之转为字符串
<%
rs.movenext
loop
rs.close
set rs=noting
%>
end sub
</script>
我就不写那么多了，大家可以自己看看，如果还有不明白的地方，可以再交流。
