user_test.asp

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

          <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   %>   <% stat=rs("a_stat")                                                                                                                                                                                                             
                                                                                                                                                                                                                               
classid=Liststatclass(stat)                                                                                                                                                                                                           
%>                                                                                                         
                                                                                                                                                                                                                                                                      
      <TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=630                                                                                                                                                                                                                                                                        
      borderColorLight=#3a9ad3 border=1>                                                                                                                                                                                                                                                                       
        <TBODY>                                                                                                                                                                                                                                                                       
                                                                                           
  <TR>                                                                                                                                                                                                                                                                                               
                                                                                                                
          <TD vAlign=center align=middle                                                                                                                                                                                                                                                                        
          bgColor=#ffffff><%=Listyears(years)%><%=Listclass(classid)%><%=Liststat(stat)%></TD>                                                                                                                  
                                                                                                                           
            </TR>                                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                                                                           
       </TBODY></TABLE>                                                                                          
                                                                                                                      
	                                                                                                                                                                                                                                                                     
      <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>                                                                                                                                                                                                                                         
          <%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></TR>                                                             
           <%count=0                       
                                 
                                                                                                                                                                                                                                                                                                                                        
                    do while not rs.eof and count<rs.pagesize%>                                                                                             
					 <% stat=rs("a_stat")