asp实现树型目录

最新推荐文章于 2026-06-21 20:41:33 发布

原创最新推荐文章于 2026-06-21 20:41:33 发布 · 834 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#asp #microsoft #function #sql #access

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

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 sql,conn,1,3
While(Not(rst.bof Or rst.eof))
response.write "<tr><td>"
response.write "+"
response.write "</td>"
response.write "<td>"
response.write rst("name")
response.write "</td></tr>"
rst.movenext
Wend
rst.close
Set rst=Nothing
End Function
%>

<html><head>
<title>
</title>
</head>
<body>
<table>
<%
'查询显示根目录
strsql="select * from test where pid=0 "
set rs=server.CreateObject("adodb.recordset")
rs.open strsql,conn,1,3
While Not(rs.bof Or rs.eof)
response.write " <tr><td colspan='2'>"
response.write rs("name")
response.write "</td></tr>"
'递归调用生成子目录
childtree(rs("id"))
rs.movenext
Wend
rs.close
Set rs=Nothing
conn.close
Set conn=Nothing
%>