<!--#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" />
<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>
<%    
        strYears = request.cookies("nowxueqi")
		 
	    strGrade=Request("strGrade")
		 
		
		%>	  
<table width="99%" height="499" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="76%" height="33" >  
	<table  width="100%" height="33" border="0" cellpadding="0" cellspacing="0">
      <tr>
	  
	 
		 <% set RsName=server.createobject("adodb.recordset")
		sqlRsName="select vname from  varset where name='beikeji' order by vid"
		RsName.open sqlRsName,conn,1
		if strGrade="" then strGrade=RsName("vname") 
		 
		while not RsName.eof and not RsName.bof
		%>
		   <%    if strGrade=RsName("vname")  then   %>
		  <td width="120" class="Nemuselect"><div align="center"><a href="BWPBInput.asp?strGrade=<%=RsName("vname")%>" target="_self"><%=RsName("vname")%>评比录入</a></div></td>
		   <%    else   %>
	      <td width="120" class="NemuNot"><div align="center"><a href="BWPBInput.asp?strGrade=<%=RsName("vname")%>" target="_self"><%=RsName("vname")%>评比录入</a></div></td>
			 
		<%end if
		RsName.movenext
		wend
		RsName.close
		Set RsName = Nothing
		
		%>	    
	  	  
        <td    style="border-bottom:1px solid #6D8DD8;"><span class="STYLE1">&nbsp;&nbsp;<span class="STYLE2">&nbsp;</span></span></td>
      </tr>
    </table></td>
    <td width="5%"   style="border-bottom:1px solid #6D8DD8;">&nbsp;</td>
    <td width="5%"   style="border-bottom:1px solid #6D8DD8;">&nbsp;</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="post" action="BWPBsave.asp"   onSubmit="return CheckForm();">
 
       <div align="center" class="STYLE1">
	    <table width="528" 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">
		 评比项目：
	       <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" type="text" class="input" id="pingbiDate" style= "width:130px"  value="<%=date%>">
        
		</td>    </tr>    </table> 
		
		 <%
	  dim iNumber
      dim isex
	  dim zhusu
	  dim ijifen
      Set RS = Conn.Execute("select grade,class from students where  Years='"&stryears& "'  And grade='"&strgrade& "' group by grade, class order by  class") %></div>
      <br> <table width="528" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">   
<tr style="background-color:#D6E4FF"  class="TableHeader">
      <td width=92 height="30" align=middle class="STYLE1"><div align="center"><font color="#000000" size="2">级别</font> </div></td>
      <td width=116 align=middle class="STYLE1"><div align="center"><font color="#000000" size="2">班别</font> </div></td>
      <td width=106 align=middle class="STYLE1"><div align="center"><%=strSubject%>分数</div></td>
      <td width=373 align=middle class="STYLE1"> 
        <div align="center"><%=strSubject%>备注说明</div></td>
    </tr>
    <%iNumber=1
	 While NOT RS.EOF %>
      <tr> 
      <td width=92 height="30" align=middle class="STYLE1"><div align="center"><font size="2"><%=RS( "grade" )%>
        <input type="hidden" name=<%response.write "grade"&iNumber%> value=<%=RS( "grade" )%>>
</font></div></td>
      <td width=116 height="30" align=middle class="STYLE1"> <div align="center"><font size="2"><%=RS( "class" )%></font>
        <input type="hidden" name=<%response.write "class"&iNumber%> value=<%=RS( "class" )%>>
      </div></td>
      <td width=106 align=middle class="STYLE1">
        <div align="center">
          <input   onKeyPress="if((event.keyCode<48 || event.keyCode>57) && event.keyCode!=46 || /\.\d\d$/.test(value))event.returnValue=false" name=<%response.write "score"&iNumber%> type="text" size="10" maxlength="10"%>
        </div></td>
      <td width=373 height="31" align=middle class="STYLE1">
        <div align="center">
          <input name=<%response.write "shuoming"&iNumber%> type="text" size="30" maxlength="30"%>
        </div></td>
    </tr>
    <%   
 
    iNumber=iNumber+1
    RS.MoveNext
    Wend
 %>
  </table>
<p align="center">
        <input name="iNumber" type="hidden" id="iNumber" value=<%=iNumber%>>
        
        <% RS.Close
  %><font size="2"><input name="submit" type="submit" class="topanniu" value="保存">
      </font>	  </p>
	  
	  
	
 

</FORM>





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