📄 cxjgdisplay.asp
字号:
<%
if session("UserID")="" or session("usertype")="" or session("UserNAME")="" THEN
response.write"<script>alert('请不要非法登陆！');location='index.asp'</script>"
END IF
%>
<!--#include file="top.asp"-->
<!--#include file="Function.asp"-->
<!--#include file="Odbc_connection.asp"-->
<!--#include file="incfirst.asp"-->
<%
term=request.Form("addone_id")
course=request.Form("addtwo_id")
teach=session("UserNAME")
depart=session("Userdepartment")
URL="cxjgdisplayxianxi.asp?term="&term&"&course="&course
if term<>"" and course<>"" then
response.Write "<script>window.open('"&URL&"','哈尔滨学院教师教学质量评价系统','width=400,height=500');</script>"
end if
passwordok=request.Form("password")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="wangye9pt.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body>
<table width="786" height="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="188" rowspan="2" valign="top" background="images/lefttiao.jpg"><!--#include file="left.asp"--></td>
<td height="20" colspan="2"><img src="images/righttop.jpg" width="598" height="20"></td>
</tr>
<tr>
<td width="589" height="500" align="center" valign="top">
<form action="" method="post" name="addform" id="addform" >
<table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#336699" class="w9pt">
<tr align="center" bgcolor="#FFFFFF">
<td width="100%" height="25" colspan="4" class="W12pt"><%=wtitle%></td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" colspan="4" class="w9pt"> 欢迎<font color="#CC0099"><%=depart&"的"&teach%></font>老师查询您的成绩，希望再接再厉，做出更好的成绩！</td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" align="right" >
<%
depart=session("Userdepartment")
teach=session("UserNAME")
if depart="请选择教师院系" or teach=Null or teach="请选择教师" then
response.write"<script>alert('请选择教师院系与教师名称！');location='pingjiaone.asp'</script>"
response.End()
end if
%> <input name="depart" type="hidden" id="depart" value="<%=depart%>">
<input name="teach" type="hidden" id="teach" value="<%=teach%>"><a href="#" onClick="MM_openBrWindow('teacherMp.asp','000','scrollbars=yes,width=300,height=300')">【修改登陆密码】</a></td>
</tr>
<tr align="left" bgcolor="#FFFFFF">
<td height="25" >
<%
sql = "select * FROM TEACHERCOURSE where teachername='"&teach&"' and department='"&depart&"'order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1%>
<script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs("COURSE"))%>","<%= trim(rs("TERMID"))%>","<%= trim(rs("ID"))%>");
<%count = count + 1
rs.movenext
loop
rs.close
set rs=nothing%>
onecount1=<%=count%>;
function changelocation1(addone)
{
document.addform.addtwo_id.length = 0;
var addone_id=addone_id;
var i;
document.addform.addtwo_id.options[0] = new Option('请选择教师课程','');
for (i=0;i < onecount1; i++)
{
if (subcat1[i][1] == addone)
{
document.addform.addtwo_id.options[document.addform.addtwo_id.length] = new Option(subcat1[i][0], subcat1[i][2]);
}
}
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="85%" height="40"><select name="addone_id" onChange="changelocation1(document.addform.addone_id.options[document.addform.addone_id.selectedIndex].value)">
<option value="" selected>请选择教师开课学期</option>
<%
sql="select * from TERM order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("TERM")%></option>
<%rs.movenext
wend
rs.Close()
%>
</select>
<select name="addtwo_id">
<option selected value="">请选择教师课程</option>
</select>
<input type="submit" name="Submit" value="提交查看详细信息"></td>
</tr>
</table></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td align="left" ><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#336699" class="w9pt">
<tr align="center" valign="middle" bgcolor="#1EA6D9">
<td height="25" colspan="5" >目前参加<%=Wtitle%>投票人数：
<%
'-----------------------------------------------------------------------------------------------------------------
strsql="select count(*) as total from TEACHERSCORE where usertype=1 and TEACHERID='"&teach&"' and depart='"&depart&"'"
set rs=db.execute(strsql)
scorel=rs("total")
strsql="select * from TEACHERSCORE where usertype=1 and TEACHERID='"&teach&"' and depart='"&depart&"'"
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&"'"
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&"'"
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&"'"
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&"'"
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&"'"
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&"'"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -