📄
字号:
<%
dim Pri
Pri=CheckUrl("课程设置")
%>
<!--#include virtual="/school/public/CheckUrl.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="../../images/Bkg35.jpg" topmargin="0">
<p><img src="../../images/cat1.gif"><font color="#ff0000" size="5"><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=rds2
width=1><PARAM NAME="ExecuteOptions" VALUE="2"><PARAM NAME="FetchOptions" VALUE="3"><PARAM NAME="SortDirection" VALUE="-1"><PARAM NAME="InternetTimeout" VALUE="300000"></OBJECT>
</font><hr color="#ff0000">
<div align="center"><center>
<table border="1" width="737" height="371" style="HEIGHT: 371px; WIDTH: 737px">
<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></p>
<p><font color="#0000ff">班号</font><select name="classno" size="1" > </select></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></P>
<P>
<br> </P>
<P align="center"><input type="button" value=" 开始查询" onclick="beginSearch()" name="start_input" style ="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px">
<br>
<input type="button" value=" 重新刷新" onclick="get_courart_input" style ="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px">
<br>
<input type="button" value=" 全部刷新" onclick="allrefreh()" name="start_input" style ="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 12px">
<br>
<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,courseArray,classArray
dim courseCount,courseSelectCount,classCount
dim course_sql
dim total_score,courseSelectArray
vserver="http://<%=request.servervariables("server_name")%>"
rds1.server = vserver
rds1.connect ="database=school;uid=sa;pwd=;dsn=school"
rds1.SQL="select * from graduate_class_course order by 班号,学年"
rds1.ExecuteOptions =1
rds1.Refresh
rds2.server = vserver
rds2.connect ="database=school;uid=sa;pwd=;dsn=school"
'Get all class Number
rds2.sql = "select * from graduate_class"
rds2.ExecuteOptions = 1
rds2.refresh
classCount = rds2.recordset.recordcount
classArray = rds2.recordset.Getrows(rds2.recordset.recordcount,0,0)
for i=0 to rds2.recordset.recordcount-1
set oOption = document.createElement("OPTION")
oOption.text = classArray(0,i)
oOption.value = classArray(0,i)
document.all.classno.add(oOption)
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
</script>
</body>
<script language="VBScript">
'=========班级课程查询==============================
sub beginSearch()
if len(trim(classno.value))=0 then
msgbox "对不起！请先选择要查询的班号！"
exit sub
end if
if len(trim(yearno.value))=0 then
msgbox "对不起！请先输入要查询的学年！"
exit sub
end if
rds1.SQL ="select * from graduate_class_course where 班号='"+classno.value+"' and 学年='"+yearno.value+"' and 学期 ='"+termno.value+"'"
rds1.ExecuteOptions = 1
rds1.refresh
end sub
'=====================================================================
sub AllRefresh()
'====================================================================
ifdel = msgbox("是否真的要全部重新刷新？",4,"请特别注意，所有课程信息将全部删除！")
if ifdel = vbNo then
exit sub
end if
rds2.SQL = "delete graduate_class_course"
rds2.ExecuteOptions = 1
rds2.Refresh
for classloop=0 to classCount-1
for yID = 1993 to 1998
yearno.value=rtrim(cstr(yid))
classno.value = classArray(0,classloop)
termno.value="上"
'msgbox classno.value+"=="+yearno.value+"==="+termno.value
get_course()
termno.value="下"
'msgbox classno.value+"=="+yearno.value+"==="+termno.value
get_course()
next
next
end sub
'==================取某学年某学期某班所开的课程====================================
sub get_course()
if len(trim(classno.value))=0 then
msgbox "对不起！请先选择要查询的班号！"
exit sub
end if
if len(trim(yearno.value))=0 then
msgbox "对不起！请先输入要查询的学年！"
exit sub
end if
yearID = "19"+left(trim(classno.value),2)
for i = 0 to courseCount - 1
'找出本学期开设了哪些课程,通过计算总分是否为零进行判断
rds2.SQL = "select sum("+courseNoArray(0,i)+") from score"+yearID
rds2.SQL = rds2.SQL +" where 学号 in (select 学号 from student"+yearID+" where rtrim(班号)='"+rtrim(classno.value)+"') and "
rds2.SQL = rds2.SQL + " 学年='"+yearno.value+"' and 学期='"+termno.value+"' and 成绩类型='总评成绩'"
rds2.ExecuteOptions=1
rds2.Refresh
sum_array = rds2.Recordset.GetRows(1,0,0)
if sum_array(0,0) > "0" then '表明此课程已有成绩
rds2.SQL = "select * from graduate_class_course where 班号='"+classno.value+"' and 学年='"+yearno.value+"' and 学期 ='"+termno.value+"'and 课程号='"+courseNoArray(0,i)+"'"
rds2.ExecuteOptions =1
rds2.Refresh
if rds2.recordset.recordcount > 0 then
'msgbox "已经有课程，不能增加！"
else
rds2.SQL = "Insert graduate_class_course values('"+classno.value+"','"+yearno.value+"','"+termno.value+"','"+courseNoArray(0,i)+"','"+courseArray(0,i)+"')"
rds2.ExecuteOptions =1
rds2.Refresh
end if
end if
next
end sub
sub returning()
history.go(-1)
end sub
'==============================================================
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
msgbox "不修改资料！"
cancel = true
end sub
</script>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
</SCRIPT>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -