<% 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 %>