Recomendación de rana Frog: ASP implementa la selección de la estructura del árbol del blog OnlyTiancAi
Recomendación de la rana de palabras clave: ASP implementa la estructura del árbol
Fuente
<!-
------------ [Prueba] Script de generación de tabla ---------------------------------------------------------------------------------------------------------
IfExists (select*fromdbo.sysObjectswhereId = object_id (n '[dbo]. [test]') andobjectProperty (id, n'isusertable ') = 1)
Droptable [DBO]. [Prueba]
IR
Creattable [dbo]. [Prueba] (
[id] [int] identidad (1,1) nonull,
[str_note] [nvarchar] (50) collatechinese_prc_ci_asnull,
[Padre_id] [int] NULL
) En [primario]
IR
->
<!-
*************************** Datos de prueba ********************
[id] [str_note] [Padre_id]
[1] [Libros de computadora] [0]
[2] [Desarrollo de software] [1]
[3] [Reparación de hardware] [1]
[4] [ASP] [2]
[5] [PHP] [2]
[6] [JSP] [2]
[7] [HTML] [2]
[8] [Reparación de visualización] [3]
[9] [Reparación de placa base] [3]
[10] [Reparación de la tarjeta gráfica] [3]
[11] [VBS básicos] [4]
[12] [HTML Conceptos básicos] [4]
[13] [Ado Conceptos básicos] [4]
[14] [Declar Declaración] [11]
[15] [para la declaración] [11]
[16] [Declaración de selección] [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, pather_id, (selectStr_noteFromTestt2wwwheret2.id = t1.father_id) AsparentNameFromTestt1wwheret1.father_id =" & cint (ParentId)
Rs.Opensql, Strconn, 1,1
Dowhilenotrs.eof
forj = 1toi
Response.write ("---")
próximo
Response.Write (RS (1) y "[" & RS (3) y "] <br>")
Showtreers (0)
i = i-1
Rs.Movenext
Bucle
rs.close: setrs = nada
Función final
Subshowtable (tabla)
Dimrs
Setrs = server.createObject ("ADODB.Recordset")
sql = "select*de" y recortar (tabla)
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
Bucle
rs.close: setrs = nada