<!--#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;
	background-color: #F7FCFF;
}
.STYLE3 {color: #FF0000}
-->
</style><body>
    <FORM ACTION="BWPBNeMu.asp" METHOD="GET" enctype="multipart/form-data" NAME="ftype">
     
 <%
		
	   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 
		 
%><br>
   <table width="245" 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">
   <table width="245" border="0" align="center" cellpadding="0" cellspacing="0">
    
     <tr>
       <td height="31" class="STYLE1"><div align="right">
          <input name="begindate" type="text" class="input" id="begindate" size="11"   value=<%=begindate%>>
          至</div></td>
       <td class="STYLE1">
         <div align="center">
           <input name="enddate" type="text" class="input" id="enddate"   size="11"  value=<%=enddate%>>
         </div></td>
     </tr>
	  <tr>
       <td width="127" height="31" class="STYLE1"><div align="center" class="STYLE1">
         <div align="right">
           <select name="StrGrade" id="StrGrade"  style= "width:100px ">
             <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>
           级       </div>
       </div></td>
       <td width="118" class="STYLE1">
         
         <div align="center">
           <input name="Submit" type="submit" class="topanniu" value="查询">
         </div></td>
     </tr>
	 </table>
	 
	  </td>    </tr>    </table> 
	  <table width="245" border="0" align="center" cellpadding="0" cellspacing="0">
	 <tr>
	   <td  colspan="2" class="STYLE1">
	   
	     <div align="center">
	       <%   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
       call  MyOAASPObj.banwupingbi_MXnemu(strGrade,begindate,enddate)
       set MyOAASPObj=nothing%>	   
        </div></td>
	 </tr>
   </table>
  
   <br>
	 
	  
  
</FORM>
   
    
</body>
</html>
