<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"-->
<html>
<head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="../css/style.css" />
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 3px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE3 {color: #FF0000}
-->
</style><body>
<br>

  <%    
        Years = request.cookies("nowxueqi")
		StrGrade=Request("StrGrade")
				
		begindate=Request("begindate")
		enddate=Request("enddate")
		
		if begindate="" then
		Set RSsel = Conn.Execute("select * from  varset where name='班务评比分期设置'  order by vid")
            While NOT RSsel.EOF 			  
                if  CDate(trim(left(RSsel( "shuoming" ),15)))<Date  and  CDate(trim(right(RSsel( "shuoming" ),15)))>Date then
			     	begindate=trim(left(RSsel("shuoming"),15))
					enddate=trim(right(RSsel("shuoming"),15))
					 
		        end if
	    
	   
           RSsel.MoveNext
           Wend
		   RSsel.Close
		       if begindate="" then 
				begindate=date()-7
				end if 	
			 
				if enddate="" then 
				enddate=date()
				end if     
		end if 
	   %>
<FORM ACTION="bantongji.asp" METHOD="GET" enctype="multipart/form-data" NAME="ftype">
 <table width="95%" border="1" align="center" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtablehui"> 
      <tr style="background-color:#D6E4FF"  class="TableHeader">      <td height="30" colspan="3" valign="middle"  align="center" nowrap class="NemuNot"> 
    <div align="center">
     <div align="center" class="STYLE1">年级
     <select name="StrGrade" id="StrGrade">
        <option selected value=<%=strGrade%>><%=strGrade%></option>
        <% Set RSsel = Conn.Execute("select vname from  varset where name='beikeji'")
               While NOT RSsel.EOF %>
               <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
          <% RSsel.MoveNext
             Wend
             RSsel.Close%>
       </select>
      &nbsp;&nbsp;&nbsp;  <input name="begindate" type="text" class="input" id="begindate" value=<%=begindate%> size="10">
      至  
      <input name="enddate" type="text" class="input" id="enddate" value=<%=enddate%> size="10">
      <label> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name="Submit" type="submit" class="topanniu" value="级班统计">
      </label>
  </div></td>    </tr>    </table> 
  <br>
      <table width="95%" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#666666"  style="border-collapse:collapse">   
      <tr style="background-color:#D6E4FF"  class="TableHeader">
	  <td height="30" align="center" nowrap class="STYLE1"><span class="STYLE1">班别</span></td>
	  <%Set RSbanwurizhi = Conn.Execute("select * from varset where  name='学生常规'  order by vid")
	   While NOT RSbanwurizhi.EOF%>
      <td height="30" align="center" nowrap class="STYLE1"><span class="STYLE1"><%=RSbanwurizhi("vname")%></span></td>
   <%
		RSbanwurizhi.movenext
        wend
		RSbanwurizhi.close
	
	
	  
	   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
       call  MyOAASPObj.BanTongJi(Years,strGrade,begindate,enddate)
       set MyOAASPObj=nothing	 
	   %>		
	    
		
       
</FORM>
    
</body>
</html>
