luruok.asp

用于中学教务处通过各班学习委员对每位任课教师教学质量

<!--#include file="conn.asp"-->
<%
kemu=session("kemu")
jieci=session("jieci")
teachername=trim(request("teachername"))
teacherchuqin=request("teacherchuqin")
neirong=request("neirong")
dianjiao=request("dianjiao")
putong=request("putong")
zyshuliang=request("zyshuliang")
zychuli=request("zychuli")
zylaiyuan=request("zylaiyuan")
stuchuqin=request("stuchuqin")
jilu=request("jilu")
yijian=request("yijian")
didian=request("didian")
yanshi=request("yanshi")
zhunbei=request("zhunbei")
fudao=request("fudao")
tkyouwu=request("tkyouwu")
tklaiyuan=request("tklaiyuan")
beizhu=request("beizhu")
tiaoqueke=request("tiaoqueke")
tkkemu=request("tkkemu")
tkjieci=request("tkjieci")
youwu=request("youwu")
if tkkemu<>"" then
set rs4=server.createobject("adodb.recordset")
sql="select * from teacher where classno='"&session("classno")&"'"
rs4.open sql,conn,3,1
tkteacher=rs4(""&tkkemu&"")
rs4.close
end if
dim beginday
set rs3=server.createobject("adodb.recordset")
sql="select startday from config"
rs3.open sql,conn,3,1
tkzhou=request("tkzhou")
beginday=rs3("startday")-weekday(rs3("startday"))+1+7*(tkzhou-1)
tkshijian=beginday+request("tkday")
rs3.close

if kemu<>"自习" and (teachername="" or teacherchuqin="" or neirong="" or dianjiao="" or putong="" or zyshuliang="" or tkyouwu="" or (tkyouwu="有人听课" and tklaiyuan="") or stuchuqin="" or jilu="" or didian="" or stuchuqin="" or jilu="" or didian="") or (youwu="有" and (tkkemu="" or tkjieci=""))then
		if teachername="" then
		response.write "<script>alert('请输入教师姓名');history.go(-1);</script>"
		end if
		if teacherchuqin="" then
		response.write "<script>alert('请选择教师出勤情况');history.go(-1);</script>"
		end if
		if neirong="" then
		response.write "<script>alert('请选择教学内容');history.go(-1);</script>"
		end if
        if dianjiao="" then
		response.write "<script>alert('请选择电教设备使用情况');history.go(-1);</script>"
		end if
		if putong="" then
		response.write "<script>alert('请选择普通话运用情况');history.go(-1);</script>"
		end if
		  if zyshuliang="" then
		  response.write "<script>alert('请选择作业数量');history.go(-1);</script>"
		  end if
		if tkyouwu="" then
		response.write "<script>alert('请选择听课有无');history.go(-1);</script>"
		else
		if tkyouwu="有人听课" then
		if tklaiyuan="" then
		response.write "<script>alert('请选择听课来源');history.go(-1);</script>"
		end if
		end if
		end if
		if stuchuqin="" then
		response.write "<script>alert('请选择学生出勤情况');history.go(-1);</script>"
		end if
		if jilu="" then
		response.write "<script>alert('请选择课堂纪律情况');history.go(-1);</script>"
		end if
		if didian="" then
		response.write "<script>alert('请选择学习地点');history.go(-1);</script>"
		end if
		if tkkemu="" then
		response.write "<script>alert('请选择调课在原科目');history.go(-1);</script>"
		end if
		if tkjieci="" then
		response.write "<script>alert('请选择调课至课时');history.go(-1);</script>"
		end if
else
  if stuchuqin="" or jilu="" then
        if stuchuqin="" then
  		response.write "<script>alert('请选择学生出勤情况');history.go(-1);</script>"
		end if
		if jilu="" then
  		response.write "<script>alert('请选择课堂纪律情况');history.go(-1);</script>"
		end if
		else
		sql = "select * from rizhi where rizhi.no='"&session("no")&"'"
		set rs = server.createobject("adodb.recordset")
		rs.open sql,conn,1,3
		if not session("lu")=1 then
		rs.addnew
		end if
		rs("kemu")=kemu
		rs("teachername")=teachername
		rs("teacherchuqin")=teacherchuqin
		rs("neirong")=neirong
		rs("dianjiao")=dianjiao
		rs("putong")=putong
		rs("zyshuliang")=zyshuliang
		rs("zylaiyuan")=zylaiyuan
		rs("zychuli")=zychuli
		rs("stuchuqin")=stuchuqin
		rs("jilu")=jilu
		rs("yijian")=yijian
		rs("didian")=didian
		rs("yanshi")=yanshi
		rs("fudao")=fudao
		rs("zhunbei")=zhunbei
		rs("tkyouwu")=tkyouwu
		rs("tklaiyuan")=tklaiyuan
		rs("beizhu")=beizhu
		rs("tiaoqueke")=tiaoqueke
		rs("class")=session("cla")
		rs("no")=session("no")
		rs("date")=now()
		rs("jieci")=jieci
		if youwu="有" then
		rs("tkshijian")=tkshijian
		rs("tkkemu")=tkkemu
		rs("tkjieci")=tkjieci
		rs("tkteacher")=tkteacher
		end if
		rs("youwu")=youwu
		rs.update
		rs.close
		set rs = nothing
		conn.close
		set conn = nothing
		response.write "<script>alert('输出成功');window.location.href='ke.asp';</script>"
		end if
		end if
%>