📄 cxjgdisplay.asp
字号:
scoresum=1
else
response.Write scoresum
tablett=scorett/scoresum*tablewid
tablel=scorel/scoresum*tablewid
tablet=scoret/scoresum*tablewid
tables=scores/scoresum*tablewid
end if
'---------------------------------------------------------
'显示已经投票的总人数
mm=scoreshowt+scoreshowl+scoreshows'+scoreshowtt
'----------------------------------------------------------------
%>
人</td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" >
<% response.write "学生："&scores&"人 占"&formatnumber((scores/scoresum*100),2)&"%"%></td>
<td width="74%" align="left" bgcolor="#FFFFFF" ><table width=<%=tables%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display3.gif"></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" ><% response.write "教师："&scorett&"人 占"&formatnumber((scorett/scoresum*100),2)&"%"%></td>
<td align="left" bgcolor="#FFFFFF" ><table width=<%=tablett%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display4.gif"></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" >
<% response.write "督导："&scoret&"人 占"&formatnumber((scoret/scoresum*100),2)&"%"%></td>
<td height="25" align="left" bgcolor="#FFFFFF" ><table width=<%=tablet%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display2.gif"></td>
</tr>
</table></td>
</tr>
<tr align="center" valign="middle" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" bgcolor="#FFFFFF" ><% response.write "领导："&scorel&"人 占"&formatnumber((scorel/scoresum*100),2)&"%"%></td>
<td height="25" align="left" bgcolor="#FFFFFF" ><table width=<%=tablel%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display1.gif"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<TR valign="top">
<TD height="100" bgcolor="#FFFFFF">
<% IF passwordok=password THEN%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#336699" class="9ptred">
<tr align="center" bgcolor="#1EA6D9">
<td height="25" colspan="3">详细内容：</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">课程综合评价级别：
<input name="password" type="hidden" id="password" value="<%=passwordok%>"></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 %>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#336699" class="w9pt">
<tr align="center" bgcolor="#FFFFFF">
<td height="50" colspan="2"><%=wtitle%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="38%" height="30" align="right" class="9ptred">查询详细成绩输入查询密码：</td>
<td width="62%" height="30"> <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>
<%end if%>
</TD>
</TR>
</table>
</form>
</td>
<td width="9" background="images/rightright.jpg"></td>
</tr>
</table>
</body>
</html>
<% databaseclose()%>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -