📄 tongjifenxi.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<TABLE WIDTH=778 height=100% BORDER=0 ALIGN=CENTER CELLPADDING=0 CELLSPACING=0>
<TR HEIGHT=36>
<TD COLSPAN=2 ALIGN=CENTER class="style5"> 统 计 分 析 </TD>
</TR>
<tr>
<td height=1 bgcolor="black"></td>
</tr>
<TR HEIGHT=28>
<TD COLSPAN=2 ALIGN=LEFT class=TDBdrNG003>
<%
nString="select tk_cl_name,gd,IsGDFS,is_100,PassFS,isnull(fs_tian,0) as fs_tian,isnull(fs_danx,0) as fs_danx,isnull(fs_duox,0) as fs_duox,isnull(fs_shif,0) as fs_shif,isnull(fs_jian,0) as fs_jian,isnull(fs_wend,0) as fs_wend,isnull(fs_jish,0) as fs_jish,isnull(fs_anli,0) as fs_anli from tk_cl where tk_cl_id=" & tk_cl_id
set nrs=server.CreateObject("ADODB.RecordSet")
nrs.Open nString,conn,1,1
%>
<TABLE WIDTH=100% ALIGN=LEFT BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR="#FFFFFF">
<TR HEIGHT=28>
<TD width=10% align=right></TD>
<TD align=left colspan=3> 试卷名称：<%=nrs("tk_cl_name")%> </TD>
<TD>试卷模式：
<%if nrs("GD")="1" then%>
固定试卷
<%else%>
随机试卷
<%end if%>
</TD>
</TR>
<TR HEIGHT=28>
<TD width=10% align=right></TD>
<TD width=20% align=left> 有效答卷份数：
<%
tString="select isnull(count(Clerk_kscj_ID),0) from clerk_kscj where tk_cl_id=" & tk_cl_id & " and Clerk_ks_status=1"
set trs=server.CreateObject("ADODB.RecordSet")
trs.Open tString,conn,1,1
%>
<%=trs(0)%>
<%
trs.Close
set trs=nothing
%>
</TD>
<TD width=20% align=center> 答卷总份数：
<%
tString="select isnull(count(Clerk_kscj_ID),0) from clerk_kscj where tk_cl_id=" & tk_cl_id
set trs=server.CreateObject("ADODB.RecordSet")
trs.Open tString,conn,1,1
%>
<%=trs(0)%>
<%
trs.Close
set trs=nothing
%>
</TD>
<TD width=20% align=center> 总分：
<%
if nrs("IsGDFS")=0 then
%>
<%=nrs("is_100")%>
<%else%>
<%
kString="select tm_tx,sum(tm_num) as tm_num from tk_cl_ndzsd where tk_cl_id=" & tk_cl_id & " group by tm_tx"
'Response.Write kString
set krs=server.CreateObject("ADODB.RecordSet")
krs.Open kString,conn,1,1
%>
<%
tScore=0
do while not krs.EOF
%>
<%
select case krs("tm_tx")
case "tian"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_tian"))
case "danx"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_danx"))
case "duox"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_duox"))
case "shif"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_shif"))
case "jian"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_jian"))
case "wend"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_wend"))
case "jish"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_jish"))
case "anli"
tScore=tScore+CInt(krs("tm_num"))*CSng(nrs("fs_anli"))
end select
%>
<%
krs.MoveNext
loop
%>
<%
krs.Close
set krs=nothing
%>
<%=tScore%>
<%end if%>
</TD>
<TD width=30% align=left> 通过分数： <%=nrs("PassFS")%> </TD>
</TR>
</TABLE>
<%
nrs.Close
set nrs=nothing
%>
</TD>
</TR>
<TR height=28>
<TD ALIGN=CENTER valign=top class=TDBdrNG003>
<%
BCollection=split(session("BaseCollection"),",")
KCollection=split(session("kaoshircCollection"),",")
JCollection=split(session("jigercCollection"),",")
PCollection=split(session("pingjunfsCollection"),",")
%>
<!--
<TABLE WIDTH=100% ALIGN=CENTER BORDER=1 CELLSPACING=0 CELLPADDING=0 height=100% bgColor=#99ccff borderColorDark=#ffffff borderColorLight=#000000>
-->
<table border=0 align=center width=100% bgcolor="AFBDD7" cellpadding=0 cellspacing=1>
<TR HEIGHT=24>
<TD width=178 align=center CLASS="style4" background="Images01/grid/biaogetou.gif"> <font color=white>
<%
select case session("weType")
case 1
Response.Write "按职务统计"
case 2
Response.Write "按工作类型统计"
case 4
Response.Write "按学历统计"
case 8
Response.Write "按年龄段统计"
case 16
Response.Write "按单位统计"
end select
%>
</font> </TD>
<TD width=300 align=center CLASS="style4" background="Images01/grid/biaogetou.gif"><font color=white>及格率(%)</font></TD>
<TD width=300 align=center CLASS="style4" background="Images01/grid/biaogetou.gif"><font color=white>平均分数</font></TD>
</TR>
<%for k=0 to ubound(BCollection)%>
<%
if k mod 2 = 0 then
%>
<TR HEIGHT=24 onmouseover=mouseovertd(this) onmouseout=mouseouttd(this) bgColor=#f7faff>
<%
else
%>
<TR HEIGHT=24 onmouseover=mouseovertd(this) onmouseout=mouseouttd(this) bgColor=#f7faff>
<%
end if
%>
<TD align=left class=""><%=BCollection(k)%> </TD>
<TD class="">
<%if KCollection(k)=0 or KCollection(k)="0" then%>
<%else%>
<%if JCollection(k)<>0 then%>
<img src="images01/red.jpg" border=0 width=<%=JCollection(k)*100*2/KCollection(k)%> height=20> <%=formatnumber(JCollection(k)*100/KCollection(k),2,-1)%>
<%else%>
<%=formatnumber(0,2,-1)%>
<%end if%>
<%end if%>
</TD>
<TD class="">
<%if PCollection(k)<>0 then%>
<img src="images01/red.jpg" border=0 width=<%=PCollection(k)*2%> height=20> <%=formatnumber(PCollection(k),2,-1)%>
<%else%>
<%=formatnumber(0,2,-1)%>
<%end if%>
</TD>
</TR>
<%next%>
</TABLE></TD>
</TR>
<%if CurPower="分局管理员" then%>
<INPUT type="hidden" id=slctCompany name=slctCompany class=TSA value="<%=session("Clerk_DW")%>">
<%else%>
<INPUT type="hidden" id=slctCompany name=slctCompany2 class=TSA value="<%=slctCompany%>">
<%end if%>
<!--#include file=CopyRight.ASP-->
</TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -