-
昏暗的idindex
idindex = 0
建立数据库连接
设置dbconn = server.createobject（数据连接）
DbConn。打开司机= {微软Access Driver（* .mdb）}；DBQ =server.mappath（测试.mdb）
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
生成文件类型树的递归函数，传入的参数：NowItem是树的节点的ID。
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub DoItem（nowitem）
昏暗的rstest
的下一个兄弟节点昏暗的弟弟的身份
的第一个字节点朦胧的olderson ID
建立一个记录集
集rstest = server.createobject（ADODB。记录集）
生成SQL语句和操作doc_typetree表
如何=SELECT * FROM tab_test id是nowitem
生成记录集
RsTest.open strSql，dbconn，1,3
如果rsTest.EOF然后
rstest.close
集recdostype =没有
退出子
最后如果
弟弟=装饰（rstest （brothernode ））
olderson =装饰（rstest （sonnode ））
节点ID =装饰（rstest （ID））
节点名=装饰（rstest （形式））
显示子节点
如果olderson = 或olderson =00那么当这个项目没有分项，输出相应的代码
response.write CHR（10）
response.write CHR（10）
response.write
response.write
response.write CHR（10）
response.write CHR（10）
其他的
* 1。显示此项目的内容
response.write CHR（10）
response.write 内容idindex
IMGidindex
辅助idindex ）；>CHR（10）
response.write CHR（10）
response.write CHR（10）
response.write CHR（10）
response.write CHR（10）
response.write CHR（10）
response.write CHR（10）
* 2。输出后代树头代码
response.write CHR（10）
response.write CHR（10）
response.write CHR（10）
response.write
idindex = idindex + 1
* 3。输出子树代码
电话doitem（olderson）
* 4。输出子树尾码
response.write
response.write CHR（10）
response.write CHR（10）
最后如果
如果弟弟和00 然后弟弟
电话doitem（弟弟）
最后如果
rstest.close
集rstest =没有
端子
response.write
电话doitem（01 ）
response.write
dbconn.close
设置dbconn =没有
%>