- <!--
- -----------[test]表生成脚本---------------
- if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
- drop table [dbo].[test]
- GO
- CREATE TABLE [dbo].[test] (
- [id] [int] IDENTITY (1, 1) NOT NULL ,
- [str_note] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
- [father_id] [int] NULL
- ) ON [PRIMARY]
- GO
- -->
- <!--
- ***********************测试数据********************
- [id][str_note][father_id]
- [1][电脑书籍][0]
- [2][软件开发][1]
- [3][硬件维修][1]
- [4][asp][2]
- [5][php][2]
- [6][jsp][2]
- [7][html][2]
- [8][显示器维修][3]
- [9][主板维修][3]
- [10][显卡维修][3]
- [11][vbs基础][4]
- [12][html基础][4]
- [13][ado基础][4]
- [14][do语句][11]
- [15][for语句][11]
- [16][select语句][11]
- ***************************************************
- -->
- <%
- Dim strconn,conn,rs,sql
- strconn="Driver={sql server};server=localhost;database=wawavote;uid=sa;pwd=sa;"
- Dim i
- i=0
- Function ShowTree(parentID)
- i=i+1
- Dim rs
- Set rs = Server.CreateObject("ADODB.RecordSet")
- sql="SELECT id, str_note, father_id,(SELECT str_note FROM test t2 WHERE t2.id = t1.father_id) AS ParentName FROM test t1 WHERE t1.father_id="&Cint(parentID)
- rs.open sql,strconn,1,1
- Do While Not rs.Eof
- for j=1 to i
- Response.Write("---")
- next
- Response.Write(rs(1)&"["&rs(3)&"]<br>")
- ShowTree rs(0)
- i=i-1
- rs.Movenext
- Loop
- rs.Close:Set rs=Nothing
- End Function
- Sub ShowTable(table)
- Dim rs
- Set rs = Server.CreateObject("ADODB.RecordSet")
- sql="select * from "&trim(table)
- rs.open sql,strconn,1,1
- For i=0 To rs.Fields.Count-1
- Response.Write("["&rs.fields(i).Name&"]")
- next
- Response.Write("<br>")
- Do While Not rs.Eof
- For i=0 To rs.Fields.Count-1
- Response.Write("["&rs.fields(i).Value&"]")
- next
- Response.Write("<br>")
- rs.MoveNext
- Loop
- rs.Close:Set rs=Nothing
- End sub
- ShowTree(0)
- ShowTable("test")
- %>
asp实现树型结构
2019-10-18 11:05asp代码网 ASP教程
asp实现树型结构的代码分享,需要的朋友可以参考一下
延伸 · 阅读
- 2019-10-18超级ASP大分页_我的类容我做主
- 2019-10-18编写通用的asp防注入程序
- 2019-10-18vbs(asp)下的Function 语句
- 2019-10-18ASP中类Class相关内容的整理资料
- 2019-10-18asp中创建多级目录的两段代码
- 2019-10-17asp中去除内容HTML标签的三个function函数
精彩推荐
- ASP教程
C#入门教程之ListBox控件使用方法
本文讲一下C#中ListBox控件的使用方法,也可以作为一门入门教程吧,请下本文的详细讲解。...
- ASP教程
ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码
ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码...
- ASP教程
利用 cache 做对比静态页的网页技术
一直想写一套生成静态页面的文章系统 但面对生成静态后的一些复杂数据库交互问题。又望而却步! ...
- ASP教程
用ASP实现在线压缩与解压缩功能代码
您还在为空间的FTP不稳定而烦恼吗?现在您只用上传您的RAR压缩包,即可!ASP在线解压/压缩工具只要几秒的时间,解决了网速慢,FTP丢失数据的一大难题...
- ASP教程
ASP正则表达式技巧
写了个正则表达式匹配的东西,用到的也就这几个函数了 ...
- ASP教程
ASP 连接 SQL SERVER 2008的方法
现在很多朋友使用了sql2008,但原来2000的代码已经无法使用了,这里分享下asp连接sql2008的方法,需要的朋友可以参考下...
- ASP教程
ASP里面令人震撼地Debug类(VBScript)
不知道用ASP写代码的朋友是不是和我有一样的感受,ASP中最头疼的就是调试程序的时候不方便 ...
- ASP教程
在ASP中连接MySQL数据库的方法,最好的通过ODBC方法
折腾了一阵,总算把ASP和MySQL连接完成了,有感,特写此文与大家一同分享。 查了很多资料,ASP和MySQL连接目前有两种办法:一个是使用组件,比较有名是...