Относительно простая страница, аналогичная левому списку форума CSDN под NS
описывать:
1. 1.
Имя данных: tree.mdb
Название таблицы: Дерево
Структура таблицы: ID (самооплаченное) PID (номер) Контент (текст) Ссылка (текст)
2
Фото: endnode.gif Couplapsed.gif Back.gif (оба в каталоге IMG, вы можете изменить его самостоятельно)
3 ..
Код:
<!-#include file = "conn.inc"->
<html>
<Голова>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<Meta name = "general" content = "Microsoft FrontPage 4.0">
<Title> Неограниченный список </title>
<!-
Fason (2003-5-12)
->
<style>
.Node {
размер шрифта: 12px;
Надо: 0 0 2 0;
Полевая левая: 10;
Высота: 22px;
}
img {
Вертикальная атака: средняя;
Ширина: 11px;
Высота: 11px;
}
{Текстовое декорация: нет;
.deeptree {
Ширина: 100%;
высота: 100%;
Backgound-Color:#F2F2F2;
переполнение: авто;
}
</style>
</Head>
<Body bgcolor =#f2f2f2>
<Нобр>
<div>
<%
newId = request.querystring ("id")
Если newid = "" или cint (newid) <0, что newid = 0
Если isnumeric (newid), то тогда
ListTree (Cint (Newid))
конец, если
Функция Listree (ID)
Dim Rs
Dim imgfolder, imgfile
Dim Link, Href, Painthref
Dim Target, Ahref, щелчок
Target = "main" указанное кадровое имя
imgfolder = "img/" "
Установите rs = conn.execute («Выберите счет ( *) из дерева, где pid = t.id) в качестве детей, (выберите PID из дерева, где id =» & id & ») в качестве родителя из дерева дерева p id =" & id )
Если не rs.eof, то
Casterref = request.servervariables ("url") & "? Id =" & rs ("paint")
Если id <> 0 response.write "<div class = 'node' nowrap = true> <a href = '" & casterref & "onfocus =' blur () '> <img src =' & imgfolder &" назад .gif 'border = 0> </a> <a href =' "& casterref &"> предыдущий каталог </a> </div> "& vbcrlf
делать, пока не rs.eof
Если rs ("дети")> 0 тогда
img = imgfolder "collapset.gif"
href = request.servervariables ("url") & "? id =" & rs ("id")
click = "onclight =" "location.href = '" & href & "'" ""
еще
img = imgfolder "endnode.gif"
href = "javascript: void (0)"
конец, если
Если нет isnull (rs ("ссылка"), тогда
Ahref = rs ("ссылка")
еще
ahref = "javascript: void (0)"
target = "_ self"
конец, если
Link = "<a href = '" & ahref & "' target = '" & target & "' title = '" & rs ("content") & "" & click & ">" "content") & " </a> "</a>
Response.write "<div class = 'node' nowrap = true> <a href = '" & href & "' onfocus = 'blur ()'> <img src = '" & img & "' Border = 0> < /a> "" & link & "</div>" "
Rs.movenext
петля
Rs.close: установить RS = ничего
конец, если
конечная функция
conn.close: установить conn = ничего
%>
</div>
</nobr>
</Body>
</Html>
conn.inc:
<%
Dim Conn
Установить conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0; data source =" & server.mappath ("tree.mdb") & "; repist security info = false" "
%>
4. Тест: IE6, NS7, Mozilla под тестированием и прошел через