?? luru.asp
字號(hào):
<!--#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('請(qǐng)輸入錄入節(jié)次');history.go(-1);</script>")
end if
if request("kemu")="" then
response.Write("<script>alert('請(qǐng)輸入本節(jié)科目');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>本節(jié)課教學(xué)日志已經(jīng)輸入,你可以在下表中修改，也可以<a href=ke.asp>返回</a>重新選擇要錄入的課時(shí)</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>重慶市萬州高級(jí)中學(xué)教學(xué)日志管理系統(tǒng)</title>
<LINK href=news.css rel=stylesheet>
</head>
<body>
<p align="center" class="biaoti">重慶市萬州高級(jí)中學(xué)教學(xué)日志管理系統(tǒng)(錄入系統(tǒng))</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">教學(xué)內(nèi)容</td>
<td width="92" rowspan="2" bgcolor="#CCCCCC">電教設(shè)備應(yīng)用</td>
<td width="93" rowspan="2" bgcolor="#CCCCCC">普通話使用</td>
<td colspan="3" bgcolor="#CCCCCC">作業(yè)布置及處理情況</td>
</tr>
<tr align="center">
<td width="86" bgcolor="#CCCCCC">數(shù)量</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="">教學(xué)內(nèi)容</option>
<%end if%>
<option>新課講述</option>
<option>練習(xí)課</option>
<option>復(fù)習(xí)課</option>
<option>實(shí)驗(yàn)課</option>
<option>生活課</option>
<option>輔導(dǎo)課</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="">數(shù)量</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="練習(xí)冊(cè)">練習(xí)冊(cè)</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="講評(píng)">講評(píng)</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">學(xué)生情況</div></td>
<td colspan="3" bgcolor="#99CCFF"> <div align="center">實(shí)驗(yàn)</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -