当选择下拉列表框不同的值，立刻执行一段代码填充下一个表格？急求 100分

我写的三级的相关的联动。动态生成表格
<%@LANGUAGE="VBSCRIPT"%>

<%
Set rs_kc = Server.CreateObject("ADODB.Recordset")
rs_kc.ActiveConnection = MM_conn_st_STRING
rs_kc.Source = "SELECT * FROM kechengbiao "
rs_kc.CursorType = 0
rs_kc.CursorLocation = 2
rs_kc.LockType = 1
rs_kc.Open()
Dim rs_bj
Dim rs_bj_numRows
Set rs_bj = Server.CreateObject("ADODB.Recordset")
rs_bj.ActiveConnection = MM_conn_st_STRING
rs_bj.Source = "SELECT * FROM class"
rs_bj.CursorType = 0
rs_bj.CursorLocation = 2
rs_bj.LockType = 1
rs_bj.Open()rs_bj_numRows = 0Set rs_xuesheng = Server.CreateObject("ADODB.Recordset")
rs_xuesheng.ActiveConnection = MM_conn_st_STRING
rs_xuesheng.Source = "SELECT °à¼¶Ãû,Ñ§ºÅ,id,ÐÕÃû  FROM gkb"
rs_xuesheng.CursorType = 0
rs_xuesheng.CursorLocation = 2
rs_xuesheng.LockType = 1
rs_xuesheng.Open()
%>
<%
Dim rs_xq
Dim rs_xq_numRowsSet rs_xq = Server.CreateObject("ADODB.Recordset")
rs_xq.ActiveConnection = MM_conn_st_STRING
rs_xq.Source = "SELECT Ñ§ÆÚ FROM xueqibiao"
rs_xq.CursorType = 0
rs_xq.CursorLocation = 2
rs_xq.LockType = 1
rs_xq.Open()rs_xq_numRows = 0Set rs_xi = Server.CreateObject("ADODB.Recordset")
rs_xi.ActiveConnection = MM_conn_st_STRING
rs_xi.Source = "SELECT id,ÏµÃû  FROM department"
rs_xi.CursorType = 0
rs_xi.CursorLocation = 2
rs_xi.LockType = 1
rs_xi.Open()rs_xi_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ÎÞ±êÌâÎÄµµ</title>
</head><body background="images/002.gif" text="#336600" link="#336600" vlink="#336600" alink="#9900FF" leftmargin="0" topmargin="0">
<table width="563" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
  </tr>
  <tr>
    <td><form name="form1" method="post" action="ankemuinput.asp" onsubmit='return checkin();'>
        <table width="486" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td colspan="2"><div align="center"><font size="2">ÇëÑ¡ÔñÑ§ÉúËùÔÚÏµ £º
                <select name="selectx" onchange='changeSelect(this.options[this.selectedIndex].text)'>
<option value='' >==ËùÓÐÏµ±ð==</option>
                  <%
While (NOT rs_xi.EOF)
%>
                  <option value="<%=(rs_xi.Fields.Item("id").Value)%>"  ><%=(rs_xi.Fields.Item("ÏµÃû").Value)%></option>
                  <%
  rs_xi.MoveNext()
Wend
%>
                </select>
                </font></div></td>
            <td width="1"> </td>
          </tr>
  <tr>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
  </tr>
  <tr>
    <td><form name="form1" method="post" action="ankemuinput.asp" onsubmit='return checkin()'>
        <table width="501" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="501"><div align="center"><font size="2">ÇëÏÈÑ¡Ôñ°à¼¶£º
                <select name="selecta" onchange='changeXuesheng(this.options[this.selectedIndex].text)' >
<option value=''>==Ñ¡Ôñ°à¼¶==</option>
                </select>
                </font></div></td>
          </tr>
          <tr>
            <td><div align="center"></div></td>
          </tr>
          <tr>
            <td> </td>
          </tr>
          <tr>
            <td> </td>
          </tr>
          <tr>
            <td><div align="center"><font size="2"> ÇëÄúÑ¡Ôñ¿ÆÄ¿£º
                <select name="select2">
                </select>
                Ñ§ÆÚ£º
                <select name="select4" onchange='changekecheng(this.options[this.selectedIndex].value)'>
<option value=''>==ËùÓÐÑ§ÆÚ==</option>
                  <%
While (NOT rs_xq.EOF)
%>
                  <option value="<%=(rs_xq.Fields.Item("Ñ§ÆÚ").Value)%>"><%=(rs_xq.Fields.Item("Ñ§ÆÚ").Value)%></option>
                  <%
  rs_xq.MoveNext()
Wend
If (rs_xq.CursorType > 0) Then
  rs_xq.MoveFirst
Else
  rs_xq.Requery
End If
%>
                </select>
                </font></div></td>
          </tr>
          <tr>
            <td> </td>
          </tr>
          <tr>
            <td><div align="left" id=Addscore>
              </div></td>
          </tr>
          <tr>
            <td> </td>
          </tr>
          <tr>
            <td><div align="center"></div></td>
          </tr>
          <tr>
            <td> </td>
          </tr>
          <tr>
            <td><table width="367" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="3"> </td>
                  <td width="166"> <div align="right">
                      <input type="submit" name="Submit" value="È· ¶¨">
  <input type=hidden value='save' name=act>
                    </div></td>
                  <td width="50"><div align="center"></div></td>
                  <td width="143"><div align="center">
                      <input type="reset" name="Submit2" value="ÖØ ÖÃ">
                    </div></td>
                  <td width="5"> </td>
                </tr>
              </table></td>
          </tr>
          <tr>
            <td> </td>
          </tr>
        </table>
      </form></td>
  </tr>
  <tr>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
  </tr>
</table>

<%
select case request("act")
case "save"
if request("id")<>"" then
idlist=split(request("id"),",")
for j=lbound(idlist) to ubound(idlist)
Set rs_hs = Server.CreateObject("ADODB.Recordset")
rs_hs.ActiveConnection = MM_conn_st_STRING
rs_hs.Source = "select id from scorce where Ñ§ºÅ= '"&request("xuehao_"&trim(idlist(j)))&"' and ¿Î³ÌÃû = '"&request("select2")&"' and Ñ§ÆÚ = '"&request("select4")&"'"
rs_hs.CursorType = 0
rs_hs.CursorLocation = 2
rs_hs.LockType = 1
rs_hs.Open()
if not rs_hs.eof then
%>
<script>
alert("¸ÃÑ§Éú¸ÃÏî³É¼¨ÒÑ¾´æÔÚ£¡");
history.back();
</script>
<%
response.end
end if
if trim(idlist(j))<>"" then
sql="insert into scorce (Ïµ±àºÅ,°à¼¶±àºÅ,Ñ§ºÅ,ÐÕÃû,¿Î³ÌÃû,³É¼¨,Ñ§ÆÚ) values ('"&request("selectx")&"','"&request("selecta")&"','"&request("xuehao_"&trim(idlist(j)))&"','"&request("username_"&trim(idlist(j)))&"','"&request("select2")&"','"&request("score_"&trim(idlist(j)))&"','"&request("select4")&"')"
' response.write sql
' MM_conn_st_STRING.execute(sql)
Set rs_insert = Server.CreateObject("ADODB.command")
rs_insert.ActiveConnection = MM_conn_st_STRING
rs_insert.commandtext = sql
rs_insert.Execute
end if
next
end if
response.redirect "ankemuinput.asp"
case else
response.write ""
End select%>
</body>
</html>
<script language=javascript>
var myArray= new Array();
<%
count=0
While not rs_bj.eof
%>
myArray[<%=count%>]=new Array("<%=rs_bj("id")%>","<%=rs_bj("ÏµÃû")%>","<%=rs_bj("°à¼¶Ãû")%>");
<%
count=count+1
rs_bj.movenext
Wend
%>
var onecount=<%=count%>;
function changeSelect(id){
document.form1.selecta.options.length=0;
document.form1.selecta.options[0]=new Option('==Ñ¡Ôñ°à¼¶==','');
for(i=0;i<onecount;i++){
if (id==myArray[i][1]){
document.form1.selecta.options[document.form1.selecta.options.length]=new Option (myArray[i][2],myArray[i][0]);
}
}
}
var MyArray=new Array();
<%
xueshengcount=0
While not rs_xuesheng.eof
%>
MyArray[<%=xueshengcount%>]=new Array("<%=rs_xuesheng("id")%>","<%=rs_xuesheng("Ñ§ºÅ")%>","<%=rs_xuesheng("ÐÕÃû")%>","<%=rs_xuesheng("°à¼¶Ãû")%>");
<%
rs_xuesheng.movenext
xueshengcount=xueshengcount+1
Wend%>
var xueshengcount=<%=xueshengcount%>;
function changeXuesheng(value){
changekecheng(document.form1.select2.value);
s="<table width='500' border='1' cellspacing='0' cellpadding='0'><tr><td height='17'> <div align='center'><font color='#336600' size='2'>Ñ§ ºÅ</font></div></td><td> <div align='center'><font color='#336600' size='2'>ÐÕ Ãû</font></div></td><td> <div align='center'><font color='#336600' size='2'>±¾¿Æ³É¼¨</font></div></td></tr>"
for(i=0;i<xueshengcount;i++){
if (value==MyArray[i][3]){
s+="<tr><td>"+MyArray[i][1]+"</td><td>"+MyArray[i][2]+"</td><td><input type=text name=score_"+i+"><input type=hidden value='"+i+"' name=id ><input type=hidden name='username_"+i+"' value='"+MyArray[i][2]+"' ><input type=hidden value='"+MyArray[i][1]+"' name='xuehao_"+i+"'></td></tr>";
}
else{
s+="";
}
}
s+="</table>";
document.all.Addscore.innerHTML=s;
}
function checkin(){
for(i=0;i<document.form1.elements.length;i++){
// alert(document.form1.elements(i).name);
if(document.form1.elements(i).name.substr(0,6)=="score_"){
if ((document.form1.elements(i).value=="") || isNaN(document.form1.elements(i).value)){
alert("±ØÐëÊäÈëÊýÖµ");
document.form1.elements(i).focus();
return false;
}
}
}
}
var kc_Array=new Array();
<%
kc_count=0
while not rs_kc.eof%>
kc_Array[<%=kc_count%>]=new Array("<%=rs_kc("id")%>","<%=rs_kc("Ñ§ÆÚ")%>","<%=rs_kc("¿Î³ÌÃû")%>","<%=rs_kc("°à¼¶±àºÅ")%>");
<%
rs_kc.movenext
kc_count=kc_count+1
Wend
%>
var kc_count="<%=kc_count%>";
function changekecheng(value){
document.form1.select2.length=0;
document.form1.select2.options[0]=new Option("==ËùÓÐ¿Î³Ì==");
o=document.form1.selecta.value;
for(i=0;i<kc_count;i++){
if ((value==kc_Array[i][1]) && o==kc_Array[i][3]){
document.form1.select2.options[document.form1.select2.length]=new Option(kc_Array[i][2],kc_Array[i][2]);
}
}
}
</script>

<select onchange="myFunn(this.options[this.selectIndex])">
<option value="value1">value1</option>
<option value="value2">value2</option>
<option value="value3">value3</option>
<option value="value4">value4</option>
</select>
传递所选值到 myFunc函数

直接在 onchange()里面填充表格就行了，用innerText就可以了

调试易

当选择下拉列表框不同的值，立刻执行一段代码填充下一个表格？急求 100分

解决方案 »