使用ASP实现网站的“目录树”管理的代码_ASP教程

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

2019-10-09 14:31asp代码网 ASP教程

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

使用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>

<head>

<title>javascript Tree Control Template</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>

<body>

<h2>Start Page</h2>

</body>

</html>

5.tree.asp

Set 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.movefirst

currentID = """" %>

<html>

<head>

<link rel=""stylesheet"" href=""ftie4style.css"">



<script src=""ftiens4.js""></script>



<script>

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 %>

</script>

<script>

initializeDocument()

</script>

<base target=""basefrm"">

<title></title>

</head>

<body bgcolor=""white"">

</body>

</html>