繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用ASP实现网站的“目录树”管理的代码
- ASP
- ASP技巧：在Access数据库中重命名表
- 用ASP编程实现网络内容快速查找
- 比较ASP生成静态HTML文件的几种方法
- ASP实例：实现邮件发送普通附件和嵌入附件
- 如何用ASP实现去掉三个最高分和三个最低分
- ASP实例：Access为后台数据库的网站统计系统
- 用标签替换的方法生成静态网页
- 例程：用ASP判断文件地址是否有效
- 学ASp动态网页必备：常用的38个函数
- ASP教程：初次接触学习ASP脚本程序
- ASPJPEG水印中关于文字水印的帮助文档(中英文对照)
- ASP例子：ASP把汉字转化为拼音的函数
- ASP教程：学习ASP应用Cookies的技巧
- ASP入门：认识ASP程序所使用的几种脚本语言
- 初学者的ASP教程：常用ASP内置函数
- ASP初级教程之ASP对表单和用户输入的处理
- 学习ASP文件引用的方法
- 用ASP编写更人性化的弹出窗口程序
- 谈谈学习ASP动态网页制作技术的编程心得
- 用ASP程序实现网站在线人数统计
使用ASP实现网站的“目录树”管理的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 39 ::
收藏到网摘: n/a
使用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"">
<!-- Infrastructure code for the tree -->
<script src=""ftiens4.js""></script>
<!-- Execution of the code that actually builds the specific tree -->
<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>
评论 (0) All
