JS结合数据库的二级联动菜单

<!--#include file="dbp.asp"-->
<script language="JavaScript">
sall=new Array();
<%
dim i
i=0
set rs=server.CreateObject("adodb.recordset")
    sql="select * from newsfl where ssdl<>0"
    rs.open sql,link,1,1
 if not rs.eof then
 do until rs.eof
%>
sall[<%=i%>]=new Array("<%=rs("ssdl")%>","<%=rs("id")%>","<%=rs("newsfl")%>");
<%
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
function changeselect(selvalue) 
   {
      document.all.xl.length=0; 
      var selvalue=selvalue;
      var i;
      for(i=0;i<sall.length;i++)
 {
     if(sall[i][0]==selvalue)
        {
  var newOption1=new Option(sall[i][2],sall[i][0]);
   document.all.xl.add(newOption1);
  }
 }
}
</script>

<select name="dl" ID="dl" onChange="changeselect(document.all.dl.options[document.all.dl.selectedIndex].value)">
   <option>请选择</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from newsfl where ssdl=0"
rs.open sql,link,1,1
do while not rs.eof
%>
      <option value="<%=rs("id")%>"><%=rs("newsfl")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
link.close
set link=nothing
%>
    </select>
 &nbsp;&nbsp; <select name="xl" ID="xl">
     <option>请选择</option>
      </select>