Реализация дерева каталогов веб -сайта с использованием ASP
Структура базы данных (в целом используется две таблицы)
1. TBLCategory
Тип имени поля
Корневое двоичное описание дерево закрыто или открыто (корень каталога)
ID Автоматическая нумерация ключевые слова
Сортировка целого числа распознает целое число, которое содержит поле (если корень открыт, сортировка равен 0) указывает порядок отображаемого каталога.
Текст имени (255) может содержать идентификаторы в HTML
Href Text (255) разрешайте пусто
2. TBLPAGES
ID автоматическая нумерация
Сортировать целочисленные ключевые слова
Название текст (255)
Href текст (255)
3. Default.htm
<html>
<голова>
<title> шаблон управления деревами javascript </title>
</head>
<Frameset Cols = "" 210,*"">
? <Frame src = "" tree.asp "" name = "" toc "">
? <Frame src = "" main.htm "" name = "" basefrm "">
</frameset>
</html>
4.main.htm
<Head> <title> </title> </head>
<тело>
<h2> Начальная страница </h2>
</body>
</html>
5.tree.asp
Установить conn = server.createObject ("" adodb.connection "")
Установить rs = server.createObject ("" adodb.recordset "")
Conn.Open "" Driver = Microsoft Access Driver (*.mdb); dbq = "" & server.mappath ("" "toc.mdb" ")
strsql = "" select tblcategorory.root, tblcategory. tblcategory. [id] = tblpages.
Rs.open Strsql, Conn, 2, 2
Если не rs.eof, то rs.movefirst
currentid = "" "" %>
<html>
<голова>
<link rel = "" styleSheet "" href = "" ftie4style.css "">
<!-код инфраструктуры для дерева->
<script src = "" ftiens4.js ""> </script>
<!-выполнение кода, который фактически создает конкретное дерево->
<Скрипт>
USETEXTLINKS = 1
<%
Делать, пока не rs.eof
Если rs ("" root "") = true, то %>
FOLDERSTREE = gfld ("" < %= rs ("" "catname" ") %>", "" < %= rs ("" "" caturl "") %> "")
< % Else %>
aux1 = insfld (fotserstree, gfld ("" < %= rs ("" "catname" ") %>" "," "< %= rs (" "" ") %>" "))
<% currentid = rs ("" id "")
savedid = rs ("" id "")
DO, пока currentId = savedId, а не Rs.EOF
Если rs ("" linkName "") <> "" "" "Тогда %>
insdoc (aux1, glnk (0, "" < %= rs ("" linkname ") %>" "," "< %= rs (" "" linkurl "") %> "")))