我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp组件/脚本 > 连接数据库的ASP树图生成程序（源码）
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

连接数据库的ASP树图生成程序（源码） 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-28
<%'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊ 连接数据库的树图生成程序 ＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'假设你已建立了SQLServer数据库UnitTree，并在该库中建立了表：
'Units(ID 单位序号整数唯一,Name 单位名称字符串,UpID 上级单位序号整数)
'注：UpID=0表示该单位是根结点单位；
'输入一些数据如：（1，AA，0）（2，AABB，1）（3，AACC，1）（4，AABB11，2）
'以便进行下面的程序测试。
%>
<% '建立数据库连接
set conn=server.createobject("adodb.connection")
conn.open "provider=sqloledb;data source=YourSrcName;user id=sa;password=;database=UnitTree"
%>
<%'子过程：生成树图子结点数据
Sub TreeNode(Code)
SQLUnit="select ID,Name"&_
" from Units"&_
" where UpID="&Code&""&_
" order by ID"
set rsUnit=conn.Execute(SQLUnit)
Do while not rsUnit.Eof
Response.Write("Node"&rsUnit("ID")&"=appendChild("&"Node"&Code&",folderNode('"&rsUnit("Name")&"','"&rsUnit("ID")&"',0))"&chr(10))
call TreeNode(rsUnit("ID"))
rsUnit.movenext
Loop

End Sub
%>
<HTML>
<HEAD>
<title>演习分析</title>
<Script LANGUAGE="JavaScript">
/****************************** 生成树图数据 *********************************/
function generateTree()
{
//生成树图数据
//-----VBScript-----
<%
''显示单位
SQLUnit0="select ID,Name"&_
" from Units"&_
" where UpID=0"&_
" order by ID"
set rsUnit0=conn.Execute(SQLUnit0)
//根结点foldersTree
Response.Write("foldersTree=folderNode('"&rsUnit0("Name")&"','"&rsUnit0("ID")&"',1)"&chr(10))
Response.Write("Node"&rsUnit0("ID")&"=foldersTree"&chr(10))
call TreeNode(rsUnit0("ID")) //子结点数据

%>
}
/**************************** 生成树图数 结束 *******************************/
</Script>

<Script LANGUAGE="JavaScript">
/************************ 相关函数 *********************************/
// 生成一个节点
function folderNode(name,value,flagOpen)
{
var arrayAux

arrayAux = new Array
arrayAux[0] = flagOpen //结点关闭0或打开1
arrayAux[1] = value //
arrayAux[2] = name //名称

return arrayAux
}

//在arrayAux[3]..[n]中添加其孩子
function appendChild(parent, child)
{
parent[parent.length] = child
return child
}


//画结点
//参数 foldersNode:结点
// doc :document对象
// level :结点的层次
// lastNode :是否最末尾的结点
// leftSide :图片
function redrawNode(foldersNode, doc, level, lastNode, leftSide)
{
FileName="Content.asp" //设置超链接文件，可根据你的情况改写……………

var j=0
var i=0

doc.write("<table border=0 cellspacing=0 cellpadding=0>")
doc.write("<tr><td valign = middle nowrap>")

doc.write(leftSide)
/******分层+/-号**************************************/


if (level>0)//不是根节点
{
if (lastNode) //最后的节点
{
if (foldersNode.length > 3)//有孩子
{
if (foldersNode[0])//且打开
{
doc.write("<A href='javascript:top.openBranch(\"" + foldersNode[2] + "\")'>")
doc.write("<img border=0 src=../../Images/lastnode-.gif width=16 height=22></a>")
}
else
{ //但关闭
doc.write("<A href='javascript:top.openBranch(\"" + foldersNode[2] + "\")'>")
doc.write("<img border=0 src=../../Images/lastnode+.gif width=16 height=22></a>")
}
}
else //没孩子
doc.write("<img src='../../Images/lastnode.gif' width=16 height=22>")

leftSide = leftSide + "<img src='../../Images/blank.gif' width=16 height=22>"

}
else //非最后节点
{
if (foldersNode.length > 3)//有孩子
{
if (foldersNode[0])//且打开
{
doc.write("<A href='javascript:top.openBranch(\"" + foldersNode[2] + "\")'>")
doc.write("<img border=0 src=../../Images/Node-.gif width=16 height=22></a>")
}
else
{ //但关闭
doc.write("<A href='javascript:top.openBranch(\"" + foldersNode[2] + "\")'>")
doc.write("<img border=0 src=../../Images/Node+.gif width=16 height=22></a>")
}
}
else //没孩子
doc.write("<img src='../../Images/node.gif' width=16 height=22>")

leftSide = leftSide + "<img src='../../Images/vertline.gif' width=16 height=22>"
}

/******手形图标与超链接**********/
doc.write("<a href='"+FileName+"?ID="+foldersNode[1]+"&Name="+foldersNode[2]+"' target=folderFrame><img src=../../Images/closedfolder.gif width=24 height=22 border=noborder></a>")
/********名称与超链接********/
doc.write("<td valign=middle align=left nowrap>")
doc.write("<a href='"+FileName+"?ID="+foldersNode[1]+"&Name="+foldersNode[2]+"' target=folderFrame><font size=2 face='宋体'>"+foldersNode[2]+"</font></a>")
//以上超链接提供了ID,Name的QueryString值……………………………………
}
else//根节点
{
/******手形图标与超链接**********/
doc.write("<a href='"+FileName+"?ID="+foldersNode[1]+"&Name="+foldersNode[2]+"' target=folderFrame><img src=../../Images/closedfolder.gif width=24 height=22 border=noborder></a>")
/********名称与超链接********/
doc.write("<td valign=middle align=left nowrap>")
doc.write("<a href='"+FileName+"?ID="+foldersNode[1]+"&Name="+foldersNode[2]+"' target=folderFrame><font size=2 face='宋体'>"+foldersNode[2]+"</font></a>")
}

doc.write("</table>")
///////////////////////////////////////////////////////
if (foldersNode.length > 3 && foldersNode[0]) //有孩子且打开则递归显示节点
{
level=level+1
for (i=3; i<foldersNode.length;i++)
if (i==foldersNode.length-1)
redrawNode(foldersNode[i], doc, level, 1, leftSide)
else
redrawNode(foldersNode[i], doc, level, 0, leftSide)
}
}

//当用户点击分层的+/-号时响应，被openBranch调用
function clickOnFolderRec(foldersNode, folderName)
{
var i=0

if (foldersNode[2] == folderName)
{
if (foldersNode[0])//若为打开状态时，则将其关

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。