?? cxjgdisplayxianxi.asp
字號:
<!--#include file="Function.asp"-->
<!--#include file="Odbc_connection.asp"-->
<!--#include file="incfirst.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="wangye9pt.css" rel="stylesheet" type="text/css">
<title><%=wtitle%></title><style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
-->
</style></head>
<body>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#336699" class="w9pt">
<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>
</table></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" align="left" valign="middle" ><% response.write "領導："&scorel&"人 占"&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="#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=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="#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>
</form>
<%end if%></TD>
</TR>
<TR align="center" valign="middle" bgcolor="#FFFFFF">
<TD height="30" colspan="3"><A href="javascript:window.close();" class="w9pt">【關閉窗口】</A></TD>
</TR>
</table>
</body>
</html>
<% databaseclose() %>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -