Froschfrosch -Empfehlung: ASP implementiert die Auswahl der Baumstruktur aus nur Tiancai Blog
Schlüsselwort Frog Empfehlung: ASP implementiert die Baumstruktur
Quelle
<!-
------------[test]Table generation script-------------------------------------------------------------------------------------------------------------
iFexists (select*fromdbo.sysObjectSwhereId = Object_id (n '[dbo]. [test]') andObjectProperty (id, n'isussertable ') = 1)
Droptable [DBO]. [Test]
GEHEN
CreateTable [DBO]. [Test] (
[ID] [int] Identität (1,1) Notnull,
[str_note] [nvarchar] (50) collatechinese_prc_ci_asnull,
[father_id] [int] null
) Auf [primär]
GEHEN
->
<!-
************************************************
[id] [str_note] [father_id]
[1] [Computerbücher] [0]
[2] [Softwareentwicklung] [1]
[3] [Hardwarereparatur] [1]
[4] [ASP] [2]
[5] [PHP] [2]
[6] [jsp] [2]
[7] [HTML] [2]
[8] [Reparaturanzeige] [3]
[9] [Motherboardreparatur] [3]
[10] [Grafikkartenreparatur] [3]
[11] [VBS -Grundlagen] [4]
[12] [HTML -Grundlagen] [4]
[13] [ADO -Grundlagen] [4]
[14] [do Anweisung] [11]
[15] [für Erklärung] [11]
[16] [SELECT -Anweisung] [11]
**************************************************
->
<%
Dimstrcinn, Conn, RS, SQL
strconn = "driver = {sqlserver}; server = localHost; Datenbank = Wawavote; uid = sa; pwd = sa;"
Dimi
I = 0
Funktionshowtree (ParentID)
i = i+1
Dimrs
Setrs = server.createObject ("adodb.recordset")
SQL = "SelectId, str_note, father_id, (selectstr_notefromTestt2wheret2.id = t1.father_id) AsparentnameFromTestt1Wheret1.father_id =" & cint (parentId)
Rs.opensql, Strconn, 1,1
Dowhilenotrs.eof
FORJ = 1TOI
Response.write ("---")
nächste
Response.write (rs (1) & "[" & rs (3) & "] <br>")
Showtree (0)
i = i-1
Rs.Movenext
Schleife
rs.close: setrs = nichts
Endfunktion
Subshowtable (Tabelle)
Dimrs
Setrs = server.createObject ("adodb.recordset")
Sql = "Select*aus" & trimm (Tabelle)
Rs.opensql, Strconn, 1,1
Fei = 0Tors.Fields.Count-1
Response.write ("[" & rs.fields (i) .name & "]"))
nächste
Response.write ("<br>")
Dowhilenotrs.eof
Fei = 0Tors.Fields.Count-1
Response.write ("[" & rs.fields (i) .Value & "]"))
nächste
Response.write ("<br>")
Rs.Movenext
Schleife
rs.close: setrs = nichts