最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
连接数据库的ASP树图生成程序（源码）
时间：2022-06-30 11:24:55 编辑：袖梨 来源：一聚教程网
<%'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊ 连接数据库的树图生成程序 ＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'假设你已建立了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
%>
>
演习分析
'＊＊＊＊＊＊＊ 连接数据库的树图生成程序 ＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'假设你已建立了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
%>