Rekomendasi katak katak: ASP mengimplementasikan pemilihan struktur pohon dari hanya blog
Rekomendasi Katak Kata Kunci: ASP mengimplementasikan struktur pohon
Sumber
<!-
------------ [Tes] Script Pembuatan Tabel ---------------------------------------------------------------------------------------------------------
IfExists (pilih*fromdbo.sysObjectswhereId = object_id (n '[dbo]. [test]') andObjectProperty (id, n'isuserable ') = 1)
droptable [dbo]. [Tes]
PERGI
CreateTable [dbo]. [Tes] (
[id] [int] identitas (1,1) notnull,
[str_note] [nvarchar] (50) collatechinese_prc_ci_asnull,
[father_id] [int] null
) Pada [primer]
PERGI
->
<!-
*************************** Data uji ****************
[id] [str_note] [father_id]
[1] [Buku Komputer] [0]
[2] [Pengembangan Perangkat Lunak] [1]
[3] [Perbaikan Perangkat Keras] [1]
[4] [ASP] [2]
[5] [PHP] [2]
[6] [JSP] [2]
[7] [html] [2]
[8] [perbaikan display] [3]
[9] [Perbaikan Motherboard] [3]
[10] [perbaikan kartu grafis] [3]
[11] [Dasar VBS] [4]
[12] [Dasar -dasar HTML] [4]
[13] [Dasar -Dasar ADO] [4]
[14] [Lakukan pernyataan] [11]
[15] [untuk pernyataan] [11]
[16] [Pilih Pernyataan] [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, father_id, (selectstr_notefromtestt2wheret2.id = t1.father_id) asparentnamefromtestt1wheret1.father_id =" & cint (parentid)
rs.opensql, strconn, 1,1
Dowhilenotrs.eof
forj = 1toi
Response.write ("---")
Berikutnya
Response.write (rs (1) & "[" & rs (3) & "] <br>")
Showtreers (0)
I = I-1
rs.movenext
Lingkaran
rs.close: setRs = tidak ada
Fungsi endfungsi
Subshowtable (tabel)
Dimrs
SetRs = server.CreateObject ("adodb.recordset")
SQL = "SELECT*from" & trim (tabel)
rs.opensql, strconn, 1,1
Fori = 0tors.fields.count-1
Response.write ("[" & rs.fields (i) .name & "]")
Berikutnya
Response.write ("<br>")
Dowhilenotrs.eof
Fori = 0tors.fields.count-1
Response.write ("[" & rs.fields (i) .value & "]")
Berikutnya
Response.write ("<br>")
rs.movenext
Lingkaran
rs.close: setRs = tidak ada