asp实现树型结构

时间： 2021-07-31 作者：daque

<!-- -----------[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--><%dim strconn,conn,rs,sqlstrconn="driver={sql server};server=localhost;database=wawavote;uid=sa;pwd=sa;"dim ii=0function 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 functionsub 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 subshowtree(0)showtable("test")%>

asp实现树型结构

相关推荐

推荐下载

热门阅览

最新排行