📄 cxjgdisplayxianxi.asp
字号:
<!--#include file="Function.asp"-->
<!--#include file="a25175_top.asp"-->
<!--#include file="incfirst.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="25175css_pro.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
background-color: #FBFDFF;
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="970" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="top.asp"-->
</td>
</tr>
<tr>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" rowspan="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A5BEC6"><table width="200" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" bgcolor="#F7F7F7"> <img src="images/QQ_d.gif" alt="25175" width="15" height="15" /> <a href="index.asp">前台管理区</a></td>
</tr>
<tr>
<td bgcolor="#ADD7FF"><!--#include file="left.asp"--></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="21"> </td>
</tr>
</table></td>
<td width="10"><div align="center"></div></td>
<td rowspan="10" valign="top" bgcolor="#A5BEC6"><table width="755" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#E7F3FF"><table width="750" border="0" cellspacing="4" cellpadding="0">
<tr>
<td valign="top" bgcolor="#004194"><table width="750" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="250" valign="top" bgcolor="#FFFFFF">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ADD7FF">
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="3" ><%
passwordok=request("password")
depart=session("Userdepartment")
teach=session("UserNAME")
term=request("term")
course=request("course")
strsql="select * from term where id="&term
set rs=db.execute(strsql)
term=cstr(rs("term"))
strsql="select * from TEACHERCOURSE where id="&course
set rs=db.execute(strsql)
course=cstr(rs("course"))
if depart="请选择教师院系" or teach=Null or teach="请选择教师" then
response.write"<script>alert('请选择教师院系与教师名称！');location='pingjiaone.asp'</script>"
response.End()
end if
response.Write wtitle
%>
</td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" colspan="3" ><%="教师院系："&depart %></td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" colspan="3" ><%="教师姓名："&teach %></td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" colspan="3" ><%="开课学期："&term%></td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" colspan="3" ><%="课程名称："&course %></td>
</tr>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="3" align="left" >目前参加此课程投票人数：
<%
'-----------------------------------------------------------------------------------------------------------------
strsql="select count(*) as total from TEACHERSCORE where usertype=1 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
scorel=rs("total")
strsql="select * from TEACHERSCORE where usertype=1 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
scoreshowl=0
if scorel<>0 then
for i=1 to scorel
scoredislz=split(rs("score"),"*")
lendl=ubound(scoredislz)
for j=0 to lendl
scoreshowl=cint(scoredislz(j))+scoreshowl
next
rs.movenext
next
scoreshowl=scoreshowl/scorel
end if
scoreshowl=scoreshowl/leader*100*leaderp/100
'----------------------------------------------------------------
'-------------------------计算领导平均分
strsql="select count(*) as total from TEACHERSCORE where usertype=2 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
scoret=rs("total")
scoreshowt=0
if scoret<>0 then
strsql="select * from TEACHERSCORE where usertype=2 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
for i=1 to scoret
scoredistz=split(rs("score"),"*")
lendl=ubound(scoredistz)
for j=0 to lendl
scoreshowt=scoredistz(j)+cint(scoreshowt)
next
rs.movenext
next
scoreshowt=scoreshowt/scoret
end if
scoreshowt=scoreshowt/colleague*100*colleaguep/100
'-------------------------------------------------------------------------------------------------------
'--------------------------------------------------------计算督导平均分
strsql="select count(*) as total from TEACHERSCORE where usertype=3 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
scores=rs("total")
scoreshows=0
if scores<>0 then
strsql="select * from TEACHERSCORE where usertype=3 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
for i=1 to scores
scoredissz=split(rs("score"),"*")
lendl=ubound(scoredissz)
for j=0 to lendl
scoreshows=cint(scoredissz(j))+cint(scoreshows)
next
rs.movenext
next
scoreshows=scoreshows/scores
end if
scoreshows=scoreshows/student*100*student/100
'------------------------------计算学生平均分数
'--------------------------------------------------------------------------
strsql="select count(*) as total from TEACHERSCORE where usertype=4 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
scorett=rs("total")
scoreshowtt=0
if scorett<>0 then
strsql="select * from TEACHERSCORE where usertype=4 and TEACHERID='"&teach&"' and depart='"&depart&"' and course='"&course&"' and term='"&term&"'"
set rs=db.execute(strsql)
for i=1 to scorett
scoredisttz=split(rs("score"),"*")
lendl=ubound(scoredisttz)
for j=0 to lendl
scoreshowtt=cint(scoredisttz(j))+cint(scoreshowtt)
next
rs.movenext
next
scoreshowtt=scoreshowtt/scorett
end if
scoreshowtt=scoreshowtt/tscore*100*teacherp/100
'---------------------------------------------------计算同行教师分数
scoresum=scorel+scoret+scores+scorett
tablewid=400
if scoresum=0 then
response.Write scoresum
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
'----------------------------------------------------------------
%>
人 <a href="TEACHERfKinfo.asp?teach=<%=teach%>&depart=<%=depart%>&term=<%=term%>&course=<%=course%>" target="_blank">【查看我的反馈留言】</a> </td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td width="36%" height="25" align="left" ><% response.write "学生："&scores&"人 占"&formatnumber((scores/scoresum*100),2)&"%"%></td>
<td width="64%" colspan="-1" align="left" ><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" bgcolor="#FFFFFF">
<td height="25" align="left" ><% response.write "教师："&scorett&"人 占"&formatnumber((scorett/scoresum*100),2)&"%"%></td>
<td colspan="-1" align="left" ><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" bgcolor="#FFFFFF">
<td height="25" align="left" valign="middle" ><% response.write "督导："&scoret&"人 占"&formatnumber((scoret/scoresum*100),2)&"%"%></td>
<td height="18" colspan="-1" align="left" valign="middle" ><table width=<%=tablet%> height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/display2.gif"></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -