用ASP实现网站的“目录树”管理

　　数据库结构（共使用了两个表）

　　1.tblCategory
字段名 类型
Root binary 说明树关或开（目录的根）
ID 自动编号 关键字
Sort integer 识别该字段内容的整数（如果root是开状态sort为0）表示显示的目录的顺序
Name text（255）可以包含html中的标识符
HREF text(255) 允许空

　　2.tblPages
ID 自动编号
Sort integer 关键字
Name text（255）
HREF text（255）

　　3.default.htm
〈html$#@62;
〈head$#@62;
〈title$#@62;JavaScript/ >JavaScript Tree Control Template〈/title$#@62;
〈/head$#@62;
〈frameset cols=210,*$#@62;
?〈frame src=tree.asp name=TOC$#@62;
?〈frame src=main.htm name=basefrm$#@62;
〈/frameset$#@62;
〈/html$#@62;

4.main.htm
〈head$#@62;〈title$#@62;〈/title$#@62;〈/head$#@62;
〈body$#@62;
〈h2$#@62;Start Page〈/h2$#@62;
〈/body$#@62;
〈/html$#@62;

5.tree.asp
Set Rs = Server.CreateObject(ADODB.Recordset)
conn.open DRIVER=Microsoft Access Driver (*.mdb);DBQ= Server.MapPath(toc.mdb)

strsql = SELECT tblCategory.Root, tblCategory.[ID], tblCategory.Sort AS CatSort, tblPages.sort AS LinkSort, tblCategory.[Name] AS CatName, tblCategory.HREF AS CatURL, tblPages.[Name] AS LinkName, tblPages.href AS LinkURL FROM tblCategory LEFT JOIN tblPages ON tblCategory.[ID] = tblPages.[ID] ORDER BY tblCategory.root ASC, tblCategory.Sort, tblPages.sort

rs.open strsql, conn, 2, 2

if not rs.eof then rs.movefirst
currentID = %$#@62;
〈html$#@62;
〈head$#@62;
〈link rel=stylesheet href=ftie4style.css$#@62;
〈!-- Infrastructure code for the tree --$#@62;
〈script src=ftiens4.js$#@62;〈/script$#@62;
〈!-- Execution of the code that actually builds the specific tree --$#@62;
〈script$#@62;
USETEXTLINKS = 1
〈%
D hile Not Rs.EOF
If Rs(Root) = True Then %$#@62;
foldersTree = gFld(〈%= Rs(CatName) %$#@62;, 〈%= Rs(CatURL) %$#@62;)
〈% Else %$#@62;
aux1 = insFld(foldersTree, gFld(〈%= Rs(CatName) %$#@62;, 〈%= Rs(CatURL) %$#@62;))
〈% currentID = Rs(ID)
savedID = Rs(ID)
Do While currentID = savedID and not rs.eof
if Rs(LinkName) 〈$#@62; Then %$#@62;
insDoc(aux1, gLnk(0, 〈%= Rs(LinkName) %$#@62;, 〈%= Rs(LinkURL) %$#@62;))
〈%
end if
Rs.MoveNext
if not rs.eof then currentID = Rs(ID)
Loop
End If
if currentID = then rs.movenext
Loop %$#@62;
〈/script$#@62;
〈script$#@62;
initializeDocument()
〈/script$#@62;
〈base target=basefrm$#@62;
〈title$#@62;〈/title$#@62;
〈/head$#@62;
〈body bgcolor=white$#@62;
〈/body$#@62;
〈/html$#@62;