📄 luru.asp
字号:
<!--#include file="conn.asp"-->
<%
dim mon,da,lu,nam
dim beginday,endday
set rs1=server.createobject("adodb.recordset")
sql="select startday from config"
rs1.open sql,conn,3,1
i=1
beginday=rs1("startday")-weekday(rs1("startday"))+2+7*(i-1)
endday=beginday+6
nowday=date()
do while not (nowday>=beginday and nowday<=endday)
i=i+1
beginday=rs1("startday")-weekday(rs1("startday"))+2+7*(i-1)
endday=beginday+6
loop
w=i
mon=month(now())
da=day(now())
if mon<10 then
mon="0"&mon
end if
if da<10 then
da="0"&da
end if
if request("jieci")="" then
response.Write("<script>alert('请输入录入节次');history.go(-1);</script>")
end if
if request("kemu")="" then
response.Write("<script>alert('请输入本节科目');history.go(-1);</script>")
else
session("kemu")=request("kemu")
end if
session("jieci")=request("jieci")
no1=trim(session("classno")&year(now())&mon&da&session("jieci"))
session("no")=no1
set rs1=server.createobject("adodb.recordset")
rsa="select * from rizhi where rizhi.no='"&no1&"'"
rs1.open rsa,conn,1,1
lu=0
if not rs1.eof then
response.Write("<div align=center><font color=#FF0000>本节课教学日志已经输入,你可以在下表中修改，也可以<a href=ke.asp>返回</a>重新选择要录入的课时</font></div>")
lu=1
end if
session("lu")=lu
set rs=server.createobject("adodb.recordset")
mm=session("classno")
sql="select * from class where classno='"&mm&"'"
rs.open sql,conn,1,3
session("cla")=rs("classname")
set rs2=server.createobject("adodb.recordset")
sqla="select * from teacher where classno='"&mm&"'"
rs2.open sqla,conn,1,3
if request("kemu")<>"" then
nam=rs2(""&request("kemu")&"")
end if
if nam<>"" then%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>重庆市万州高级中学教学日志管理系统</title>
<LINK href=news.css rel=stylesheet>
</head>
<body>
<p align="center" class="biaoti">重庆市万州高级中学教学日志管理系统(录入系统)</p>
<div align="center"> <%=session("cla")%> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日 星期<%=WeekDay(now())-1%> <%=session("jieci")%> <%=session("kemu")%></div>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="770" height="230"><form name="form1" method="post"
action="luruok.asp">
<table width="100%" border="0">
<tr>
<td><table width="100%" border="1">
<!--DWLayoutTable-->
<tr bgcolor="#CCCCCC">
<td colspan="8" class="header"> <div align="center">教师情况</div></td>
</tr>
<tr align="center" bgcolor="#C0C0C0">
<td width="85" rowspan="2" bgcolor="#CCCCCC">教师姓名</td>
<td width="92" rowspan="2" bgcolor="#CCCCCC">出勤情况</td>
<td width="92" rowspan="2" bgcolor="#CCCCCC">教学内容</td>
<td width="92" rowspan="2" bgcolor="#CCCCCC">电教设备应用</td>
<td width="93" rowspan="2" bgcolor="#CCCCCC">普通话使用</td>
<td colspan="3" bgcolor="#CCCCCC">作业布置及处理情况</td>
</tr>
<tr align="center">
<td width="86" bgcolor="#CCCCCC">数量</td>
<td width="86" bgcolor="#CCCCCC">来源</td>
<td width="86" bgcolor="#CCCCCC">处理</td>
</tr>
<tr>
<td> <div align="center">
<input name="teachername" type="text" id="teachername" value="<%=nam%>" size="10">
</div></td>
<td><div align="center">
<select name="teacherchuqin" id="teacherchuqin">
<%if lu=1 then%>
<option value="<%=rs1("teacherchuqin")%>"><%=rs1("teacherchuqin")%></option>
<%else%>
<option value="">出勤情况</option>
<%end if%>
<option value="全勤">全勤</option>
<option value="缺席">缺席</option>
<option value="迟到">迟到</option>
<option value="提前下课">提前下课</option>
</select>
</div></td>
<td><div align="center">
<select name="neirong" id="neirong">
<%if lu=1 then%>
<option value="<%=rs1("neirong")%>"><%=rs1("neirong")%></option>
<%else%>
<option value="">教学内容</option>
<%end if%>
<option>新课讲述</option>
<option>练习课</option>
<option>复习课</option>
<option>实验课</option>
<option>生活课</option>
<option>辅导课</option>
</select>
</div></td>
<td><div align="center">
<select name="dianjiao" id="dianjiao">
<%if lu=1 then%>
<option value="<%=rs1("dianjiao")%>"><%=rs1("dianjiao")%></option>
<%else%>
<option value="">使用电教</option>
<%end if%>
<option value="用">用</option>
<option value="未用">未用</option>
</select>
</div></td>
<td><div align="center">
<select name="putong" id="putong">
<%if lu=1 then%>
<option value="<%=rs1("putong")%>"><%=rs1("putong")%></option>
<%else%>
<option value="">普通话</option>
<%end if%>
<option value="用">用</option>
<option value="未用">未用</option>
</select>
</div></td>
<td><div align="center">
<select name="zyshuliang" id="zyshuliang">
<%if lu=1 then%>
<option value="<%=rs1("zyshuliang")%>"><%=rs1("zyshuliang")%></option>
<%else%>
<option value="">数量</option>
<%end if%>
<option value="多">多</option>
<option value="适中">适中</option>
<option value="少">少</option>
<option value="未布置">未布置</option>
</select>
</div></td>
<td><div align="center">
<select name="zylaiyuan" id="select2">
<%if lu=1 then%>
<option value="<%=rs1("zylaiyuan")%>" selected><%=rs1("zylaiyuan")%></option>
<%else%>
<option value="">来源</option>
<%end if%>
<option value="教材">教材</option>
<option value="练习册">练习册</option>
<option value="试卷">试卷</option>
<option value="其它">其它</option>
</select>
</div></td>
<td><div align="center">
<select name="zychuli" id="select3">
<%if lu=1 then%>
<option value="<%=rs1("zychuli")%>"><%=rs1("zychuli")%></option>
<%else%>
<option value="">处理</option>
<%end if%>
<option value="全批全改">全批全改</option>
<option value="部分改">部分改</option>
<option value="讲评">讲评</option>
<option value="未处理">未处理</option>
</select>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="1">
<tr>
<td colspan="2" bgcolor="#FFFFCC"> <div align="center">听课</div></td>
<td colspan="3" bgcolor="#FFCCFF"> <div align="center">学生情况</div></td>
<td colspan="3" bgcolor="#99CCFF"> <div align="center">实验</div></td>
</tr>
<tr bgcolor="#CCCCCC">
<td width="12%"> <div align="center">有无</div></td>
<td width="13%"> <div align="center">来源</div></td>
<td width="13%"> <div align="center">出勤情况</div></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -