📄 faillist.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>FailList</title>
<!--#Include File="ErrorClass.asp"-->
<!--#Include File="Class.asp"--><LINK href="style.css" type="text/css" rel="stylesheet">
<%
'此段声明表示遇到错误即跳到下一句
On Error Resume Next
Dim sc_Class,stuc_Class,ec_Class,cc_Class,uc_Class,Search,Course,Grade,Classn,Order
Set sc_Class = New ScoreClass '分数类
Set cc_Class = New CourseClass '课程类
Set ec_Class = New ErrorClass '错误处理类
Search = "" '标识用户是否提交查询,为空是表示未提交
Course = "" '查询的课程ID
Grade = "" '查询的年级
Classn = "" '查询的班级
Order = 0 '名次
Search = Trim(Request.QueryString("Search"))
If Search<>"" Then
Course = Request.Form("Condition3")
Grade = Request.Form("Condition4")
Classn = Request.Form("Condition5")
End If
%>
<script language="vbscript">
<!--
'功能：点击信息查询时产生的动作
'参数： searchtype=1时查询成绩信息
'返回值：将本页的查询表单提交
Sub runSearch(searchtype)
Dim id
If searchtype = 1 Then
'提交查询表单
document.form1.submit()
Else
window.alert ("请点击查询按钮进行查询！")
End If
End Sub
//-->
</script>
</HEAD>
<body>
<br>
<form id="form1" name="form1" action="FailList.asp?Search=1" method="post">
<TABLE class="style1" cellSpacing="0" cellPadding="0" width="700" align="center" border="1">
<TR>
<TD align="center" bgcolor="#ff9933">补考名单</TD>
</TR>
<TR>
<TD align="left" bgColor=DarkKhaki>
所列成绩信息的课程：
<SELECT id="Condition3" name="Condition3">
<%Call cc_Class.getAllCourse()
If not cc_Class.dbc_Class.Rs.EOF Then
While not cc_Class.dbc_Class.Rs.EOF
%>
<OPTION value="<%=cc_Class.dbc_Class.Rs("ID")%>"><%=cc_Class.dbc_Class.Rs("Name")%>(<%=cc_Class.dbc_Class.Rs("TeacherName")%>)</OPTION>
<% cc_Class.dbc_Class.Rs.MoveNext()
Wend
Else
%>
<OPTION value="0" selected>无课程数据</OPTION>
<%End If
cc_Class.dbc_Class.CloseConn()
%>
</SELECT>
年级：
<SELECT id="Condition4" name="Condition4">
<OPTION selected value="2005">2005级</OPTION>
<OPTION value="2004">2004级</OPTION>
<OPTION value="2003">2003级</OPTION>
<OPTION value="2002">2002级</OPTION>
</SELECT>
班级：
<SELECT id="Condition5" name="Condition5">
<OPTION selected value="1">1班</OPTION>
<OPTION value="2">2班</OPTION>
<OPTION value="3">3班</OPTION>
<OPTION value="4">4班</OPTION>
</SELECT>
<INPUT class="style1" id="search2" type="button" value="补考名单" name="search2" onclick="runSearch(1)">
</TD>
</TR>
<TR>
<TD align="center"><FONT face="宋体"></FONT><br>
<%If Search = "1" Then
'按补考名单
Call sc_Class.getClassScoreReport(Course,Cstr(Grade),cint(Classn),2)
If not sc_Class.dbc_Class.Rs.Eof Then%>
<TABLE cellSpacing="0" cellPadding="0" width="600" border="1" ID="ScoreTable">
<TR bgColor="#cccc33">
<TD align="center">编号
</TD>
<TD align="center">学号
</TD>
<TD align="center">学生姓名
</TD>
<TD align="center">科目
</TD>
<TD align="center">成绩
</TD>
<TD align="center">类型
</TD>
<TD align="center">学期
</TD>
</TR>
<%While not sc_Class.dbc_Class.Rs.Eof
'名次逐个向后加1
Order = Order + 1
%>
<TR >
<TD align="center"><%=Order%>
</TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("StudentID")%>
</TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("StudentName")%>
</TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("CourseName")%>
</TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("Score")%>
</TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("Type")%>
</TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("Term")%>
</TD>
</TR>
<%sc_Class.dbc_Class.Rs.MoveNext()
Wend%>
</TABLE>
<%Else%>
数据库中没有匹配的成绩信息数据！
<%End If
sc_Class.dbc_Class.CloseConn()
End IF%>
<br>
</TD>
</TR>
<TR>
<TD align="left" bgColor="#ff9930"> <FONT face="宋体"><IMG height="25" src="image/29.gif" width="30" border="0">
</TD>
</TR>
</TABLE>
</form>
<hr width="700" color="#666666" SIZE="1">
<P align="center"><FONT size="2">程序设计——<A href="mailto:ymhdhlf@163.com">黄 雷</A></FONT></P>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -