admin_editach2.asp

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

        }                
                        
    }                    
</script>                
                                                                                                                                          
<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>                                                                                                                                                                        
        <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>                                                                                                                                          
          <%do while not rs1.eof%><%al_name=rs1("al_name")%>                                                                                     
          <% strSQL=strSQL& ","&Listcourse2(al_name)                                                                                     
           %>                                                                                                                                                                                                                                                         
         <TD vAlign=center align=middle                                                                                                                                                                         
          bgColor=#ebf4fa><%=Listcourse(al_name)%></TD>                                                                                                                                                                                                                            
          <% 			rs1.movenext                                                                                                                                                                                                                                                          
       					loop                                                                                                                                                                                                                                                          
						end if                                                                                                                                                                                                                                                          
       					rs1.close                                                                                                                                                                                                                                                          
        				set rs1 = nothing                                                                                   
           			  Session("strSQL")=strSQL                                                                               
           %> <TD vAlign=center align=middle                                                                                                                                                                         
          bgColor=#ebf4fa>[修改]</TD>        
          <TD vAlign=center align=middle                                                                                                                                                                         
          bgColor=#ebf4fa>[删除]</TD>                                                                                                                                                                                                    
            <%count=0                                                                                                                                                                                                                                                      
                    do while not rs.eof and count<rs.pagesize%>                      
					 <% stat=rs("a_stat")                                                                                                              
                    st=rs("a_no")                                                                                                              
classid=Liststatclass(stat)                                                                                                            
%>                      
  <TR>                                                                                                                                                                                                
          <TD vAlign=center align=middle                                                                                                                                                                                                                                     
            bgColor=#ffffff><%=Listclass(classid)%></TD>                                                                                                                                                                                                                           
          <TD vAlign=center align=middle                                                                                                                                                                                                                                     
            bgColor=#ffffff><%=rs("a_no")%></TD>                                                                                                                                                                                                                                    
          <TD vAlign=center align=middle                                                                                                                                                                                                                                     
            bgColor=#ffffff><%=rs("a_name")%></TD>                                                                                                                                                                                                                                    
           <% For i = 4 to RS.Fields.Count - 1  %>                                                                                                                                                                                                                                     
          <TD vAlign=center align=middle                                                                                                                                                                                                                                     
            bgColor=#ffffff><%=rs("st")%> <% = RS(i) %>                                                                                                                       
            </TD>  <% Next %><TD vAlign=center align=middle                                                                                                                                                                        
          bgColor=#ffffff><a href="5.asp?a_id=<%=rs("a_id")%>">[修改]</a></TD>        
          <TD vAlign=center align=middle                                                                                                                                                                         
          bgColor=#ffffff><a href="admin_editach.asp?b1=删除&a_id=<%=rs("a_id")%>">[删除]</a></TD>                   
                            
            </TR>                                                                                                                                                                                                             
            <%rs.movenext                                                                                                                                                                                                                                                      
                    count=count+1                                                                                                                                                                                                                                                      
                    loop%>                                                                                                                                                                                                                                     
        <TR>                                                                                                                                                                                                                                    
          <TD vAlign=center align=left bgColor=#ffffff colspan="7"><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%>条</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>                                                                                                                                                                                                                                                                                                                                                         
    <TD vAlign=top width="5%">                                                                                                                                                                                                                                                                                                                              
      </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_editach.asp');</script>"                                                                                                                                                                                                                    
%>                                                                                                                                                                                                      
                                                                                                                                                            
<%elseif b1="恢复" then                                                                                                                                                                                                                     
s_class = request("s_class")                                                                                                                                                   
If s_class="" Then Response.write "<script>alert(""没有选择班级！"");history.back();</script>"                                                                                                                                                                                                                   
Session("years")=""                                
Session("stat")=""                                                                                                                                                                                                  
Response.write "<script>location.href('admin_editach.asp');</script>"                                                                                                                                                                                                                    
%>                                                                                                                                                                                                 
<%elseif b1="删除" then                                                                                                                                                                                                                                                                              
a_id=request("a_id")     
        
sql="update achievement set a_del=True where a_id="&a_id           
conn.execute sql    
Response.write "<script>alert('删除成功！点确定继续......');location.href('admin_editach.asp');</script>"          
   
                                                                                                                                                         
end if                                                                                                                                                                                                                                                                                      
%>