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

最新推荐文章于 2021-03-29 17:03:00 发布

bluesky_521

最新推荐文章于 2021-03-29 17:03:00 发布

阅读量1.3k

点赞数

分类专栏： ASP 文章标签：数据库 asp javascript function border sqlserver

本文链接：https://blog.csdn.net/bluesky_521/article/details/12983

版权

<%'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊连接数据库的树图生成程序＊＊＊＊＊＊＊＊
'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
'假设你已建立了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"&am

最低0.47元/天解锁文章

bluesky_521

关注

0
点赞
踩
2

收藏

觉得还不错? 一键收藏
0
评论
连接数据库的ASP树图生成程序（源码）

＊＊＊＊＊＊＊连接数据库的树图生成程序＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊假设你已建立了SQLServer数据库UnitTree，并在该库中建立了表： Units(ID 单位序号整数唯一,Name 单位名称字符串,UpID 上级单位序号整数) 注：UpID=0表示该单位是根结点单位；输入一些数据如：（1，AA，0）（2，
复制链接

扫一扫