连接数据库的ASP树图生成程序
2008-02-23 09:28:16来源:互联网 阅读 ()
'******* 连接数据库的树图生成程序 ********
'*****************************
'假设你已建立了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>")
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash