<%
dim&nbs
p;m
m=0
call ShowTree(0)%>
<%
S
ub ShowTree(parentID)
dim s
 
;m=m+1
Dim rs
Set rs = Server.CreateObject("ADODB.Reco
rdset")
SQL="Select class_id,class_name
From [WMS_Class] where class_father_id="&Cint(parentID)
rs.o
PEn sql,Conn,1,1
if rs.eof and m = 1 then
response.Wr
ITe("该频道暂无栏目")
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 ("╋")
els
eif 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
%>