asp 实现二级联动菜单

‘1级分类

      选择
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from caiwu_cd where ssdl=0"
rs.open sql,conn,1,1
do while not rs.eof
%>
      "><%=rs("newsfl")%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
   
’2级分类

        选择