ASP 를 사용 하여 사이트 의 디 렉 터 리 트 리 데이터베이스 구 조 를 실현 합 니 다.tblCategory 필드 이름 유형 Root binary 트 리 닫 기 또는 열기 설명(디 렉 터 리 의 루트)ID 자동 번호 키워드 Sort integer 이 필드 의 내용 을 인식 하 는 정수(루트 가 열 려 있 는 상태 sort 가 0 이면)디 렉 터 리 의 순 서 를 표시 합 니 다 Name text(255)는 html 의 식별 자 HREF 를 포함 할 수 있 습 니 다. text(255)는 2 를 비 울 수 있 습 니 다.tblPagesID 자동 번호 Sort integer 키워드 Name text(255)HREF text(255) 3.default.htmjavascript Tree Control Template?? 4.main.htm
Start Page
5.tree.aspSet conn = Server.CreateObject(""ADODB.Connection"")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.movefirstcurrentID = """" %>USETEXTLINKS = 1<% Do While Not Rs.EOF If Rs(""Root"") = True Then %> foldersTree = gFld(""<%= Rs(""CatName"") %>"", ""<%= Rs(""CatURL"") %>"") <% Else %> aux1 = insFld(foldersTree, gFld(""<%= Rs(""CatName"") %>"", ""<%= Rs(""CatURL"") %>"")) <% currentID = Rs(""ID"") savedID = Rs(""ID"") Do While currentID = savedID and not rs.eof if Rs(""LinkName"") <> """" Then %> insDoc(aux1, gLnk(0, ""<%= Rs(""LinkName"") %>"", ""<%= Rs(""LinkURL"") %>"")) <% end if Rs.MoveNext if not rs.eof then currentID = Rs(""ID"") Loop End If if currentID = """" then rs.movenext Loop %>initializeDocument()