asp实现树型目录

来源：互联网发布：手机申请淘宝达人流程编辑：程序博客网时间：2024/06/05 01:15

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