a25175_inc.asp

ASP学生网上评教系统

<%
sub teacher()
connstr="DBQ="+server.mappath("database/HRBU.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}" 
Set conn= Server.CreateObject("ADODB.Connection") 
conn.open connstr
sql = "select * FROM TEACHER order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1%>
<script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs("TEACHERNAME"))%>","<%= trim(rs("DEPARTID"))%>","<%= trim(rs("ID"))%>");
        <%count = count + 1
        rs.movenext
        loop
        rs.close
        set rs=nothing%>
onecount1=<%=count%>;
function changelocation1(addone)
    {
    document.addform.addtwo_id.length = 0; 
   
    var addone_id=addone_id;
    var i;
	
	
    document.addform.addtwo_id.options[0] = new Option('请选择教师','');
    for (i=0;i < onecount1; i++)
        {
            if (subcat1[i][1] == addone)
            { 
                document.addform.addtwo_id.options[document.addform.addtwo_id.length] = new Option(subcat1[i][0], subcat1[i][2]);
            }        
        }
		
        
    }
</script>




<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">

  <tr>	<td width="57%" height="40"><div align="center">
    <select name="addone_id" onChange="changelocation1(document.addform.addone_id.options[document.addform.addone_id.selectedIndex].value)">
                        <option value="" selected>请选择教师院系</option>
                      <%
sql="select * from DEPARTMENT order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
                        <option value="<%=rs("id")%>"><%=rs("DEPARTMENT")%></option>
          <%rs.movenext
wend
rs.Close()
%> 
    </select>
  </div></td>
    <td width="43%"><div align="center">
      <select name="addtwo_id">
          <option selected value="">请选择教师</option>
      </select>
    </div></td>
  </tr>
 
</table>
<script language="javascript"> 
    changelocation1(document.addform.addone_id.options[document.addform.addone_id.selectedIndex].value); 
</script>

<%
end sub%>


<%
sub classterm()
connstr="DBQ="+server.mappath("database/HRBU.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}" 
Set conn= Server.CreateObject("ADODB.Connection") 
conn.open connstr
sql = "select * FROM TEACHERCOURSE order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1%>
<script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs("COURSE"))%>","<%= trim(rs("TERMID"))%>","<%= trim(rs("ID"))%>");
        <%count = count + 1
        rs.movenext
        loop
        rs.close
        set rs=nothing%>
onecount1=<%=count%>;
function changelocation1(addone)
    {
    document.addform.addtwo_id.length = 0; 
   
    var addone_id=addone_id;
    var i;
	
	
    document.addform.addtwo_id.options[0] = new Option('请选择教师课程','');
    for (i=0;i < onecount1; i++)
        {
            if (subcat1[i][1] == addone)
            { 
                document.addform.addtwo_id.options[document.addform.addtwo_id.length] = new Option(subcat1[i][0], subcat1[i][2]);
            }        
        }
		
        
    }
</script>




<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">

  <tr>	
    <td width="85%" height="40">&nbsp;</td>
  </tr>
 
</table>
<script language="javascript"> 
    changelocation1(document.addform.addone_id.options[document.addform.addone_id.selectedIndex].value); 
</script>

<%
end sub%>