ASP看一下二级联动,一级动二级不动

<%
Set conn=Server.CreateObject("adodb.connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("mofei.mdb")
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open "Select * from depart",conn,1,1
Set subject=Server.CreateObject("adodb.recordset")
subject.Open "Select * from subject",conn,1,1
%>

<script language = "JavaScript">
var sall=new Array();
<%
i=0
do while not subject.bof and not subject.eof
%>
sall[<%=i%>]=new Array("<%=subject("subjectName")%>","<%=subject("departID")%>","<%=subject("subjectID")%>");
<%
i=i+1
subject.movenext
loop
%>
function changeselect(selvalue)
{
document.getElementById("homes001").length=0;
var selvalue=sel