📄 ++
字号:
<%
dim Pri
Pri=CheckUrl("成绩报表管理")
%>
<!--#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.8.26</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body background="../../images/di2001.jpg" topmargin="0">
<p><font color="#0000a0" size="6"><strong>学生成绩任意汇总</strong>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds1
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds3
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds2
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=rds4
width=1>
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
<PARAM NAME="SortDirection" VALUE="-1">
<PARAM NAME="InternetTimeout" VALUE="300000">
</OBJECT>
</font><br><img src="../../images/Slidbar.gif" width="760">
<div align="center"><center>
<table border="1" width="760" height="325">
<tr>
<td width="610" height="325" valign="top"><p>
<OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046
dataSrc=#rds1 height=205 id=grid3
style="HEIGHT: 207px; LEFT: 0px; TOP: 0px; WIDTH: 297px" width=297
VIEWASTEXT></OBJECT>
<OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046
dataSrc=#rds3 height=205 id=grid2
style="HEIGHT: 207px; LEFT: 0px; TOP: 0px; WIDTH: 297px" width=297
VIEWASTEXT></OBJECT>
<OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046
dataSrc=#rds2 height=200 id=grid1
style="HEIGHT: 200px; LEFT: 0px; TOP: 0px; WIDTH: 597px" width=597
VIEWASTEXT></OBJECT></p>
</td>
<td width="136" height="325" valign="top">
<P></P>
<P><FONT color=indianred face=""><STRONG>选择班级：</STRONG></FONT></P>
<P><font color=#0000ff>班号</font><select
name=classno size=1 style="HEIGHT: 22px; WIDTH: 96px" onchange="DisplayClassInfo()" ></select>
<br></P>
<P>
<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="courseno" size="1" >
</select>
<hr color="#0000ff">
<P></P>
<P align="center"><input type="button" value="选择学生" onclick="SelectStudent()" name="Select_student" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
<P align="center"><input type="button" value="选择课程" onclick="SelectCourse()" name="Select_student" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
<P align="center"><input type="button" value="开始统计" onclick="begin_STATIC()" name="start_STATIC" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
<P align="center"><input type="button" value="保存数据" onclick="save_data()" name="save_data" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
<P align="center"><input type="button" value="名次排列" onclick="mc_online()" name="mconline" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
<P align="center"><input type="button" value="打 印" onclick="printing()" name="start_STATIC" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
<P align="center"><input type="button" value="退出返回" onclick="returning()" name="exiting" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px" >
</P></td></tr></table></center></div>
<script language="Vbscript">
dim lastYearArray(0,100),lastTermArray(0,100),classArray(0,100),CourseArray(0,100),CourseNoArray(0,100)
dim print_lineno,xhCount
dim havedCourseArray(0,100),havedCourseNameArray(0,100),havedCourseCount '所有开设过的课程数组和课程数目
print_lineno=0
xhCount = 0
haveDCourseCount = 0
grid3.Caption = "班级学生清单"
grid1.Caption = "统计的学生清单和结果"
grid2.Caption = "按学年学期和课程进行任意统计"
RDS1.Server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
RDS1.Connect="database=school;uid=sa;pwd=;dsn=school"
rds2.server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
rds2.connect ="database=school;uid=sa;pwd=;dsn=school"
rds3.server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
rds3.connect ="database=school;uid=sa;pwd=;dsn=school"
rds4.server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
rds4.connect ="database=school;uid=sa;pwd=;dsn=school"
classno.selectedIndex = 0
'Get all class Number
rds2.sql = "select * from class orDer by 班号"
rds2.ExecuteOptions = 1
rds2.refresh
classcount=rds2.Recordset.recordcount
rds2.recordset.movefirst
while not rds2.Recordset.eof
for circle=0 to classcount-1
colitem=rds2.Recordset.fields(0)
classArray(0,circle) = colitem
set item_option = document.createElement("OPTION")
item_option.text = colitem
item_option.value = colitem
document.all.classno.add(item_option)
rds2.Recordset.movenext
next
wend
'下面从数据库中取得课程名称,课程代码
rds2.sql = "select * from course"
rds2.ExecuteOptions = 1
rds2.refresh
courseCount = rds2.Recordset.recordcount
rds2.Recordset.movefirst
for i=0 to rds2.recordset.recordcount-1
set oOption = document.createElement("OPTION")
oOption.text = rds2.Recordset.fields(1)
oOption.value = rds2.Recordset.fields(1)
document.all.courseno.add(oOption)
courseArray(0,i)=rds2.Recordset.fields(1)
courseNoArray(0,i)=rds2.Recordset.fields(0)
rds2.Recordset.movenext
next
DisplayClassInfo()
rds2.SQL ="delete from tempresult" '" Create table #tempResult(班号 char(10),学号 char(10),姓名 char(8),总分 decimal(7,2)) "&_
rds2.ExecuteOptions = 1
rds2.Refresh
rds2.SQL =" select 班号,学号,姓名,总分,名次 from tempresult order by 总分" '" Create table #tempResult(班号 char(10),学号 char(10),姓名 char(8),总分 decimal(7,2)) "&_
rds2.ExecuteOptions = 1
rds2.Refresh
grid2.AllowAddNew = true
grid2.AllowDelete = true
grid1.AllowAddNew = true
grid1.AllowDelete = true
rds3.SQL = " select * from tempryhz" '" Create table #Tempryhz(学年 char(4),学期 char(2),课程 char(10))"&_
rds3.ExecuteOptions = 1
rds3.refresh
'Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = false
'Set xlBook =xlApp.Workbooks.Add
'Set xlSheet = xlBook.Worksheets(1)
'===========================================================================
sub save_data()
moveflag = true
if grid1.row > 0 then
grid1.row = grid1.row -1
else
grid1.row =grid1.row +1
moveflag = false
end if
grid1.Editactive = False
On Error resume next
RDS2.SubmitChanges
If Err.Number <> 0 Then
'RDS1.CancelUpdate
MsgBox "无法更新数据！"
End If
if moveflag then
grid1.row = grid1.row +1
else
grid1.row = grid1.row -1
end if
end sub
'============
sub mc_online
rds2.SQL ="select 班号,学号,姓名,总分,名次 from tempresult order by 总分 desc " '" Create table #tempResult(班号 char(10),学号 char(10),姓名 char(8),总分 decimal(7,2)) "&_
rds2.ExecuteOptions = 1
rds2.Refresh
for i=0 to rds2.Recordset.recordcount-1
rds2.Recordset.fields("名次")=i+1
rds2.Recordset.movenext
next
end sub
'============
sub DisplayClassInfo()
rds1.SQL = "select 学号,姓名,性别 from student where rtrim(班号)='"+rtrim(classno.value)+"' order by 学号"
rds1.ExecuteOptions = 1
rds1.Refresh
end sub
'===========================================================================
sub selectstudent()
if rds1.Recordset.RecordCount <=0 then
msgbox "请先选择班号！"
exit sub
end if
rds2.Recordset.addnew
rds2.Recordset.fields(0).value = classno.value
rds2.Recordset.fields(1).value = grid3.Columns.item(0).value
rds2.Recordset.fields(2).value = grid3.Columns.item(1).value
end sub
sub selectCourse()
if len(trim(yearno.value))=0 then
msgbox "请先输入要统计的学年！"
exit sub
END IF
if len(trim(courseno.value))=0 then
msgbox "请先选择要统计的课程！"
exit sub
END IF
rds3.Recordset.addnew
rds3.Recordset.fields(0).value = yearno.value
rds3.Recordset.fields(1).value = termno.value
rds3.Recordset.fields(2).value = courseno.value
haveDCourseArray(0,haveDCourseCount) = CourseNoArray(0,Courseno.selectedIndex)
havedcourseCount = havedCourseCount + 1
end sub
sub begin_STATIC()
stu_count = rds2.RECORDset.recorDcount
if stu_count<=0 then
msgbox "没有选择要统计的学生，不能统计！ "
exit sub
enD if
if rds3.Recordset.RecorDCount<=0 then
msgbox "没有选择要统计的课程，不能统计！ "
exit sub
enD if
rds2.recorDset.MoveFirst
for stu_c = 0 to stu_count -1
rds2.recorDset.fields(3)=STATIC_ZF()
rds2.recorDset.MoveNext
next
end sub
function STATIC_ZF()
total = 0.0
s_count = rds3.Recordset.RecorDCount
rds3.recorDset.MoveFirst
for i = 0 to s_count -1
rds4.sql = " select "+HavedCourseArray(0,i)+ " from score where rtrim(学号)='"+rds2.recordset.fields(1)+"' anD "&_
" 学年 = '"+rds3.recorDSET.fielDs(0)+"' anD "&_
" 学期 = '"+rds3.recorDSET.fielDs(1)+"' AND "&_
" 成绩类型='总评成绩'"
rds4.ExecuteOptions = 1
rDs4.refresh
if rds4.REcorDSET.Recordcount>0 then
if not isnull(rds4.Recordset.fielDs(0)) then
total = total + cint(rds4.Recordset.fielDs(0))
enD if
enD if
rds3.Recordset.MoveNext
NEXT
STATIC_ZF = total
END FUNCTION
sub Deletestudent()
if not rds2.recordset.bof and not rds2.Recordset.eof then
rds2.Recordset.delete
rds2.refresh
end if
end sub
sub printing()
RDS2.recordset.movefirst
call free_printer(rds2.Recordset.recordcount,"学生成绩任意汇总统计表")
end sub
sub refresh_print()
end sub
'=======================================================
sub returning() '返回上一层程序
'=======================================================
history.go(-1)
end sub
'==============================================================
</script></body></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -