admin_editach.asp

汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强大、使用简单、高效速成、安全方便

        %>                
onecount=<%=count1%>;                
                
function changelocation(locationid)                
    {                
    document.form1.stat.length = 0;                 
                
    var locationid=locationid;                
    var i;                
    for (i=0;i < onecount; i++)                
        {                
            if (subcat[i][1] == locationid)                
            {                 
                document.form1.stat.options[document.form1.stat.length] = new Option(subcat[i][0], subcat[i][2]);                
            }                        
        }                
                        
    }                    
</script>                
<TABLE width=700 border=0>                        
  <TBODY>                        
  <TR>                 
  <TD vAlign=top width="5%"></TD>                       
    <TD vAlign=top align=middle width="90%">                        
      <TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=630                         
      borderColorLight=#3a9ad3 border=1>                        
        <TBODY>                        
        <TR> <TD vAlign=center align=middle                         
          bgColor=#ebf4fa><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">                
    <tr>                 
      <form name="form1" method="post" action="admin_editach.asp?b1=确定">                
      <td bgcolor="#ebf4fa" align="center">
	   <% 	sql = "select y_id,y_name from years order by y_id desc"                                                                                                                          
					set rs1 = conn.execute(sql)                                                                                                                          
					if rs1.eof and rs1.bof then                                                                                                                          
						response.write "请先添加学年！"                                                                                                                          
						response.end                                                                                                                          
					else                                                                                                                          
					%>                                                                                                                          
 <select class=txBox_p id=years   maxLength=30 name=years>                                                                              
          <%do while not rs1.eof%>                                                                                                                          
          <option value="<%=rs1(0)%>"><%=(rs1(1))%></option>                                                                                                                          
          <%                                                                                                                          
        				rs1.movenext                                                                                                                          
       					loop                                                                                                                          
						end if                                                                                                                          
       					rs1.close                                                                                                                          
        				set rs1 = nothing                                                                                                                          
		 %>                                                                                                                          
        </select>                                                                                                                          
<%          		sql = "select c_id,c_name from class order by c_id asc"                                                                                                                                                         
					set rs1 = conn.execute(sql)                                                                                                                                                         
					if rs1.eof and rs1.bof then                                                                                                                                                         
						response.write "请先添加班级！"                                                                                                                                                         
						response.end                                                                                                                                                         
					else                                                                                                                                                         
					%>                                 
		  <select name="classes" onChange="changelocation(document.form1.classes.options[document.form1.classes.selectedIndex].value)" size="1">                                                                                                                                                         
          <option value="">选择班级</option>                                                                                                                                                     
          <%do while not rs1.eof%>                                                                                                                                                     
          <option value="<%=rs1(0)%>"><%=(rs1(1))%></option>                                                                                                                                                     
          <% 			rs1.movenext                                                                                                                                                     
       					loop                                                                                                                                                     
						end if                                                                                                                                                     
       					rs1.close                                                                                                                                                     
        				set rs1 = nothing                                                                                                                                                     
						%>                                                                                                                                                     
        </select> <select name="stat">                                                                                                                                                         
        <option value="">选择名称</option>                                                                                                                                                         
        </select>                                                                                                                                                         
        <font color="#0000FF">&nbsp;</font><INPUT type=submit value="确定" name=Submit></td></form>                                                                                                                                                         
    </tr>                                                                                                                                                         
</table> </TD></TR></TBODY></TABLE><BR>                                                                                                                                                                                                                                                                    
      <TABLE width="70%" border=0>                                                                                                                                                                                                                                                                    
        <TBODY>                                                                                                                                                                                                                                                          
        </TBODY></TABLE></TD>                                                                                                                                                                                                                                                                    
    <TD vAlign=top width="5%">                                                                                                                                                                                                                                        
      </TD></TR></TBODY></TABLE>                                                                                                                                                      
<TABLE width=700 border=0>                                                                                                                                                                                  
  <TBODY>                                                                                                                                                                                  
  <TR>                                                                                                                                                                           
  <TD vAlign=top width="5%"></TD>                                                                                                                                                                                 
    <TD vAlign=top align=middle width="90%">                                  
	<% al_stat =Session("stat")                                                                                                                                              
		  if al_stat="" then                                                                                                                                              
response.write "请先选择班级和考试名称！"                                                                                                                                               
end if  %>                                
 <% sql = "select al_id,al_name from alcourse where al_stat = "& al_stat &" order by al_id desc"                                                                                                                                                                                                                                                            
					set rs1 = conn.execute(sql)                                                                                                                                                   
					 dim strSQL                                                                                               
                    strSQL=""                                                                                                                                                                                                                                                           
					if rs1.eof and rs1.bof then                                                                                                                                                                                                                                                            
						response.write "该考试没有添加课程！"                                                                                                                                                                                                                                                            
						response.end                                                                                                                                                                                                                                                         
					else   %>                                                                                                                                                                                 
      <TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=630                                                                                                                                                                                   
      borderColorLight=#3a9ad3 border=1>                                                                                                                                                                                  
        <TBODY>