Рекомендация лягушки лягушки: ASP реализует выбор структуры деревьев из блога Onlytiancai
Ключевое слово Рекомендация лягушки: ASP реализует структуру дерева
Источник
<!-
------------ [Тест] Сценарий генерации таблиц --------------------------------------------------------------------------------------------------------------------------------------------------------------
ifexists (select*fromdbo.sysobjectsweread = object_id (n '[dbo].
Droptable [DBO]. [Тест]
ИДТИ
Createletable [dbo]. [Тест] (
[id] [int] идентичность (1,1) notnull,
[str_note] [nvarchar] (50) collatechinese_prc_ci_asnull,
[отец_ид] [int] null
) На [первичный]
ИДТИ
->
<!-
*************************
[id] [str_note] [отец_ид]
[1] [Компьютерные книги] [0]
[2] [разработка программного обеспечения] [1]
[3] [Ремонт оборудования] [1]
[4] [ASP] [2]
[5] [PHP] [2]
[6] [JSP] [2]
[7] [HTML] [2]
[8] [Ремонт дисплея] [3]
[9] [Ремонт материнской платы] [3]
[10] [Ремонт видеокарты] [3]
[11] [Основы VBS] [4]
[12] [Основы HTML] [4]
[13] [Основы ADO] [4]
[14] [DO оператор] [11]
[15] [для утверждения] [11]
[16] [Выберите оператор] [11]
*********************************************
->
<%
Dimstrconn, Conn, RS, SQL
strConn = "Driver = {sqlServer}; server = localhost; database = wawavote; uid = sa; pwd = sa;" ""
Дими
i = 0
FunctionShowtree (parentId)
i = i+1
Dimrs
Setrs = server.createObject ("adodb.recordset")
SQL = "SELECTID, STR_NOTE, CHATHEN_ID, (SELECTSTR_NOTEFROMTESTT2WHERET2.ID = T1.FATHER_ID) ASPARENTNAMEFROMTESTT1WHEHERET1.FATHER_ID =" & cint (parentId)
Rs.opensql, Strconn, 1,1
Dowhilenotrs.eof
forj = 1toi
Response.write ("---")
следующий
Response.write (rs (1) & "[" & rs (3) & "] <br>")
Showtreers (0)
i = I-1
Rs.movenext
Петля
Rs.close: setrs = ничего
Конечная функция
Subshowtable (таблица)
Dimrs
Setrs = server.createObject ("adodb.recordset")
sql = "select*from" & trim (таблица)
Rs.opensql, Strconn, 1,1
Fori = 0tors.fields.count-1
Response.write ("[" & rs.fields (i) .name & "]")
следующий
Response.write ("<br>")
Dowhilenotrs.eof
Fori = 0tors.fields.count-1
Response.write ("[" & rs.fields (i) .value & "]")
следующий
Response.write ("<br>")
Rs.movenext
Петля
Rs.close: setrs = ничего