标题：
链接：
目的：
违约
赖特
_black
_top
_parent
_self
连接数据库
设置conn = server.createobject（数据连接）
conn.open提供商=微软。飞机。OLEDB数据源。4；=server.mappath（文件.mdb）
/ / ----------分支操作
动作=请求（动作）
选择案例的作用
案例添加：如果请求（ParentID 然后添加）
案例del：del
案例打开：打开
其他案件：
最后选择
/ / ----------显示列表
公示名单
集= conn.execute（SELECT * FROM {表} ）
如果Not Rs. Eof再
rs.getrows列表=
马克斯= conn.execute（select count（ParentID）从列表ParentID = 0 ）（0）
设置=无
设置conn =没有
清单0，马克斯，
其他的
设置=无
设置conn =没有
最后如果
响应。
/ / ------------显示列表功能
功能表（ParentID，CS，str1）
昏暗的J
J = 0
我= 0，UBound（列表2）
如果列表（1，i）= ParentID然后
response.write（str1）
如果如果列表（5，i）> 0然后str2 =
如果列表（5，i）> 0和表（4，i）= FALSE然后str2 = str2
写（出现）的响应。
响应。写vbcrlf
添加节点链接
响应。写vbcrlf
响应。
如果列表（4，i）=真的
如果吉恩多如果
j = j + 1
最后如果
下一个
端功能
/ / -----------添加功能
功能添加
母= CLNG（请求（ParentID））
标题=替换（请求），
替换（请求（），
目标=替换（请求（目标），
如果标题或URL，则
响应写入至少有一个没有指定的值。
反应结束
退出功能
最后如果
SQL =插入表（ParentID，标题，URL，目标）值（父母
康涅狄格州执行（SQL）
如果parent0然后
SQL =更新列表设置childnum = childnum + 1的id是母
康涅狄格州执行（SQL）
最后如果
端功能
交换节点
功能开放
SQL =更新列表设置的标志=不标志id是Clng（请求（ID））
康涅狄格州执行（SQL）
端功能
/ / -----------删除节点
功能删除
下次继续出错
ID = CLNG（请求（ID））
ParentID = conn.execute（从列表选择ParentID id =ID）（0）
Num = conn.execute（select count（ID）从列表ParentID =ID）（0）
康涅狄格州执行（更新列表设置childnum = childnum-1 +民在id =ParentID）
更新列表设置ParentID = ID ParentID（选择ID）））
康涅狄格州执行（从清单中删除id是ID）
如果err.number0然后
答：写你做的是无效的，也许这个项目已经被删除了。！！
反应结束
最后如果
端功能
%>
没有美化，没有其他功能，需要自己改变！
创建表（ID递增，ParentID长，标题文本（50），URL文本（50），国旗草案，10）。）
您可以直接在查询中获得列表表！
下面是表的说明
ID自动编号
ParentID长整形
标题文本
URL文本
旗布尔
childnum长整形
允许空字符串字符串的目标文本
