asp实现树型目录

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