ITPub博客

首页 > 数据库 > 数据库开发技术 > 连接数据库的ASP树图生成程序(源码) (转)

连接数据库的ASP树图生成程序(源码) (转)

原创 数据库开发技术 作者:worldblog 时间:2007-12-12 13:51:22 0 删除 编辑
连接数据库的ASP树图生成程序(源码) (转)[@more@]

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


演习分析


 
 
   
 
 

<%
  '以上程序在win2000Server+IIS5.0+SQLServer2000下测试通过。
  '=========================================================
  '======= 作者:夏春涛  E-Mail.NET">Bluesky_521@yeah.net ======
  '=========================================================
%>
<!--
PLeft.htm文件的内容:


正在生成树图,请稍候...

PRight.htm文件的内容:


欢迎访问!

Content.asp文件根据你的需要自己编写。

程序执行的效果,与windows资源管理器几乎一样。
closedfolder.gif是一个22*22的小图,其余的图片是16*22的小图;
这些图片可以通过在资源管理器中抓图获得。
-->


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-992054/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2405053