查看: 239|回复: 2

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

[复制链接]

▄愛變鎖ゞ

电梯直达

1^#

发表于 2009-3-16 16:22:57 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册