<!--#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>     
 <%
 
		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 
		
		
		
		
		
		
	    StrGrade=Request("StrGrade")
	    StrClass=Request("StrClass") 
		leibie=request("leibie")
		if leibie="" then leibie="全部"
		

			 
%>
    <FORM ACTION="quanxiaomingxi.asp" METHOD="get" enctype="multipart/form-data" NAME="ftype">

   <br>
   <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"> 
   <input name="fenlei" type="hidden" class="text" id="fenlei"  value=<%=fenlei%>>
	<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; 班别
      <select name="strclass" id="strclass">
        <option selected value=<%=strclass%>><%=strclass%></option>
         <% Set RSsel = Conn.Execute("select vname from  varset where name='class' order by vid")
                While NOT RSsel.EOF %>
        <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
             <% RSsel.MoveNext
                Wend
                RSsel.Close%>
</select>
 类型
 <select name="leibie" id="leibie">
   <option selected value=<%=leibie%>><%=leibie%></option> 
   <option value=全部>全部</option>
   <option value=操行评定>操行评定</option>
   <option value=学生常规>学生常规</option>
   <option value=班务评比>班务评比</option>
   
 </select>
      <%   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
       call  MyOAASPObj.banwurizhi_quanxiaomingxi(leibie,strGrade,strClass,begindate,enddate)
       set MyOAASPObj=nothing%>	 
</FORM>
   
    
</body>
</html>
