数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id)
<
%
dim
mm
=
0
call
ShowTree(
0
)%
>
<
%
Sub
ShowTree(parentID)
dim
sm
=
m
+
1
Dim
rs
Set
rs
=
Server.CreateObject(
"
ADODB.RecordSet
"
)sql
=
"
Selectclass_id,class_nameFROM[WMS_Class]whereclass_father_id=
"
&
Cint
(parentID)rs.opensql,Conn,
1
,
1
if
rs.eof
and
m
=
1
then
response.Write(
"
该频道暂无栏目
"
)
end
if
Do
While
Not
rs.Eofresponse.Writers(
0
)
for
n
=
1
to
m
if
n
=
m
and
m
=
1
then
Response.Write(
"
╋
"
)
elseif
n
=
1
then
Response.Write(
"
"
)
elseif
n
=
m
then
Response.Write(
"
├
"
)
else
Response.Write(
"
│
"
)
end
if
next
response.Writers(
1
)
&
"
<br>
"
Call
ShowTree(rs(
0
))m
=
m
-
1
rs.Movenext
Loop
EndSub
%
>
最后
以上就是苗条西装最近收集整理的关于asp无限分级(递归调用)的全部内容，更多相关asp无限分级(递归调用)内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复