有两个表,table1,table2;字段值分别是下:
table1:
id      name     
1      一年级
2      二年级
3      三年级
4      四年级table2:
id      name      fid
1       101班      1          //fid对应的是table1的id值,代表是一年级
2       102班      1
3       103班      1
4       105班      2
5       106班      2
6       107班      3
7       108班      4
我要做两个复选框,第一个复选框是列出所有的table1的name值,第二个复选框是列出所有的table2的name值,当选择第一个复选框的“一年级”时,那第二个复选框就自动列出table2里的fid值为1的name值。其它的就不显示。请教大家这怎么写啊,望高手列出代码,谢谢!!!!

解决方案 »

  1.   

    这个主要在数组的处理上,我的资源中有二级联动菜单的demo,楼主可以看一下,和这个比较相似
      

  2.   

    <% 
    dim   conn 
    dim   connstr 
    on   error   resume   next 
    connstr= "DBQ= "+server.MapPath( "test.mdb ")+ ";DefaultDir=;DRIVER={Microsoft   Access   Driver   (*.mdb)}; " 
    set   conn=server.CreateObject( "ADODB.CONNECTION ") 
    conn.open   connstr 
    %> <script   language   =   "JavaScript ">   
    sall=new   Array(); 
    <% 
    Dim   i 
    i=0 
    set   rs=conn.execute( "select   *   from   subject ") 
    do   while   not   rs.eof 
    %> 
    sall[ <%=i%> ]=new   Array( " <%=rs( "subjectname ")%> ", " <%=rs( "departid ")%> ", " <%=rs( "subjectid ")%> "); 
    <% 
    i=i+1 
    rs.movenext 
    loop 
    rs.close 
    %> 
    function   changeselect(selvalue)     
          {   
                document.myform.Nclassid.length=0;     
                var   selvalue=selvalue; 
                var   i; 
                for(i=0;i <sall.length;i++)   

            if(sall[i][1]==selvalue)   
                { 
        var   newOption1=new   Option(sall[i][0],sall[i][2]); 
    document.all.Nclassid.add(newOption1); 



    </script>   
    <form   method= "post "   name= "myform "   action= "ru_query.asp ">   
    <select   name= "classid "   onChange= "changeselect(document.myform.classid.options[document.myform.classid.selectedIndex].value) "   size= "1 ">   
    <option   selected   value= " "> 未指定条件 </option>   
    <% 
    set   rs1=conn.execute( "select   *   from   depart ") 
    do   while   not   rs1.eof 
    response.write   " <option   value= ' "&rs1( "departid ")& " '> "&rs1( "departname ")& " </option> "&chr(13)+chr(10) 
    rs1.movenext 
    loop 
    rs1.close 
    %> 
    </select>   
    <select   name= "Nclassid ">   
    <option   selected   value= " "> 未指定 </option>   
    </select>   数据库设计 表depart 
    字段   
    departID   自动编号 
    departName   文本   '省份 表subject 
    字段 
    subjectID   自动编号 
    subjectName   文本   '城市 
    departID   数字 '所属省份ID