📄 displaycxjg.asp
字号:
set rs=db.execute(strsql)
%>
<tr align="center" bgcolor="#FFFFFF">
<td width="20%"><%=rs("userName")%></td>
<td width="20%" height="25" bgcolor="#FFFFFF"><%=rs("depart")%></td>
<td width="20%"><%=rs("class1")%></td>
<td width="20%"><%=rs("num")%></td>
<td width="20%">
<%
strsql="select * from TEACHERSCORE where usertype=2 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"' and userID='"&displaytz(k)&"'"
set rs1=db.execute(strsql)
qut=split(rs1("score"),"*")
qulent=Ubound(qut)
quscoret=0
for m=0 to qulent
quscoret=cint(qut(m))+quscoret
next
quscoret=quscoret/colleague*colleaguep
response.Write "此用户打分："&quscoret&"分"
%></td>
</tr>
<%
next
%>
</table></td>
</tr>
<%end if %>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" align="left" valign="middle" ><% response.write "学生："&scores&"人 占"&left(cstr(scores/scoresum*100),4)&"%"%>
</td>
<td colspan="-1" align="left" valign="middle" ><table width=<%=tables%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display3.gif"></td>
</tr>
</table></td>
</tr>
<% if scores>0 then%>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="2" align="left" bgcolor="#FFFFFF" ><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#336699" class="w9pt">
<%
displaysz=split(displays,"*")
len3=ubound(displaysz)
for k=0 to len3
strsql="select * from user where userName='"&displaysz(k)&"'"
set rs=db.execute(strsql)
%>
<tr align="center" bgcolor="#FFFFFF">
<td width="20%" height="25" bgcolor="#FFFFFF"><%=rs("userName")%></td>
<td width="20%"><%=rs("depart")%></td>
<td width="20%"><%=rs("class1")%></td>
<td width="20%"><%=rs("num")%></td>
<td width="20%">
<%
strsql="select * from TEACHERSCORE where usertype=3 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"' and userID='"&displaysz(k)&"'"
set rs1=db.execute(strsql)
qus=split(rs1("score"),"*")
qulens=Ubound(qus)
quscores=0
for m=0 to qulens
quscores=cint(qus(m))+quscores
next
quscores=quscores/student*studentp
response.Write "此用户打分："&quscores&"分"
%></td>
</tr>
<%
next
%>
</table></td>
</tr>
<%end if %>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" align="left" bgcolor="#FFFFFF" ><% response.write "教师："&scorest&"人 占"&formatnumber((scorest/scoresum*100),2)&"%"%></td>
<td height="25" align="left" bgcolor="#FFFFFF" ><table width=<%=tablest%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display4.gif"></td>
</tr>
</table></td>
</tr>
<%if scorest>0 then %>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="2" align="left" bgcolor="#FFFFFF" ><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#336699" class="w9pt">
<%
displaystz=split(displayst,"*")
len3=ubound(displaystz)
for k=0 to len3
strsql="select * from userinfo where userName='"&displaystz(k)&"'"
set rs=db.execute(strsql)
%>
<tr align="center" bgcolor="#FFFFFF">
<td width="20%" height="25" bgcolor="#FFFFFF"><%=rs("userName")%></td>
<td width="20%"><%=rs("depart")%></td>
<td width="20%"><%=rs("class1")%></td>
<td width="20%"><%=rs("num")%></td>
<td width="20%">
<%
strsql="select * from TEACHERSCORE where usertype=4 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"' and userID='"&displaystz(k)&"'"
set rs1=db.execute(strsql)
qus=split(rs1("score"),"*")
qulens=Ubound(qus)
quscores=0
for m=0 to qulens
quscores=cint(qus(m))+quscores
next
quscores=quscores/student*studentp
response.Write "此用户打分："&quscores&"分"
%></td>
</tr>
<%
next
%>
</table></td>
</tr>
<%end if %>
<TR valign="top" bgcolor="#FFFFFF">
<TD height="49" colspan="3"><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">课程综合评价级别：</td>
<td align="center">
<%
if showok=1 then
mm=cint(mm)
mm=mm*NEWscore/100
mm=mm+cint(scorenewok)
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></TD>
</TR>
<TR align="center" valign="middle" bgcolor="#FFFFFF">
<TD height="50" colspan="3"><A href="javascript:window.close();" class="w9pt">【关闭窗口】</A></TD>
</TR>
</table></td>
</tr>
</table>
</body>
</html>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -