asp实现树型目录

最新推荐文章于 2021-03-29 17:03:00 发布

apple666999

最新推荐文章于 2021-03-29 17:03:00 发布

阅读量754

点赞数

文章标签： asp microsoft function sql access 数据库

本文链接：https://blog.csdn.net/apple666999/article/details/1618849

版权

该博客介绍了如何使用ASP（Active Server Pages）结合Microsoft Access数据库实现树型目录的展示。通过递归函数`childtree`，遍历数据表中`pid`为指定父ID的记录，动态生成HTML表格来呈现目录结构。示例代码展示了数据连接、查询根目录及子目录的过程。

摘要由CSDN通过智能技术生成

asp实现树型目录

重要思想:递归思想

数据表:

id	name	pid
1	新闻	0
2	文章	0
3	添加新闻	1
4	添加文章	2

<%
Dim strconn,mdb,rs,strsql
'数据连接代码
mdb="mdb.mdb"
Set conn =SERVER.CreateObject("ADODB.CONNECTION")
strconn = "DRIVER=MICROSOFT ACCESS DRIVER (*.MDB); DBQ="&SERVER.MAPPATH(mdb)
conn.open strconn
If Err Then
Err.clear
Set conn=Nothing
response.write "数据库连接出错!"
response.End
End If

'创建子目录的函数
Function childtree(pid)
Set rst=server.CreateObject("ADODB.RECORDSET")
sql="select *from test where pid="&pid
rst.open s