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>
   <select name="xl" ID="xl">
<option>请选择</option>
</select>