⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 cxjgdisplayxianxi.asp

📁 学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除
💻 ASP
📖 第 1 页 / 共 2 页
字号:
      </table></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="25" align="left" valign="middle" ><% response.write "领导:"&scorel&"人&nbsp;&nbsp;占"&formatnumber((scorel/scoresum*100),2)&"%"%></td>
    <td colspan="-1" align="left" valign="middle" ><table width=<%=tablel%> height="10" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td background="images/display1.gif"></td>
        </tr>
      </table></td>
  </tr>
  <TR valign="top" bgcolor="#FFFFFF">
    <TD height="49" colspan="3"><% IF passwordok=password THEN%>
      <table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
        <tr align="center" bgcolor="#1EA6D9">
          <td height="25" colspan="3" bgcolor="#ADD7FF">详细内容:</td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td width="9%" align="center">1</td>
          <td width="57%" height="20">学生评价平均分数:</td>
          <td width="34%" align="center"><%
			  showok=1
			  if scoreshows<>0 then
			  scoreshows=formatnumber(scoreshows,2)
			  response.Write scoreshows&"分"
			  else
			  response.Write "暂无"
			   showok=0
			  end if
			  %></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td align="center">2</td>
          <td height="25">督导评价平均分数:</td>
          <td align="center"><%
			  if scoreshowt<>0 then
			  scoreshowt=formatnumber(scoreshowt,2)
			  response.Write scoreshowt&"分"
			  else
			  showok=0
			  response.Write "暂无"
			  end if
			  
			  %></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td align="center">3</td>
          <td height="20">领导评价平均分数:</td>
          <td align="center"><%
			   if scoreshowl<>0 then
			  scoreshowl=formatnumber(scoreshowl,2)
			  response.Write scoreshowl&"分"
			  else
			  showok=0
			  response.Write "暂无"
			  end if
			  
			  
			  %></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td align="center">4</td>
          <td height="20">教师评价参考分数:</td>
          <td align="center"><%
			  if scoreshowtt<>0 then
			  scoreshowtt=formatnumber(scoreshowtt,2)
			  response.Write scoreshowtt&"分"
			  else
			 
			  response.Write "暂无"
			  end if
			  
			  %></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td align="center">5</td>
          <td height="25">此教师总平均分数:</td>
          <td align="center"><%
			  if showok=1 then
			  if mm<>0 then
			  mm=formatnumber(mm,2)
			  response.Write mm&"分"
			  end if
			  else
			  
			  response.Write "目前不能计算"
			  
			  end if
			  %></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td align="center">6</td>
          <td height="25">教师教改创新分数:</td>
          <td align="center"><%
			   strsql="select count(*) as total from TEACHERNEW where TEACHERID='"&teach&"' and depart='"&depart&"'"
		       set rs=db.execute(strsql)
			   scorenew=rs("total")
			   scorenewok=0
			 
			   
			   ''''''显示创新总分
			   newokscore=0
			  '''''''''''''''''--------------------------------------
			  '---------是否可算成绩
			  if scorenew<>0 then
			  strsql="select * from TEACHERNEW where TEACHERID='"&teach&"' and depart='"&depart&"'"
		      set rs=db.execute(strsql)
			  for i=1 to  scorenew
			  scorenewzu=split(rs("score"),"*")
			  lendl=ubound(scorenewzu)
			  for j=0 to lendl
			  scorenewok=cint(scorenewzu(j))+cint(scorenewok)
			  next
			  rs.movenext
			  next
			  scorenewok=scorenewok/scorenew
			  response.Write scorenewok&"分"
			  else
			  response.Write "目前无创新分"
			  
			  end if
			  
			  %>
          </td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td align="center">7</td>
          <td height="25">课程综合评价级别:</td>
          <td align="center"><%
			   if showok=1 then
			
			  mm=mm*NEWscore/100
			  mm=mm+cint(scorenewok)
			  mm=formatnumber(mm,2)
			  RESPONSE.Write mm&"分【"
			  if mm>77 then
			  str1="A"
			  elseif mm>64 then
			  str1="B"
			  elseif mm>53 then
			  str1="C"
			  else
			  str1="D"
			  end if 
			  response.Write str1&"级】"
			  else
			  response.Write "目前不能计算"
			  end if
			  %></td>
        </tr>
      </table>
      <%else %>
      <form name="form1" method="post" action="">
        <table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#ADD7FF">
          <tr align="center" bgcolor="#FFFFFF">
            <td height="50" colspan="2"><%=wtitle%></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="38%" height="30" align="right">成绩输入查询密码:</td>
            <td width="62%" height="30">&nbsp;&nbsp;
              <input name="password" type="password" id="password"></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="30" align="right"></td>
            <td height="30"><input name="imageField" type="image" src="images/xxxx.gif" width="134" height="32" border="0"></td>
          </tr>
        </table>
      </form>
      <%end if%>
      
      
    </TD>
  </TR>
  <TR align="center" valign="middle" bgcolor="#FFFFFF">
    <TD height="30" colspan="3"><A href="javascript:window.close();">【关闭窗口】</A>
    </TD>
  </TR>
</table>                    
                    
                    
                    
                    
                    
                    
                                       </td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="21">&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        </tr>
    </table></td>
  </tr>
  <tr>
    
  </tr>
  
  
  <tr>
    <td height="25">
	<% databaseclose() %>
	<!--#include file="foot.asp"--></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -