tree2.asp

实训的小作品 关于后台SQL知识的 简单制作！

<!--#include file="../data/const.asp"-->
<%


'根据系所号取出专业信息
function getZy(xsh,flag)
  Set rs_t=Server.CreateObject("ADODB.RecordSet")
  str = "select 编号,名称 from 专业信息表 where 院系编号='"&xsh&"'"
  set rs_t=dbconn.execute(str)

  '如果是第一条，要用n1.addLink。
  do while not rs_t.eof
    s="bjkcquery.asp?xsh="&xsh&"&zyh="&rs_t("编号")
    if flag then	  
	  response.Write("n1.addLink('"&s&"','"&rs_t("名称")&"'); ")	  
	else  
	  response.Write("addLink('"&s&"','"&rs_t("名称")&"'); ")
	end if  
    rs_t.MoveNext
  loop
  if flag then
    response.Write("n1.expand(false);")
  else
    response.Write("expand(false);")	  
  end if	
end function



Set rs=Server.CreateObject ("ADODB.RecordSet")
str="select 编号,名称 from 系部信息表 order by 编号"
set rs=dbconn.execute(str)
%>
<SCRIPT src="../js/alai_tree.js"></SCRIPT>
<SCRIPT src="../js/alai_tree_win2k.js"></SCRIPT>

<style>
#divTree {
	width:250;
	/*border:1 solid #cccccc;*/
	padding:5px;
	margin: 0px;
	height:300px;
	margin-top: 0px;
	
	/* display:none; */
	
	/* overflow:auto; 
	white-space:nowrap;*/
}

#divTree img{
	margin: 0px;
	padding: 0px;
}
</style>

<div id="divTree"></div>

<SCRIPT>
//用模板程序建树
var myTree=new alai_tree_win2k(divTree)
//根节点的引用
var root=myTree.root 
//添加目录树节点
var n1=root.add("<%=rs("名称")%>")
<% 
  xsh = rs("编号")
  getZy xsh,true
  rs.MoveNext
  do while not rs.eof
%>
with(root.add("<%=rs("名称")%>"))
{
	<% 
	xsh = rs("编号")
	getZy xsh,false 
	%>
}

<%
     rs.MoveNext
  loop

set rs=nothing
dbconn.Close 
set dbconn=nothing
%>
</SCRIPT>