asp循环分级

发布时间：2023-09-25 14:30:32 所属栏目：Asp教程来源：

导读：数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id)
复制代码代码如下:

<%
dim m
m=0
call ShowTree(0)%>
<%
Sub ShowTree(parentID)
dim s
m=m+1
Dim rs
Set rs =

数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id)
复制代码代码如下:

<%
dim m
m=0
call ShowTree(0)%>
<%
Sub ShowTree(parentID)
dim s
m=m+1
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="Select class_id,class_name FROM [WMS_Class] where class_father_id="&Cint(parentID)
rs.open sql,Conn,1,1
if rs.eof and m = 1 then
response.Write("该频道暂无栏目")
end if
Do While Not rs.Eof
response.Write rs(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.Write rs(1)&"<br>"
Call ShowTree(rs(0))
m=m-1
rs.Movenext
Loop
End Sub
%>

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!