无限类分类树类型节点演示
标题:
链接:
目的:
违约
赖特
_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长整形
允许空字符串字符串的目标文本