免费VC++基于校园网的学院教学质量监测评估系统(七)

免费VC++基于校园网的学院教学质量监测评估系统(七) rs("xs_id")=Session("xsid")
rs("kc_id")=kc_id
rs("cs")=1
rs.update
rs.close
set rs=nothing
else
sql="select cs from cs_table"
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
if Clng(rscat("cs")) <= Clng(rs("cs")) then
founderr=true
errmsg=errmsg+"<br>"+"<li>你已经超出该老师评议次数！"
rscat.close
set rscat=nothing
else
rs("cs")=rs("cs")+1
rs.update

rscat.close
set rscat=nothing
rs.close
set rs=nothing
end if
end if
if founderr then
call diserror()
response.End
end if

4.2教师对教学评议结果的查看
系统根据教学管理的需要设置了4个级别的查看权限学院领导进行身份验证登录到系统后可以看到全院所有教师的教学质量监测评议结果，系部领导（正副主任、正副书记等）处级干部进行身份验证登录到系统后可以看到全系所有教师的教学质量监测评议结果，教研室主任（办公室主任、实验中心主任等）科级干部进行身份验证登录到系统后可以看到自己科室所有教师的教学质量监测评议结果，教师本人进行身份验证登录到系统后可以看到自己的教学质量监测评议结果。
教师进入本系统后，需要选择教师姓名和输入密码，系统对教师的缺省密码是“ncist”，教师登录后可以修改，见图4-4和4-5。

图4-4 教师登录界面

图4-5 教师登录后界面
在图4-5界面中，系统提供了“管理首页”、“修改密码”、“联系管理员”、“查看个人评议得分”、“查看评语及建议”、“查看其他教师的测评”、“督导意见及建议”等功能模块。
系统在身份验证时会自动识别身份来显示不同，不同身份可以看到不同的信息，例如，刘士杰教授为信息管理与信息系统教研室主任，他可以单击“查看其他教师的测评”，查看教研室内所有教师测评信息。
如果学生对教师的评议具有人身攻击和侮辱诽谤等词语时，教师可以选择该评语发生的时间，填入相应的表格中，见图4-6所示，然后点击发送就可以了。

图4-6 特殊意见反馈

系统进行身份验证、权限识别和结果查看的核心代码如下：
<%sub yddpf()
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM score where t_id="&Session("t_py")
rs.OPEN sql,Conn,1,1
if rs.eof and rs.bof then
errmsg=errmsg+"<br>"+"<li>没有评测！"
FoundErr=True
call diserror()
response.end
else
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="SELECT t_name FROM t_table where t_id="&Session("t_py")
rs2.OPEN sql,Conn,1,1
%>
<%rs2.close
set rs2=nothing
rs.close
set rs=nothing
end if
end sub

4.3 督导对教学质量的评议
系统根据教学管理的需要设置了2个级别的查看权限院督导可以给全院教师评议还可以统计评分结果；系督导可以对系部教师评议，还可以查看学生评议记录；
督导进入本系统后，需要选择督导姓名和输入密码，系统对督导的缺省密码是“dudaoncist”，督导登录后可以修改，见图4-7和4-8。

图4-7督导登陆

图4-8督导用户界面
在图4-8界面中，系统提供了“管理首页”、“修改密码”、“、“统计评议得分”、“学生评议记录管理”等功能模块。
系统在身份验证时会自动识别身份来显示不同，不同身份可以看到不同的信息，例如，郭红老师为计算机系督导，他可以单击“进入评议”，对计算机系所有教师评议。还可以单击“学生评议记录管理”查看学生评议记录，根据记录给学生加量化分。又例如，刘士杰教授为院督导，他可以单击“进入评议”，对院所有教师评议。还可以单击“评分统计”统计某个系教师得分情况。如图4-9

图4-9评分统计界面
实现以上功能的核心代码如下：
<%sub save()
if CommentedID<>"" then
if instr(CommentedID,"|")>0 then
  arrCommentedID=split(CommentedID,"|")
  for i=0 to ubound(arrCommentedID)
   if CStr(arrCommentedID(i))=kc_name then
    Commented=True
    exit for
   end if
  next
else
  if CStr(CommentedID)=kc_name then
   Commented=True
  end if
end if
end if
if Commented=True then
FoundErr=True
errmsg=errmsg &+"<br>"+ "<li>你已经对该课程发表过评议了！</li>"
end if
if founderr then
call diserror()
response.End
end if