📄 -
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<!--#include virtual="/school/public/print1.asp"-->
<%
vServer="http://" & Request.ServerVariables("Server_name")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生成绩统计分析管理模块 write by longZhiping on 1999.9.26</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body background="Bkg35.jpg" topmargin="0">
<p><img src="../../images/cat1.gif"><font color="#ff0000" size="5"><strong>学生成绩统计分析管理</strong><object id="rds1" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="0" height="0"></object>
<object id="rds2" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="0" height="0"></object>
</font><hr color="#ff0000">
<div align="center"><center>
<table border="1" width="760" height="325">
<TR>
<td width="570" height="325" valign="top"><p align="center">
<OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046
dataSrc=#rds1 height=361 id=grid1 style="LEFT: 0px; TOP: 0px"
width=560 VIEWASTEXT></OBJECT></p>
</td>
<td width="166" height="325" valign="top">
<P><font color="#ff0000">请选择查询范围：</font><br>
<font color="#0000ff"><INPUT id=class_radio value="class_radio" name=class type=radio Checked>
班号</font><select name="classno" size="1" > </select><br>
<font color="#0000ff"><INPUT id=grade_radio value="grade_radio" name=class type=radio>
年级<INPUT id=gradeno name=gradeno
style="FONT-FAMILY: serif; HEIGHT: 21px; LEFT: 18px; TOP: 65px; WIDTH: 61px"></font><br>
<font color="#0000ff"><INPUT id=xh_radio name=class type=radio value="xh_radio">
学号从<input name="startno" size="9" ></font><br>
<font color="#0000ff"> 到</font> <input name="endno" size="9" >
<font color="#0000ff"><input id=kc_radio name=class type=radio value="kc_radio">
课程</font><select name="courseno" size="1" >
</select></p>
<br>
<p><font color="#0000ff"> 学年<INPUT id=yearno name=yearno
style="FONT-FAMILY: serif; HEIGHT: 21px; LEFT: 18px; TOP: 65px; WIDTH: 61px"></font><br>
<font color="#0000ff"> 学期</font><select name="termno" size="1">
<option selected value="上">上学期
<option value="下">下学期
</select><br>
<font color="#0000ff"> 成绩</font><select name="scoreno" size="1" >
<option value="期中成绩">期中成绩
<option value="期末成绩">期末成绩
<option value="平时成绩">平时成绩
<option value="补考成绩">补考成绩
<option selected value="总评成绩">总评成绩
</select></P>
<br>
<P align="center"><input type="button" value="不及格统计" onclick="bjg_sta()" name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px" >
<input type="button" value="分数段统计" onclick="fsd_sta()" name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px" >
<input type="button" value="打 印" onclick="printing()" name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px" >
<!-- <input type="button" value="总学分统计" onclick="zxf_sta()" name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px" > -->
<input type="button" value="退 出 返回" onclick="returning()" name="exiting" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px">
</P></td></TR>
</table>
</center></div>
<script language="Vbscript">
dim courseNoArray(0,100),courseArray(0,100),classArray(0,100)
dim courseCount,courseSelectCount
dim course_sql
dim total_score,courseSelectArray(0,100)
vserver="http://<%=request.servervariables("server_name")%>"
rds1.server = vserver
rds1.connect ="database=school;uid=sa;pwd=;dsn=school"
rds2.server = vserver
rds2.connect ="database=school;uid=sa;pwd=;dsn=school"
'Get all class Number
rds2.sql = "select * from class"
rds2.ExecuteOptions = 1
rds2.refresh
'classArray = rds2.recordset.Getrows(rds2.recordset.recordcount,0,0)
rds2.Recordset.Movefirst
for i=0 to rds2.recordset.recordcount-1
set oOption = document.createElement("OPTION")
'oOption.text = classArray(0,i)
'oOption.value = classArray(0,i)
oOption.text = rds2.Recordset.fields(0)
oOption.value = rds2.Recordset.fields(0)
classArray(0,i)=rds2.Recordset.fields(0)
document.all.classno.add(oOption)
rds2.Recordset.movenext
next
'下面从数据库中取得课程名称,课程代码
rds2.sql = "select * from course"
rds2.ExecuteOptions = 1
rds2.refresh
'courseArray = rds2.recordset.Getrows(rds2.recordset.recordcount,0,1)
'rds2.Recordset.movefirst
'courseNoArray= rds2.recordset.Getrows(rds2.recordset.recordcount,0,0)
'courseCount = rds2.Recordset.recordcount
'rds2.Recordset.movefirst
'courseSelectArray= rds2.recordset.Getrows(rds2.recordset.recordcount,0,0)
'for i=0 to rds2.recordset.recordcount-1
' set oOption = document.createElement("OPTION")
' oOption.text = courseArray(0,i)
' oOption.value = courseArray(0,i)
' document.all.courseno.add(oOption)
'next
rds2.Recordset.movefirst
for i=0 to rds2.recordset.recordcount-1
set oOption = document.createElement("OPTION")
'oOption.text = courseArray(0,i)
oOption.text = rds2.Recordset.fields(1)
oOption.value = rds2.Recordset.fields(1)
'oOption.value = courseArray(0,i)
document.all.courseno.add(oOption)
courseArray(0,i)=rds2.Recordset.fields(1)
courseNoArray(0,i)=rds2.Recordset.fields(0)
courseSelectArray(0,i)=rds2.Recordset.fields(0)
rds2.Recordset.movenext
next
grid1.AllowAddNew = true
</script>
</body>
<script language="VBScript">
'=========不及格学生统计==============================
sub bjg_sta()
if len(trim(classno.value))=0 and class_radio.checked then
msgbox "对不起！请先输入要统计的班号！"
exit sub
end if
if len(trim(gradeno.value))=0 and grade_radio.checked then
msgbox "对不起！请先输入要统计的年级！"
exit sub
end if
if len(trim(startno.value))=0 and xh_radio.checked then
msgbox "对不起！请先输入要统计的学号！"
exit sub
end if
if len(trim(courseno.value))=0 and kc_radio.checked then
msgbox "对不起！请先输入要统计的班号！"
exit sub
end if
if len(trim(yearno.value))=0 then
msgbox "对不起！请先输入要查询的学年！"
exit sub
end if
if xh_radio.checked then
if len(rtrim(startno.value)) > 0 then
if len(rtrim(endno.value)) > 0 then
if rtrim(endno.value) < rtrim(startno.value) then
msgbox "终止学号必须不小于起始学号！"
exit sub
end if
else
endno.value = startno.value
end if
end if
end if
if kc_radio.checked then
call sta_handle("COURSE")
exit sub
end if
if xh_radio.checked then
call sta_handle("XH")
exit sub
end if
if grade_radio.checked then
call sta_handle("GRADE")
exit sub
end if
if class_radio.checked then
call sta_handle("CLASS")
exit sub
end if
end sub
'============根据课程号,学号,年级,班号分别进行不及格成绩统计==============
sub sta_handle(sta_type)
if sta_type ="COURSE" then
course_sql = "select 学号,姓名,"
for i = 0 to CourseCount -1
if rtrim(courseArray(0,i)) = rtrim(courseno.value) then
course_sql = course_sql +"'"+rtrim(courseArray(0,i))+"'=str("+courseNoArray(0,i)+",7,1) "
exit for
end if
next
course_sql = course_sql + " from score where " + courseNoArray(0,i)+"<60 and "&_
"学年='"+trim(yearno.value)+"' and 学期='"+trim(termno.value)+"'"
else
get_course(sta_type)
if courseSelectCount<=0 then
msgbox "没有输入此学期的成绩,请输入或运行班级课程模块的刷新功能！"
exit sub
end if
course_sql =" select 学号,姓名,'不及格门数'="+cstr(courseSelectCount)+"-("
for i = 0 to courseSelectCount -1
course_sql = course_sql + " floor("+trim(courseSelectArray(0,i))+"/60.0) + "
next
course_sql = course_sql + "0) from score "
course_sql = course_sql + " where 学年='"+yearno.value+"' and 学期='"+termno.value+"' and 成绩类型='"+scoreno.value+"' and "
select case sta_type
case "CLASS"
course_sql = course_sql +" 学号 in (select 学号 from student where rtrim(班号)='"+rtrim(classno.value)+"')"
case "GRADE"
course_SQL = course_SQL +"学号 in (select 学号 from student where 班号 in (select 班号 from class where year(入学年度)='"+rtrim(gradeno.value)+"'))"
case "XH"
course_sql = course_sql +" rtrim(学号) >= rtrim("+startno.value+") and rtrim(学号) <= rtrim("+endno.value+")"
end select
end if
rds1.sql=course_sql
rds1.ExecuteOptions=1
rds1.refresh
end sub
'==========各分数段学生统计=============================
sub fsd_sta()
if len(trim(classno.value))=0 and class_radio.checked then
msgbox "对不起！请先输入要统计的班号！"
exit sub
end if
if len(trim(gradeno.value))=0 and grade_radio.checked then
msgbox "对不起！请先输入要统计的年级！"
exit sub
end if
if len(trim(startno.value))=0 and xh_radio.checked then
msgbox "对不起！请先输入要统计的学号！"
exit sub
end if
if len(trim(courseno.value))=0 and kc_radio.checked then
msgbox "对不起！请先输入要统计的班号！"
exit sub
end if
if len(trim(yearno.value))=0 then
msgbox "对不起！请先输入要查询的学年！"
exit sub
end if
if xh_radio.checked then
if len(rtrim(startno.value)) > 0 then
if len(rtrim(endno.value)) > 0 then
if rtrim(endno.value) < rtrim(startno.value) then
msgbox "终止学号必须不小于起始学号！"
exit sub
end if
else
endno.value = startno.value
end if
end if
end if
if kc_radio.checked then
call fsd_handle("COURSE")
exit sub
end if
if xh_radio.checked then
call fsd_handle("XH")
exit sub
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -