admin_addach.asp

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

						%>                                                                                                              
        </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 align=middle width="100%"> <% 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)                       
					                                                                                                                               
					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>                                                      
        <TR> <TD vAlign=center align=middle                                                       
          bgColor=#ebf4fa>班级</TD>                                                      
                                                          
          <TD vAlign=center align=middle                                                       
          bgColor=#ebf4fa>学号</TD>                                                      
          <TD vAlign=center align=middle                                                       
          bgColor=#ebf4fa>姓名</TD>                        
          <TD vAlign=center align=middle                                                       
          bgColor=#ebf4fa>学号                                                                                                                         
					                                                                                                                                
                                                                                  
          <%do while not rs1.eof%><%al_name=rs1("al_name")%>                                                                                                                                       
          <%=Listcourse(al_name)%> &nbsp;                                                                                                                              
          <%                                                                                                                                        
        				rs1.movenext                                                                                                                                        
       					loop                                                                                                                                        
						end if                                                                                                                                        
       					rs1.close                                                                                                                                        
        				set rs1 = nothing                                                                                                                                        
						%>       </TD>                                                    
            <%count=0                                                                                                                                    
                    do while not rs.eof and count<rs.pagesize%>                                                                                                                     
        <TR>                                                                                                                   
                                                                                          
          <TD vAlign=center align=left                                                                                                                   
            bgColor=#ffffff><%s_class1=rs("s_class")%>                         
<%=Listclass(s_class1)%></TD>                                                                                                         
          <TD vAlign=center align=left                                                                                                                   
            bgColor=#ffffff><%=rs("s_no")%></TD>                                                                                                                  
          <TD vAlign=center align=left                                                                                                                   
            bgColor=#ffffff><a href="admin_addach.asp?b1=删除&s_id=<%=rs("s_id")%>&s_no=<%=rs("s_no")%>&s_name=<%=rs("s_name")%>"><%=rs("s_name")%></a></TD>                                                                                                                  
                                                                                                                           
                                                                                                                          
          <TD vAlign=center align=left                                                                                                                   
            bgColor=#ffffff>                                                  
            <IFRAME id=hotarea border=0 marginWidth=0 frameSpacing=0 marginHeight=0 src="1.asp" frameBorder=0 width=500 scrolling=no height=20></IFRAME>                                                  
                                                              
            </TD></TR>                                                                                           
            <%rs.movenext                                                                                                                                    
                    count=count+1                                                                                                                                    
                    loop%>                                                                                                                   
        <TR>                                                                                                                  
          <TD vAlign=center align=left bgColor=#ffffff colspan="6"><a style="text-decoration: none" href="admin_editst.asp?page=<%=page-1%>"><font color="#000000">[上页]</font></a><a style="text-decoration: none" href="admin_editst.asp?page=<%=page+1%>"><font color="#000000">[下页]</font></a>共<%=rs.pagecount%>页                                                                                                                                                                                               
（第<font color=#ff0000><%=page%></font>页）共有记录<%=AllGb%>条</TD></TR></TBODY></TABLE><BR>                                                                                                                                                                                                                                       
      <TABLE width="70%" border=0>                                                                                                                                                                                                                                       
        <TBODY>                                                                                                                                                                                                                                       
        <TR>                                                                                                                                                                                                                                       
          <TD align=right>公告消息</TD></TR>                                                                                                                                                                                                                                       
        <TR>                                                                                                                                                                                                                                       
          <TD align=right>留言&nbsp;&nbsp;</TD></TR></TBODY></TABLE></TD>                                                                                                                                                                                                                                       
                                                                                                                                                                                                           
                                                                                                                                                                                                                                          
  </TR></TBODY></TABLE><%                                                                                                                                                                                                                
end if                                                                                                                                                                                                                
conn.close%>                                                                                                                                                                                                                                     
                                                                                                                                                                                                                                           
                                                                                                                                                                                                                                   
		                                                                                                                                                                                                                                             
<!--#include file="down.inc"--> </BODY>                                                                                                     
<%elseif b1="确定" then                                                                                                   
years=Request.Form("years")                                                                                                 
stat=Request.Form("stat")                                                                                                
classes=Request.Form("classes")                                                                                           
Session("years") = years                                                                                               
Session("stat") = stat                                                                      
Session("classes") = classes                                                                                           
                                                                                        
If classes="" Then Response.write "<script>alert(""没有选择班级！"");history.back();</script>"                                                                                                 
Response.write "<script>location.href('admin_addach.asp');</script>"                                                                                                  
%>                                                                                    
                                          
<%elseif b1="恢复" then                                                                                                   
s_class = request("s_class")                                 
If s_class="" Then Response.write "<script>alert(""没有选择班级！"");history.back();</script>"                                                                                                 
                             
sql="update student set s_yesorno=False where s_yesorno=True"                                       
conn.execute sql                                                                                          
classes=""                                                                                        
Response.write "<script>location.href('admin_addach.asp');</script>"                                                                                                  
%>                                                                                    
                                      
                                                                                 
<%elseif b1="删除" then                                                                                                                                                            
s_id=request("s_id")                                         
s_no=request("s_no")                  
s_name=request("s_name")                                                                                                                                                          
Session("s_id") = s_id                                                                                                                                                         
Session("a_no") = s_no                                        
Session("a_name") = s_name                                        
Response.write "<script>location.href('admin_addach.asp');</script>"                                                                                                                                                           
                                                                                                                                                                 
end if                                                                                                                                                                    
%>