admin_test.asp

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

						end if       
       					rs1.close       
        				set rs1 = nothing       
						%>       
        </select>        
 &nbsp;<SPAN                                                                                                                            
            class=pinkstar>＊(选择班级!)</SPAN>&nbsp;&nbsp;<SPAN                                                                                                                            
          class=gray_text></SPAN></TD></TR>                                           
        
<TR>                                                                                                                    
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;考试名称</TD>                                                                                                                    
          <TD colSpan=3><select name="stat">           
          <option value="">选择名称</option>           
        </select>           
 &nbsp;<SPAN                                                                                                                            
            class=pinkstar>＊(选择考试名称!)</SPAN>&nbsp;&nbsp;<SPAN                                                                                                                            
          class=gray_text></SPAN></TD></TR>                                                                                                                            
        <TR>                                                                                                                    
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;课程名称</TD>                                                                                                                    
          <TD colSpan=3><%                                                                                                          
					sql = "select co_id,co_name2 from course order by co_id desc"                                                                                                          
					set rs = conn.execute(sql)                                                                                                          
					if rs.eof and rs.bof then                                                                                                          
						response.write "请先在数据库中添加全部课程！"                                                                                                          
						response.end                                                                                                          
					else                                                                                                          
					%>                                                                                                          
 <select class=txBox_p id=al_name   maxLength=30 name=al_name>                                                                                                           
                                                                                                                 
          <%do while not rs.eof%>                                                                                                          
          <option value="<%=rs(0)%>"><%=(rs(1))%></option>                                                                                                          
          <%                                                                                                          
        				rs.movenext                                                                                                          
       					loop                                                                                                          
						end if                                                                                                          
       					rs.close                                                                                                          
        				set rs = nothing                                                                                                          
						%>                                                                                                          
        </select>   &nbsp;<SPAN                                                                                                                            
            class=pinkstar>＊(选择课程名称！)&nbsp;&nbsp;<a href="admin_test.asp">考试管理</a></SPAN>&nbsp;&nbsp;<SPAN                                                                                                                            
          class=gray_text></SPAN></TD></TR>   <TR vAlign=top>                                                                                                                         
          <TD colSpan=4 height=26>                                                                                                                         
            <DIV align=center><INPUT class=Button_p type=submit name=Submit value="确 定">                                                                                                                          
<INPUT class=Button_p type=reset value="重 置"> <INPUT type=hidden                                                                                                                          
            name=lm> </DIV></TD></TR>                                                                                                                    

             <TR>                                    
                                    
          <TD class=p12 vAlign=center align=left                              
            >&nbsp;&nbsp;编号&nbsp;&nbsp;</TD>                                   
           <TD class=p12 vAlign=center align=left                                    
            >&nbsp;&nbsp;班级:&nbsp;&nbsp;</TD>
             <TD class=p12 vAlign=center align=left                                    
            >&nbsp;&nbsp;考试名称:&nbsp;&nbsp;</TD>
            <TD class=p12 vAlign=center align=left                                    
            >&nbsp;&nbsp;课程名称:&nbsp;&nbsp;</TD>

             <TD class=p12 vAlign=center align=left                                    
            ><SPAN class=pinkstar>[</SPAN>&nbsp;&nbsp;<SPAN                                                                                           
            class=gray_text>删除课程</SPAN>&nbsp;&nbsp;<SPAN class=pinkstar>]</SPAN></TD>
             
        </TR>       
             
            <%                                                                         
					sql = "select al_id,al_name,al_stat from alcourse where al_del=False order by al_stat desc"                                                                         
					set rs = conn.execute(sql)  
					
			                                                                   
					if rs.eof and rs.bof then                                                                         
						response.write "请先添加课程名称！"                                                                         
						response.end                                                                         
					else                                                                         
					%>                                                  
					<%do while not rs.eof%>
					<%al_name=rs("al_name")
					al_stat=rs("al_stat") 
			        al_class=Liststatclass(al_stat)  
					
 %>
					 <TR>                                    
                                    
          <TD class=p12 vAlign=center align=left                              
            >&nbsp;&nbsp;<%=rs(0)%>&nbsp;&nbsp;</TD>                                   
           <TD class=p12 vAlign=center align=left                                    
            >&nbsp;&nbsp;<%=Listclass(al_class)%>&nbsp;&nbsp;</TD>
             <TD class=p12 vAlign=center align=left                                    
            >&nbsp;&nbsp;<%=Liststat(al_stat)%>&nbsp;&nbsp;</TD>
            <TD class=p12 vAlign=center align=left                                    
            >&nbsp;&nbsp;<%=Listcourse(al_name)%>&nbsp;&nbsp;</TD>

             <TD class=p12 vAlign=center align=left                                    
            ><SPAN class=pinkstar>[</SPAN>&nbsp;&nbsp;<SPAN                                                                                           
            class=gray_text><a href="admin_test.asp?Action=course&al_id=<%=(rs(0))%>">删除课程</a></SPAN>&nbsp;&nbsp;<SPAN class=pinkstar>]</SPAN></TD>
             
        </TR>                                                                                               
                <%                                                                         
        				rs.movenext                                                                         
       					loop                                                                         
						end if                                                                         
       					rs.close                                                                         
        				set rs = nothing                                                                         
						%>     
            
                                                                                                                         
                                                                                                                              
          <TD height=10></TD>                                                                                                                         
          <TD colSpan=3></TD></TR>                                                                                                               
                                                                                                                                 
        </TBODY></TABLE></DIV></TD></TR></TBODY></FORM></TABLE>                                                                                                              
			</DIV></TD></TR>                                                                                                                          
        <TR>                                                                                                                          
          <TD class=tdBott_p>对汕头育新学校有任何意见和问题，<a href="../note.asp">请给我们留言</a>。</TD></TR></TBODY></TABLE>                  </TD></TR></TBODY></TABLE>                                                                                                             
                                                                                                              
<%
Case Else                                                                                                                       
'''''''''''''''考试管理''''''''''''
                                                                           
IF Request.QueryString("st_id")>0 Then Conn.Execute "update stat set st_del=True where st_id="&Request.QueryString("st_id")                   
If Request.Form("Submit")="确 定" Then                      
st_name=Request.Form("st_name") 
st_class=Request.Form("st_class")

If st_name="" Then Response.write "<script>alert(""考试名称没有填写！"");history.back();</script>"                   
                   
Dim sql2                  
sql2="insert into stat(st_name,st_class)values('"&st_name&"','"&st_class&"')"                   
Conn.Execute sql2                   
Response.write "<script>alert('增加成功！点确定返回！');location.href('admin_test.asp');</script>"                    
                  
end if                                                                           
                                                                                                                     
%>                                                                                                                
                                                                                                               
<TABLE cellSpacing=0 cellPadding=0 width=530 align=center border=0>          
  <TBODY>          
  <TR>          
          
     
    <TD vAlign=top width=530>          
     <TABLE cellSpacing=0 cellPadding=0 width=530 border=0>          
        <TBODY>          
        <TR>          
          <TD class=tdTit_p>汕头育新学校考试管理</TD></TR>         
        <TR>         
          <TD class=tdBor_p>         
            <DIV align=center>