<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"-->
<!doctype html>
<html>
<head><title>小组录入</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="../laydate/laydate.js"></script>
<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>

<script>
function inputFenShu(fenshu)
{
window.form1.score1.value=fenshu;
window.form1.score2.value=fenshu;
window.form1.score3.value=fenshu;
window.form1.score4.value=fenshu;
window.form1.score5.value=fenshu;
window.form1.score6.value=fenshu;
window.form1.score7.value=fenshu;
window.form1.score8.value=fenshu;
window.form1.score9.value=fenshu;
window.form1.score10.value=fenshu;
window.form1.score11.value=fenshu;
window.form1.score12.value=fenshu;
window.form1.score13.value=fenshu;
window.form1.score14.value=fenshu;
window.form1.score15.value=fenshu;
window.form1.score16.value=fenshu;
window.form1.score17.value=fenshu;
window.form1.score18.value=fenshu;
window.form1.score19.value=fenshu;
window.form1.score20.value=fenshu;

}


</script>


<script>
function CheckForm()
{
 if(document.form1.xiangmu.value.length<1){window.alert("请选择项目");document.form1.xiangmu.focus();return (false);}
 if(document.form1.pingbiDate.value.length<1){window.alert("请输入日期");document.form1.pingbiDate.focus();return (false);}  
 
 
}
 
</script>
<style type="text/css">
<!--
.STYLE2 {color: #FF0000}
-->
</style>
<body>
<%    
        strGrade=Request("strGrade")	
	    strClass=Request("strClass")		
		%>	  
		
		

 
<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 class="on">录入分数</li>
			<li><a href="ZuList.asp?strGrade=<%=strGrade%>&strClass=<%=strClass%>" target="_self">录入记录</a></li>	
			<li><a href="ZuTotal.asp?strGrade=<%=strGrade%>&strClass=<%=strClass%>"  target="_self">小组统计</a></li>	
			<li><a href="BenJiTotal.asp?strGrade=<%=strGrade%>&strClass=<%=strClass%>"  target="_self">本级统计</a></li>
			<li><a href="GeRenTotal.asp?strGrade=<%=strGrade%>&strClass=<%=strClass%>"  target="_self">个人统计</a></li>		
		    <li><a href="ZuDeYu.asp?strGrade=<%=strGrade%>&strClass=<%=strClass%>"  target="_self">小组评价总评</a></li>
			
        </ul>
    </div>	
	</td>
  </tr>
  
   
  <tr>
    <td height="470" colspan="3" valign="top"   style="border-left:1px solid #6D8DD8;border-right:1px solid #6D8DD8;border-bottom:1px solid #6D8DD8;">
	<br>
	<%
'检查权限
       tname=request.cookies("tname") 
       Set MyOAASPObj= Server.CreateObject("YFSchoolOApro.YFSchoolDll")
           if MyOAASPObj.QuanXian(tname,"管理班务评比记录")=0 then 
		    response.redirect  "../NoPower.asp"
           end if 
		   set MyOAASPObj=nothing

'检查权限结束



  
			
%>
			<script language="javascript" for="document" event="onkeydown">
			<!--
			  if(event.keyCode==13)
				 event.keyCode=9;
				 
			  if(window.event.keyCode=='116'){ 
  
               window.event.keyCode=0; 
               window.event.returnValue=false; } 
		
			-->
			</script>


<body>
<form name="form1" method="get" action="Zusave.asp?strGrade=<%=strGrade%>"     onSubmit="return CheckForm();">
 
       <div align="center" class="STYLE1">
	    <table width="709" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="559" height="30"><table width="439" border="1" align="center" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtablehui">
              <tr style="background-color:#D6E4FF"  class="TableHeader">
                <td width="429" height="30" colspan="3"  align="center" valign="middle" nowrap class="NemuNot"><a href="BWPBJiLu.asp" target="_blank">评比项目</a>：
                  <select name="xiangmu" id="xiangmu" style= "width:130px ">
                      <option selected></option>
                      <% Set RSsel = Conn.Execute("select vname from  varset where name='小组评比项目' order by vid")
              While NOT RSsel.EOF %>
                      <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
                      <% RSsel.MoveNext
           Wend
           RSsel.Close%>
                    </select>
                  评比日期：
                      
				   <input name=pingbiDate  placeholder="请输入日期"  style="width:90px"  value=<%=date%> class="laydate-icon" onClick="laydate()">
				  
				         </td>
              </tr>
            </table>
            </td>
            <td width="150">&nbsp;</td>
          </tr>
        </table>
	    </div>
       <table width="909" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
           <td width="682" height="319"><table width="682" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">
             <tr style="background-color:#D6E4FF"  class="TableHeader">
               <td width=65 align=middle class="STYLE1"><div align="center"><font color="#000000" size="2">级别</font></div></td>
               <td width=65 height="30" align=middle class="STYLE1"><div align="center"><font color="#000000" size="2">班别</font></div></td>
               <td width=74 align=middle class="STYLE1"><div align="center">小组号</div></td>
               <td width=57 align=middle class="STYLE1"><div align="center"><%=strSubject%>分数</div></td>
               <td width=379 align=middle class="STYLE1"><div align="center">
                 <p>组成员</p>
                 </div></td>
             </tr> 
			  <%
	  dim iNumber
      dim isex
	  dim zhusu
	  dim ijifen
      Set RS = Conn.Execute("select vname as 小组号 from  varset where name='评比小组名称'   and  vname in  (select 小组号 from students where  Years='"&request.cookies("nowxueqi")& "'  And grade='"&strgrade& "'  And class='"&strclass& "'  group by   小组号)  order by vid")
	  
	  
	
	  %>
	  
      <%iNumber=1   'onKeyPress="if((event.keyCode<48 || event.keyCode>57) && event.keyCode!=46 || /\.\d\d$/.test(value))event.returnValue=false" 分数输入
	 While NOT RS.EOF %>
             <tr>
               <td width=65 align=middle class="STYLE1"><div align="center"><font size="2"><%=strgrade%></font></div></td>
               <td width=65 height="30" align=middle class="STYLE1"><div align="center"><font size="2"><%=strClass%>
                         <input type="hidden" name=<%response.write "class"&iNumber%> value=<%=strClass%>>
               </font></div></td>
               <td width=74  align=middle class="STYLE1"><div align="center"><font size="2"><%=RS( "小组号" )%></font>
                      <input type="hidden" name=<%response.write "xiaozuhao"&iNumber%> value=<%=RS( "小组号" )%>>
               </div></td>
               <td width=57 align=middle class="STYLE1">                   <div align="center">
                 <input    name=<%response.write "score"&iNumber%> type="text" size="5" maxlength="5">               
               </div></td>
               <td width=379 align=middle class="STYLE1">
			   <%   
				   Set Rslist=Server.CreateObject("Adodb.Recordset")
				   sqllist="select uname from students where  Years='"&request.cookies("nowxueqi")& "'  And grade='"&strgrade& "'  And class='"&strclass& "'  And 小组号='"&RS( "小组号" )& "'    "
				   Rslist.open sqllist,conn,1,1 
				   While NOT Rslist.EOF  
					%><%=Rslist( "uname" )%>|<%       
    Rslist.MoveNext
    Wend
 %></td>
             </tr>
             <%   
 
    iNumber=iNumber+1
    RS.MoveNext
    Wend
 %>
           </table>
             <div align="center"></div>
             <div align="center">
               <p>
                 <input name="strgrade" type="hidden" id="strgrade" value=<%=strgrade%>>
				 <input name="strclass" type="hidden" id="strclass" value=<%=strclass%>>
				 <input name="iNumber" type="hidden" id="iNumber" value=<%=iNumber%>>
                 <% RS.Close
  %>
                 <font size="2">
                  <input name="submit" type="submit" class="topanniu" value="保存">
                  </font></p>
            </div></td>
           <td width="227"><table width="213" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">
             <tr>
               <td height="30" colspan="5" class="STYLE1"><div align="center">自动填充数字</div></td>
               </tr>
            
			<%for i=-2 to 5 %>
			 <tr>             
               <td width="30" height="30"><div align="center"><a href="#" class="STYLE5" onClick="javascript:inputFenShu('<%=i*5%>');return false;"><%=i*5%></a></div></td>
               <td><div align="center"><a href="#" class="STYLE5" onClick="javascript:inputFenShu('<%=i*5+1%>');return false;"><%=i*5+1%></a></div></td>
               <td><div align="center"><a href="#" class="STYLE5" onClick="javascript:inputFenShu('<%=i*5+2%>');return false;"><%=i*5+2%></a></div></td>
			   <td><div align="center"><a href="#" class="STYLE5" onClick="javascript:inputFenShu('<%=i*5+3%>');return false;"><%=i*5+3%></a></div></td>
			   <td><div align="center"><a href="#" class="STYLE5" onClick="javascript:inputFenShu('<%=i*5+4%>');return false;"><%=i*5+4%></a></div></td>
             </tr>
			<%next%> 
			 
			
           </table>
           <br>
            <div align="center"></div></td>
         </tr>
       </table>
       <p>
         <label></label>
         <br> 
       </p>
       <p align="center">&nbsp;</p>
	  
	  
	
 

</FORM>





  </td>
  </tr>
</table>
</body>
</html>
