<!--#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: 20px;
	margin-top: 3px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE3 {color: #FF0000}
-->
</style><body>
    <FORM ACTION="BWPBtongji.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>
	 <div align="center" class="STYLE1">
      <%   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
       call  MyOAASPObj.BWPBTongJi(begindate,enddate)
       set MyOAASPObj=nothing%>	 
</FORM>
   
    
</body>
</html>
