SQL语句，可以将各级菜单内容显示出来，格式如“一级菜单”“二级菜单”“三级菜单”

SELECT sys_connect_by_path(name,'/') FROM module CONNECT BY PRIOR GRADE=PARENT START WITH PARENT='0'

可以使用递归方式来取

Sub getmenu(fid)

    m=m+1

    Set rss=server.CreateObject("adodb.recordset")

    sql="select id,departmenetName,parrentId,danweiId,idx from menuname where parentId='"&fid&"' order by id asc"

    rss.open sql,conn,1,1

    if not rss.eof then

      do while not rss.eof

      c_id=rss("id")

      c_name=rss("departmenetName")

      if m=1 then   '第一级菜单,这里为了突出显示给菜单前加空格和特殊字符，如不需要可不用判断m的值

       c_t=""

      elseif m=2 then  '第二级菜单

       c_t="&nbsp&nbsp&brvbar&sdot&sdot"

      elseif m=3 then  '第三级菜单

       c_t="&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&brvbar&sdot&sdot"

      elseif m=4 then  '第四级菜单

       c_t="&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&brvbar&sdot&sdot"

      else

       c_t=""

      end if

      response.write("<option value='"&c_id&"'>"&c_t&""&c_name&"</option>")

      call getmenu(c_id)

      m=m-1

      rss.movenext:loop

    end if

End Sub

不用m的判断可以显示无限级,每次取出往后空一行，有多少显示多少，测试只是为了在select中突出显示，所以特别判断是哪一级

---