📄 teacher.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>Teacher</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,StudentID,Search,SearchType,Course,Grade,Classn
Set sc_Class = New ScoreClass '分数类
Set stuc_Class = New StudentClass '学生类
Set cc_Class = New CourseClass '课程类
Set ec_Class = New ErrorClass '错误处理类
Search = "" '标识用户是否提交查询,为空是表示未提交
SearchType = "" '查询方式1为完全匹配，2为模糊匹配
StudentID = "" '查询的学生学号
Course = "" '查询的课程ID
Grade = "" '查询的年级
Classn = "" '查询的班级
Search = Trim(Request.QueryString("Search"))
SearchType = Trim(Request.QueryString("Type"))
If Search<>"" and SearchType<>"" Then
StudentID = Request.Form("Condition2")
Course = Request.Form("Condition3")
Grade = Request.Form("Condition4")
Classn = Request.Form("Condition5")
End If
%>
<script language="vbscript">
<!--
'功能：点击信息查询时产生的动作
'参数：searchtype=1时查询学生信息
' searchtype=2时查询成绩信息
'返回值：将本页的查询表单提交
Sub runSearch(searchtype)
Dim id
If searchtype = 1 Then
If document.form1.Condition1.selectedIndex = 0 Then
If document.form1.Condition2.value = "" Then
window.alert("请输入你要查询的学号！")
Else
'更改表单的查询字符串,Search=1表示学生信息查询，type=1表示完全匹配
document.form1.action = "Teacher.asp?Search=1&Type=1"
'提交查询表单
document.form1.submit()
End If
Else
'更改表单的查询字符串,Search=1表示学生信息查询，type=2表示模糊方式
document.form1.action = "Teacher.asp?Search=1&Type=2"
'提交查询表单
document.form1.submit()
End If
Elseif searchtype = 2 Then
'更改表单的查询字符串,Search=2表示成绩信息查询，type=1表示完全匹配
document.form1.action = "Teacher.asp?Search=2&Type=1"
'提交查询表单
document.form1.submit()
Else
window.alert ("请点击查询按钮进行查询！")
End If
End Sub
//-->
</script>
</HEAD>
<body>
<br>
<br>
<br>
<form id="form1" name="form1" action="Teacher.asp" method="post">
<TABLE class="style1" cellSpacing="0" cellPadding="0" width="700" align="center" border="1">
<TR>
<TD align="center"><IMG src="image/toptitle.jpg"></TD>
</TR>
<TR>
<TD align="center" bgcolor="#ff9933">教师管理平台</TD>
</TR>
<TR>
<TD align="left" bgColor=DarkKhaki>所列学生信息的条件：
<SELECT id="Condition1" name="Condition1">
<OPTION selected value="1">完全匹配</OPTION>
<OPTION value="2">模糊方式</OPTION>
</SELECT>
学号：
<INPUT type="text" ID="Condition2" NAME="Condition2" style="WIDTH: 100px">
<INPUT class="style1" id="search1" type="button" value="学生信息" name="search1" onclick="runSearch(1)">
<br>
所列成绩信息的课程：
<SELECT id="Condition3" name="Condition3">
<%Call cc_Class.getCourseByTeacher(Request.Cookies("UserID"))
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(2)">
</TD>
</TR>
<TR>
<TD align="center"><FONT face="宋体"></FONT><br>
<%If Search = "1" Then
Call stuc_Class.getStudentInf(StudentID,Cint(SearchType))
If not stuc_Class.dbc_Class.Rs.Eof Then%>
<TABLE cellSpacing="0" cellPadding="0" width="600" border="1" id="StudentTable">
<TR bgColor="#cccc33">
<TD align="center">学号
</TD>
<TD align="center">姓名
</TD>
<TD align="center">性别
</TD>
<TD align="center">年级
</TD>
<TD align="center">班级
</TD>
</TR>
<%While not stuc_Class.dbc_Class.Rs.Eof%>
<TR>
<TD align="center"><%=stuc_Class.dbc_Class.Rs("ID")%>
</TD>
<TD align="center"><%=stuc_Class.dbc_Class.Rs("Name")%>
</TD>
<TD align="center"><%=stuc_Class.dbc_Class.Rs("Gender")%>
</TD>
<TD align="center"><%=stuc_Class.dbc_Class.Rs("Grade")%>
</TD>
<TD align="center"><%=stuc_Class.dbc_Class.Rs("Class")%>
</TD>
</TR>
<%stuc_Class.dbc_Class.Rs.MoveNext()
Wend%>
</TABLE>
<%
Else%>
数据库中没有匹配的学生信息数据！
<%End If
stuc_Class.dbc_Class.CloseConn()
End IF%>
<%If Search = "2" Then
Call sc_Class.getClassScore(Course,Cstr(Grade),cint(Classn))
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>
</TR>
<%While not sc_Class.dbc_Class.Rs.Eof%>
<TR >
<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">
<INPUT class="style1" id="Button2" onclick="javascript:window.open('message.asp','message')"
type="button" value="留言本" name="message"> </FONT>
<INPUT class="style1" id="ScoreList" type="button" value="成绩报表" name="addscore" onclick="window.open('ScoreList.asp')">
<INPUT class="style1" id="FailList" type="button" value="补考名单" name="addscore" onclick="window.open('FailList.asp')">
</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 + -