t.asp

来自「汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强」· ASP 代码 · 共 28 行

<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<% sql = "select al_id,al_name from alcourse order by al_id desc"                                                                                                                                                           
					set rs1 = conn.execute(sql)                                                  
					                                                                                                                                                          
					if rs1.eof and rs1.bof then                                                                                                                                                           
						response.write "该考试没有添加课程！"                                                                                                                                                           
						response.end                                                                                                                                                           
					else   %>                                                                                                                                                        
					                                                                                                                                                           
                                                                                                             
          <%do while not rs1.eof%><%al_name=rs1("al_name")%>                                                                                                                                                                  
          <%=Listcourse(al_name)%> <%=Listcourse2(al_name)%>&nbsp;                                                                                                                                                          
          <%                                                                                                                                                                    
        				rs1.movenext                                                                                                                                                                    
       					loop                                                                                                                                                                    
						end if                                                                                                                                                                    
       					rs1.close                                                                                                                                                                    
        				set rs1 = nothing                                                                                                                                                                    
						%>                                                                               
            <%count=0                                                                                                                                                                
                    do while not rs.eof and count<rs.pagesize%> <% stat=rs("a_stat")                        
                       st=rs("a_no")                        
classid=Liststatclass(stat)                      
if Liststudentname(st)="NotPassed"   then                      
response.write "请先选择班级和考试名称！"                                               
end if                                       
 %>