<%
response.write "
"
response.write "全校最新10条行为规范信息：
"
response.write ""
%>
<%
'\\\\\\\\\\\\\\\\\\\\\\
StartTime = CDate("2008-2-24")
dDate1 = CDate(Now())
dDate = StartTime '获得本学期第一周的星期日所有的时间StartTime
'***************************************计算当前的所在的时间是第几周
iiikkk = datediff("w",dDate,dDate1) + 1
'response.write iiikkk
Select Case Cint(weekday(dDate1))
Case 1
cw1="星期日"
Case 2
cw1="星期一"
Case 3
cw1="星期二"
Case 4
cw1="星期三"
Case 5
cw1="星期四"
Case 6
cw1="星期五"
Case 7
cw1="星期六"
End Select
'response.write cw1
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
response.write "
"
response.write "第"& iiikkk & "周"
response.write "的
"
response.write cw1
response.write "行为规范打分情况："
'=======================================
Set KS_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
KS_RS_Obj.Open "Select ks_gf_class as 班级 ," & _
"sum(case when ks_gf_xm='广播操' then ks_gf_num else 0 end) as 广播操, " & _
"sum(case when ks_gf_xm='眼保健操' then ks_gf_num else 0 end) as 眼保健操, " & _
"sum(case when ks_gf_xm='升旗' then ks_gf_num else 0 end) as 升旗, " & _
"sum(case when ks_gf_xm='活动集会' then ks_gf_num else 0 end) as 活动集会, " & _
"sum(case when ks_gf_xm='出勤' then ks_gf_num else 0 end) as 出勤, " & _
"sum(case when ks_gf_xm='课间纪律' then ks_gf_num else 0 end) as 课间纪律, " & _
"sum(case when ks_gf_xm='课堂纪律' then ks_gf_num else 0 end) as 课堂纪律, " & _
"sum(case when ks_gf_xm='午间纪律' then ks_gf_num else 0 end) as 午间纪律, " & _
"sum(case when ks_gf_xm='就餐纪律' then ks_gf_num else 0 end) as 就餐, " & _
"sum(case when ks_gf_xm='教室卫生' then ks_gf_num else 0 end) as 教室卫生, " & _
"sum(case when ks_gf_xm='包干区卫生' then ks_gf_num else 0 end) as 包干区, " & _
"sum(case when ks_gf_xm='个人卫生' then ks_gf_num else 0 end) as 个人卫生, " & _
"sum(case when ks_gf_xm='仪表' then ks_gf_num else 0 end) as 仪表, " & _
"sum(case when ks_gf_xm='爱护公物' then ks_gf_num else 0 end) as 爱护公物, " & _
"sum(case when ks_gf_xm='自行车摆放' then ks_gf_num else 0 end) as 自行车, " & _
"sum(case when ks_gf_xm='其它行为' then ks_gf_num else 0 end) as 其它行为 " & _
" from KS_U_gf where KS_gf_zhouCi ='"&iiikkk&"' and KS_gf_xq ='" & cw1 & "' Group by KS_gf_Class order by Ks_gf_class desc" ,Conn,1,1
If Not KS_RS_Obj.Eof Then
call outinfo2(KS_RS_Obj)
Else
End If
KS_RS_Obj.Close:Set KS_RS_Obj=Nothing
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'000000000000000000000000000000000000000000000000000000000000000000
response.write "
第"
response.write iiikkk
response.write "周全校行为规范打分汇总情况："
response.write ""
'=======================================
Set KS_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
KS_RS_Obj.Open "Select ks_gf_class as 班级 ," & _
"sum(case when ks_gf_xm='广播操' then ks_gf_num else 0 end) as 广播操, " & _
"sum(case when ks_gf_xm='眼保健操' then ks_gf_num else 0 end) as 眼保健操, " & _
"sum(case when ks_gf_xm='升旗' then ks_gf_num else 0 end) as 升旗, " & _
"sum(case when ks_gf_xm='活动集会' then ks_gf_num else 0 end) as 活动集会, " & _
"sum(case when ks_gf_xm='出勤' then ks_gf_num else 0 end) as 出勤, " & _
"sum(case when ks_gf_xm='课间纪律' then ks_gf_num else 0 end) as 课间纪律, " & _
"sum(case when ks_gf_xm='课堂纪律' then ks_gf_num else 0 end) as 课堂纪律, " & _
"sum(case when ks_gf_xm='午间纪律' then ks_gf_num else 0 end) as 午间纪律, " & _
"sum(case when ks_gf_xm='就餐纪律' then ks_gf_num else 0 end) as 就餐, " & _
"sum(case when ks_gf_xm='教室卫生' then ks_gf_num else 0 end) as 教室卫生, " & _
"sum(case when ks_gf_xm='包干区卫生' then ks_gf_num else 0 end) as 包干区, " & _
"sum(case when ks_gf_xm='个人卫生' then ks_gf_num else 0 end) as 个人卫生, " & _
"sum(case when ks_gf_xm='仪表' then ks_gf_num else 0 end) as 仪表, " & _
"sum(case when ks_gf_xm='爱护公物' then ks_gf_num else 0 end) as 爱护公物, " & _
"sum(case when ks_gf_xm='自行车摆放' then ks_gf_num else 0 end) as 自行车摆放, " & _
"sum(case when ks_gf_xm='其它行为' then ks_gf_num else 0 end) as 其它行为 " & _
"from KS_U_gf where ks_gf_zhouCi ='"& iiikkk &"'" _
& _
"Group by ks_gf_Class order by ks_gf_class desc" ,Conn,1,1
If Not KS_RS_Obj.Eof Then
Call outinfo(KS_RS_Obj)
Else
End If
KS_RS_Obj.Close:Set KS_RS_Obj=Nothing
'000000000000000000000000000000000000000000000000000000000000000000
'\\\\\\\\\\\\\\\\\\\\\\
Call CuShiHua()
If request("action")="ban" then
'统计某班第几周
response.write "
"
response.write Request("class")
response.write "的
第"
response.write Request("zhouCi")
response.write "周行为规范打分情况："
Set KS_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
KS_RS_Obj.Open "Select ks_gf_class as 班级," & _
"ks_gf_zhouCi as 周次,ks_gf_xq as 星期," & _
"ks_gf_xm as 项目,ks_gf_num as 分值," & _
"Title as 扣分原因 from KS_U_gf where " & _
"ks_gf_zhouCi ='"& Request("zhouCi") &"' and " & _
"ks_gf_class ='" & Request("class") & "'" ,Conn,1,1
If Not KS_RS_Obj.Eof Then
Call outinfo(KS_RS_Obj)
Else
End If
KS_RS_Obj.Close:Set KS_RS_Obj=Nothing
ElseIf Request("action")="xqj" then
'统计全校某周星期几
response.write "
第"
response.write Request("zhouCi")
response.write "周的
"
response.write Request("xqj")
response.write "行为规范打分情况："
Set KS_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
KS_RS_Obj.Open "Select ks_gf_class as 班级 ," & _
"sum(case when ks_gf_xm='广播操' then ks_gf_num else 0 end) as 广播操, " & _
"sum(case when ks_gf_xm='眼保健操' then ks_gf_num else 0 end) as 眼保健操, " & _
"sum(case when ks_gf_xm='升旗' then ks_gf_num else 0 end) as 升旗, " & _
"sum(case when ks_gf_xm='活动集会' then ks_gf_num else 0 end) as 活动集会, " & _
"sum(case when ks_gf_xm='出勤' then ks_gf_num else 0 end) as 出勤, " & _
"sum(case when ks_gf_xm='课间纪律' then ks_gf_num else 0 end) as 课间纪律, " & _
"sum(case when ks_gf_xm='课堂纪律' then ks_gf_num else 0 end) as 课堂纪律, " & _
"sum(case when ks_gf_xm='午间纪律' then ks_gf_num else 0 end) as 午间纪律, " & _
"sum(case when ks_gf_xm='就餐纪律' then ks_gf_num else 0 end) as 就餐, " & _
"sum(case when ks_gf_xm='教室卫生' then ks_gf_num else 0 end) as 教室卫生, " & _
"sum(case when ks_gf_xm='包干区卫生' then ks_gf_num else 0 end) as 包干区, " & _
"sum(case when ks_gf_xm='个人卫生' then ks_gf_num else 0 end) as 个人卫生, " & _
"sum(case when ks_gf_xm='仪表' then ks_gf_num else 0 end) as 仪表, " & _
"sum(case when ks_gf_xm='爱护公物' then ks_gf_num else 0 end) as 爱护公物, " & _
"sum(case when ks_gf_xm='自行车摆放' then ks_gf_num else 0 end) as 自行车摆放, " & _
"sum(case when ks_gf_xm='其它行为' then ks_gf_num else 0 end) as 其它行为 " & _
" from KS_U_gf where ks_gf_zhouCi " & _
"='"& Request("zhouCi") &"' and " & _
"ks_gf_xq ='" & Request("xqj") & "'" & _
" Group by ks_gf_Class order " & _
"by ks_gf_class desc" ,Conn,1,1
If Not KS_RS_Obj.Eof Then
Call outinfo(KS_RS_Obj)
Else
End If
KS_RS_Obj.Close:Set KS_RS_Obj=Nothing
Elseif request("action")="dang" then '统计第几周到第几周的情况
response.write "
第"
response.write request("zhouCi")
response.write "周到
第"
response.write request("zhouCi1")
response.write "周行为规范打分情况："
'=======================================
Set KS_RS_Obj=Server.CreateObject("ADODB.RECORDSET")
KS_RS_Obj.Open "Select ks_gf_class as 班级 ," & _
"sum(case when ks_gf_xm='广播操' then ks_gf_num else 0 end) as 广播操, " & _
"sum(case when ks_gf_xm='眼保健操' then ks_gf_num else 0 end) as 眼保健操, " & _
"sum(case when ks_gf_xm='升旗' then ks_gf_num else 0 end) as 升旗, " & _
"sum(case when ks_gf_xm='活动集会' then ks_gf_num else 0 end) as 集会, " & _
"sum(case when ks_gf_xm='出勤' then ks_gf_num else 0 end) as 出勤, " & _
"sum(case when ks_gf_xm='课间纪律' then ks_gf_num else 0 end) as 课间纪律, " & _
"sum(case when ks_gf_xm='课堂纪律' then ks_gf_num else 0 end) as 课堂纪律, " & _
"sum(case when ks_gf_xm='午间纪律' then ks_gf_num else 0 end) as 午间纪律, " & _
"sum(case when ks_gf_xm='就餐纪律' then ks_gf_num else 0 end) as 就餐, " & _
"sum(case when ks_gf_xm='教室卫生' then ks_gf_num else 0 end) as 教室卫生, " & _
"sum(case when ks_gf_xm='包干区卫生' then ks_gf_num else 0 end) as 包干区, " & _
"sum(case when ks_gf_xm='个人卫生' then ks_gf_num else 0 end) as 个人卫生, " & _
"sum(case when ks_gf_xm='仪表' then ks_gf_num else 0 end) as 仪表, " & _
"sum(case when ks_gf_xm='爱护公物' then ks_gf_num else 0 end) as 爱护公物, " & _
"sum(case when ks_gf_xm='自行车摆放' then ks_gf_num else 0 end) as 自行车, " & _
"sum(case when ks_gf_xm='其它行为' then ks_gf_num else 0 end) as 其它行为 " & _
"from KS_U_gf where ks_gf_zhouCi >='"& request("zhouCi") &"' and " & _
"ks_gf_zhouCi <='" & request("zhouCi1") & "' " & _
"Group by ks_gf_Class order by ks_gf_class desc" ,Conn,1,1
If Not KS_RS_Obj.Eof Then
Call outinfo2(KS_RS_Obj)
Else
End If
KS_RS_Obj.Close:Set KS_RS_Obj=Nothing
End If
Function outinfo(rst)
allcount=rst.recordcount-1
response.write "
"
response.write ""
for k=0 to rst.fields.count-1
response.write "| " &_
""&rst(k).name&" | "
next
response.write "
"
for i=0 to allcount
response.write ""
for k=0 to rst.fields.count-1
if isNumeric(rst(k).value) then '是数字吗
if rst(k).value < 0 then
response.write "| "&rst(k).value&" | "
elseif rst(k).value > 0 and rst(k).name <> "周次" then
response.write ""&rst(k).value &"(加分!) | "
elseif rst(k).name = "周次" then
response.write ""&rst(k).value&" | "
else
response.write ""&" "&" | "
end if
else
response.write ""&rst(k).value&" | "
end if
next
response.write "
"&vbcrlf
rst.movenext
next
response.write "
记录条数:["&allcount+1&"]"
End Function
Function outinfo2(rst)
allcount=rst.recordcount-1
response.write "
"
response.write ""
for k=0 to rst.fields.count-1
response.write "| " &_
""&rst(k).name&" | "
next
'==============
response.write "" &_
""&"总计"&" | "
'==============
response.write "
"
for i=0 to allcount
response.write ""
'==============
vbtj = 0
for k=0 to rst.fields.count-1
if isNumeric(rst(k).value) then '是数字吗
if rst(k).value < 0 then
response.write "| "&rst(k).value&" | "
elseif rst(k).value > 0 and rst(k).name <> "周次" then
response.write ""&rst(k).value &"(加分!) | "
elseif rst(k).name = "周次" then
response.write ""&rst(k).value&" | "
else
response.write ""&" "&" | "
end if
else
response.write ""&rst(k).value&" | "
end if
'====================
if k>0 and k< rst.fields.count-1 then
vbtj = vbtj + rst(k).value
end if
'====================
next
'====================
response.write ""&vbtj&" | "
'====================
response.write "
"&vbcrlf
rst.movenext
next
response.write "
记录条数:["&allcount+1&"]"
End Function
Sub CuShiHua()
'初始化
%>
<%
'=====================================
'===上述构造了从第几周到第几周的查询,
'===下面构造 第几周 星期几 的查询
'=====================================
%>
<%
End Sub
%>