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

<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
<script src="../laydate/laydate.js"></script>
<body>


<table width="100%" height="495" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="27">
	<div class="header">
	<div class="nav">
        <ul>
            
            <li><a href="gerentongji.asp">个人德育统计</a></li>
			<li><a href="gerenCaoXing.asp">个人操行统计</a></li>
			<li class="on">个人常规统计</li>
           
        </ul>
    </div>	
	</td>
  </tr>
  <tr>
   <td height="400" valign="top"   class="NemuMainBox">
	 
	 <FORM ACTION="gerenChangGui.asp" METHOD="GET" enctype="multipart/form-data" NAME="form1">
    <div align="center"></div>
 <%
		
	    StrGrade=Request("StrGrade")
		StrClass=Request("StrClass")
		Struname=Request("Struname")

        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()-30
				end if 	
			 
				if enddate="" then 
				enddate=date()
				end if     
		end if 
			 
%>
   <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"> 
      <span class="STYLE1">
      <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='grade'")
              While NOT RSsel.EOF %>
        <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
        <% RSsel.MoveNext
           Wend
           RSsel.Close%>
      </select>
      &nbsp;&nbsp; 班别 </font> <font size="2">
        <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>
 
      <%   Set MyOAASPObj = Server.CreateObject("YFSchoolOApro2.YFSchoolDll2")
       call  MyOAASPObj.GeRenChangGui(strGrade,strClass,begindate,enddate)
       set MyOAASPObj=nothing%>	 
      </span>    
        </FORM>
   
	 
	
	
    </td>
  </tr>
</table>
</body>
</html>
