📄 stucjfx.asp
字号:
<!--#include file="dataconn.asp"-->
<!--#include file="IsLogin.asp" -->
<%
dim set_test
set rs=conn.execute("select testname,dbname from testmdb order by testid")
do while not rs.eof
set_test=set_test&"<option value='"&rs("dbname")&"' selected>"&rs("testname")&"</option>"
rs.movenext
loop
set rs=nothing
set rs=conn.execute("select njname from nj")
do while not rs.eof
sel_nj=sel_nj&"<option value='"&rs("njname")&"' selected>"&rs("njname")&"</option>"
rs.movenext
loop
set rs=nothing
set rs=conn.execute("select subjectname from subject")
do while not rs.eof
set_subject=set_subject&"<option value='"&rs("subjectname")&"' selected>"&rs("subjectname")&"</option>"
rs.movenext
loop
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../inc/admin_style.css" type=text/css rel=stylesheet>
<title>学生成绩排名与分析</title>
<script language="javascript" src="ShowProcessBar.js"></script>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
body {
margin-top: 0px;
}
.STYLE2 {color: #0066CC}
.style3 {color: #FF0000}
-->
</style>
</head>
<body>
<script language="JavaScript" src="dht.js"></script>
<!--#include file="top.asp"-->
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td height="22" valign="top" style="FILTER: progid:DXImageTransform.Microsoft.Gradient(gradientType=1,startColorStr=#3b839f,endColorStr=#eff4ff)"><span class="style1"> </span><span class="topbg STYLE1"><strong>学生成绩排名与分析</strong></span> 1.<a href="stucjfx.asp">学科成绩分析</a> 2.<a href="stucjfx1.asp">学生成绩排名</a> </td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="eff4ff"><table width="100%" border="0" cellpadding="0" cellspacing="0" >
<form name="form2" method="post" action="?">
<tr><td width="72%">选择考试库:
<select name="testmdb" id="testmdb">
<%=set_test%>
</select>
<select name="nj" id="nj">
<%=sel_nj%>
</select>
<select name="subject" id="subject">
<%=set_subject%>
</select>
</td>
<td width="28%">
<div align="left">
<input type="submit" name="Submit4" value="设定" IsShowProcessBar="True">
<input name="step2" type="hidden" id="step2" value="addcj" size="5">
<input name="step22" type="hidden" id="step22" value="addcj" size="5">
</div></td>
</tr>
</form>
</table></td>
</tr>
</table>
<br>
<%
step2=trim(request.form("step2"))
nj=trim(request.form("nj"))
if step2="addcj" then
dbname=request.form("testmdb")
subject=request.form("subject")
set rs=conn.execute("select testname from testmdb where dbname='"&dbname&"'")
testname=rs("testname")
set rs=nothing
sql="select score from subjectmf where dbname='"&dbname&"' and subject='"&subject&"'"
set rsb=conn.execute(sql)
if not rsb.eof then
subjectmf=rsb("score")
else
subjectmf=0
end if
set rsb=nothing
%>
<table width="90%" border="0" align="center">
<tr>
<td><div align="center"><b><font size=3px><%=testname&nj%>试卷分析</font></b></div></td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center">
<tr>
<td width="27%">学校：<%=session("compname")%></td>
<td width="24%">年级：<%=nj%></td>
<td width="25%">学科：<%=subject%></td>
<td width="24%">制表日期：<%=date()%></td>
</tr>
</table>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#333333" class=TEXTAREA style="border-width:0; border-collapse: collapse">
<tr>
<td width="6%" height="85" align="center" valign="middle" style="writing-mode:tb-rl">班级</td>
<td width="4%" align="center" valign="middle" style="writing-mode:tb-rl">应考人数</td>
<td width="4%" align="center" valign="middle" style="writing-mode:tb-rl">实考人数</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl">总分</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl">平均分</td>
<td width="5%" align="center" valign="middle" style="writing-mode:tb-rl">及格数</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl">及格率</td>
<td width="5%" align="center" valign="middle" style="writing-mode:tb-rl">优秀数</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl">优秀率</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl"><%=subjectmf*0.6%>分>=0分</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl"><%=subjectmf*0.7%>分>=<%=subjectmf*0.6%>分</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl"><%=subjectmf*0.8%>分>=<%=subjectmf*0.7%>分</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl"><%=subjectmf*0.9%>分>=<%=subjectmf*0.8%>分</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl"><%=subjectmf*1%>分>=<%=subjectmf*0.9%>分</td>
<td width="6%" align="center" valign="middle" style="writing-mode:tb-rl">最高分</td>
<td width="8%" align="center" valign="middle">任课教师</td>
<td width="8%" align="center" valign="middle">班主任</td>
</tr>
<%
set rs=conn.execute("select * from bj where njname='"&nj&"'")
do while not rs.eof
bj=rs("bjname")
bjstudent=rs("bjstudent")
sql="select bjmaster,"&subject&" as bjsubject from keren,term where keren.term=term.tname and nj='"&nj&"' and bj='"&bj&"'"
set rsa=conn.execute(sql)
if not rsa.eof then
bjsubject=rsa("bjsubject")
bjteacher=rsa("bjmaster")
else
bjsubject=""
end if
set rsa=nothing
sql="select count(*) as ksrs,sum("&subject&") as zf,avg("&subject&") as pjf from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh"
set rsb=conn.execute(sql)
if not rsb.eof then
ksrs=rsb("ksrs")
zf=rsb("zf")
pjf=rsb("pjf")
pjf=int(pjf*100)/100
else
ksrs=""
end if
set rsb=nothing
sql="select count(*) as jgs from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.6"
set rsb=conn.execute(sql)
if not rsb.eof then
jgs=rsb("jgs")
end if
if jgs=0 or jgs=null then
jgl=0
else
jgl=round(jgs/ksrs,4)*100&"%"
end if
set rsb=nothing
sql="select count(*) as yxs from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.9"
set rsb=conn.execute(sql)
if not rsb.eof then
yxs=rsb("yxs")
end if
if yxs=0 or yxs=null then
yxl=0
else
yxl=round(yxs/ksrs,4)*100&"%"
end if
set rsb=nothing
sql="select count(*) as d6 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&"<"&subjectmf&"*0.6"
set rsb=conn.execute(sql)
if not rsb.eof then
d6=rsb("d6")
end if
set rsb=nothing
sql="select count(*) as d7 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.6 and "&subject&"<"&subjectmf&"*0.7"
set rsb=conn.execute(sql)
if not rsb.eof then
d7=rsb("d7")
end if
set rsb=nothing
sql="select count(*) as d8 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.7 and "&subject&"<"&subjectmf&"*0.8"
set rsb=conn.execute(sql)
if not rsb.eof then
d8=rsb("d8")
end if
set rsb=nothing
sql="select count(*) as d9 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.8 and "&subject&"<"&subjectmf&"*0.9"
set rsb=conn.execute(sql)
if not rsb.eof then
d9=rsb("d9")
end if
set rsb=nothing
sql="select count(*) as d10 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.9 and "&subject&"<"&subjectmf&"*1"
set rsb=conn.execute(sql)
if not rsb.eof then
d10=rsb("d10")
end if
set rsb=nothing
sql="select max("&subject&") as zgf from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stubj='"&bj&"' and stuinfo.stuidh="&dbname&".stuidh"
set rsb=conn.execute(sql)
if not rsb.eof then
zgf=rsb("zgf")
end if
set rsb=nothing
%>
<tr>
<td height="20" align="center"><%=bj%></td>
<td align="center"><%=bjstudent%></td>
<td align="center"><%=ksrs%></td>
<td align="center"><%=zf%></td>
<td align="center"><%=pjf%></td>
<td align="center"><%=jgs%></td>
<td align="center"><%=jgl%></td>
<td align="center"><%=yxs%></td>
<td align="center"><%=yxl%></td>
<td align="center"><%=d6%></td>
<td align="center"><%=d7%></td>
<td align="center"><%=d8%></td>
<td align="center"><%=d9%></td>
<td align="center"><%=d10%></td>
<td align="center"><%=zgf%></td>
<td align="center"><%=bjsubject%></td>
<td align="center"><%=bjteacher%></td>
<%
rs.movenext
loop
set rs=nothing
'合计
set rs=conn.execute("select sum(bjstudent) as bjstudenthz from bj where njname='"&nj&"'")
bjstudenthz=rs("bjstudenthz")
sql="select count(*) as ksrshz,sum("&subject&") as zfhz,avg("&subject&") as pjfhz from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh"
set rsb=conn.execute(sql)
if not rsb.eof then
ksrshz=rsb("ksrshz")
zfhz=rsb("zfhz")
pjfhz=rsb("pjfhz")
pjfhz=int(pjfhz*100)/100
else
ksrshz=""
end if
set rsb=nothing
sql="select count(*) as jgs from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.6"
set rsb=conn.execute(sql)
if not rsb.eof then
jgs=rsb("jgs")
end if
if jgs=0 or jgs=null then
jgl=0
else
jgl=round(jgs/ksrshz,4)*100&"%"
end if
set rsb=nothing
sql="select count(*) as yxs from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.9"
set rsb=conn.execute(sql)
if not rsb.eof then
yxs=rsb("yxs")
end if
if yxs=0 or yxs=null then
yxl=0
else
yxl=round(yxs/ksrshz,4)*100&"%"
end if
set rsb=nothing
sql="select count(*) as d6 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&"<"&subjectmf&"*0.6"
set rsb=conn.execute(sql)
if not rsb.eof then
d6=rsb("d6")
end if
set rsb=nothing
sql="select count(*) as d7 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.6 and "&subject&"<"&subjectmf&"*0.7"
set rsb=conn.execute(sql)
if not rsb.eof then
d7=rsb("d7")
end if
set rsb=nothing
sql="select count(*) as d8 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.7 and "&subject&"<"&subjectmf&"*0.8"
set rsb=conn.execute(sql)
if not rsb.eof then
d8=rsb("d8")
end if
set rsb=nothing
sql="select count(*) as d9 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.8 and "&subject&"<"&subjectmf&"*0.9"
set rsb=conn.execute(sql)
if not rsb.eof then
d9=rsb("d9")
end if
set rsb=nothing
sql="select count(*) as d10 from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh and "&subject&">="&subjectmf&"*0.9 and "&subject&"<"&subjectmf&"*1"
set rsb=conn.execute(sql)
if not rsb.eof then
d10=rsb("d10")
end if
set rsb=nothing
sql="select max("&subject&") as zgf from stuinfo,"&dbname&" where stuinfo.stunj='"&nj&"' and stuinfo.stuidh="&dbname&".stuidh"
set rsb=conn.execute(sql)
if not rsb.eof then
zgf=rsb("zgf")
end if
set rsb=nothing
%></tr>
<tr>
<td height="20" align="center">合计</td>
<td align="center"><%=bjstudenthz%></td>
<td align="center"><%=ksrshz%></td>
<td align="center"><%=zfhz%></td>
<td align="center"><%=pjfhz%></td>
<td align="center"><%=jgs%></td>
<td align="center"><%=jgl%></td>
<td align="center"><%=yxs%></td>
<td align="center"><%=yxl%></td>
<td align="center"><%=d6%></td>
<td align="center"><%=d7%></td>
<td align="center"><%=d8%></td>
<td align="center"><%=d9%></td>
<td align="center"><%=d10%></td>
<td align="center"><%=zgf%></td>
<td align="center"> </td>
<td align="center"> </td>
</tr>
</table>
<P> 注：各率以实考人数为参考数！</P>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -