Recomendação de sapos: asp implementa a seleção da estrutura de árvores do blog Onlytiancai
Recomendação do sapo -chave: asp implementa a estrutura da árvore
Fonte
<!-
-------------- [teste] Script de geração de tabela --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ifexists (selecione*Fromdbo.sysObjectSwhereid = object_id (n '[dbo]. [Test]') AndObjectProperty (id, n'isUsertable ') = 1)
DropTable [DBO]. [Teste]
IR
CreateTable [DBO]. [Teste] (
[id] [int] identidade (1,1) notnull,
[str_note] [nvarchar] (50) colatechinese_prc_ci_asnull,
[PADER_ID] [INT] NULL
) Em [primário]
IR
->
<!-
*************************** Dados de teste ********************
[id] [str_note] [pai_id]
[1] [Livros de computador] [0]
[2] [Desenvolvimento de software] [1]
[3] [Reparo de hardware] [1]
[4] [ASP] [2]
[5] [PHP] [2]
[6] [JSP] [2]
[7] [html] [2]
[8] [Reparo de exibição] [3]
[9] [Reparo da placa -mãe] [3]
[10] [reparo da placa gráfica] [3]
[11] [VBS Basics] [4]
[12] [HTML Basics] [4]
[13] [ADO Basics] [4]
[14] [Declaração] [11]
[15] [para declaração] [11]
[16] [Selecionar instrução] [11]
*************************************************************
->
<%
Dimstrconn, Conn, RS, SQL
strConn = "driver = {sqlserver}; server = localhost; database = wawavote; uid = sa; pwd = sa;"
Dimi
i = 0
FunctionShowtree (ParentID)
i = i+1
Dimrs
Setrs = server.createObject ("adodb.recordset")
sql = "SelectId, str_note, fad_id, (selectStr_NoteFromTestt2Wheret2.id = t1.father_id) asparentNameFromTestt1Wheret1.father_id =" & cint (parentid)
Rs.opensql, strconn, 1,1
Dowhilenotrs.eof
forj = 1toi
Response.Write ("---")
próximo
Response.Write (Rs (1) e "[" & RS (3) & "] <br>")
Showtreers (0)
i = i-1
rs.movenext
Laço
rs.close: setrs = nada
Função final
Subshowtable (tabela)
Dimrs
Setrs = server.createObject ("adodb.recordset")
sql = "Selecione*de" & Trim (tabela)
Rs.opensql, strconn, 1,1
Fori = 0Tors.fields.count-1
Response.Write ("[" & rs.fields (i) .name & "]")
próximo
Response.Write ("<br>")
Dowhilenotrs.eof
Fori = 0Tors.fields.count-1
Response.Write ("[" & rs.fields (i) .Value & "]")
próximo
Response.Write ("<br>")
rs.movenext
Laço
rs.close: setrs = nada