📄 searchscore.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>searchscore</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,ec_Class,uc_Class,Count,StudentID,Term,Search
Set sc_Class = New ScoreClass
Set ec_Class = New ErrorClass
Search = "" '标识用户是否提交查询,为空是表示未提交
Count = 0 '课程数
Fail = 0 '不及格的课程数
Search = Trim(Request.QueryString("Search"))
%>
<script language="vbscript">
<!--
Function search()
'判断是否输入了学号
If self.document.all.item("StudentID").value = "" Then
window.alert("请输入你要查询的学号！")
Else
'提交查询表单
document.form1.submit()
End If
End Function
//-->
</script>
</HEAD>
<body>
<FONT face="宋体"></FONT>
<br>
<br>
<br>
<form id="form1" name="form1" action="SearchScore.asp?Search=1" 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">请输入查询信息： 学号 <INPUT id="StudentID" style="WIDTH: 100px" type="text" name="StudentID">
学期 <SELECT id="Term" name="Term">
<OPTION value="1" selected>一年级上学期</OPTION>
<OPTION value="2">一年级下学期</OPTION>
<OPTION value="3">二年级上学期</OPTION>
<OPTION value="4">二年级下学期</OPTION>
<OPTION value="5">三年级上学期</OPTION>
<OPTION value="6">三年级下学期</OPTION>
<OPTION value="7">四年级上学期</OPTION>
<OPTION value="8">四年级下学期</OPTION>
</SELECT> <INPUT class="style1" id="search1" onclick="search()" type="button" value="查 询" name="search1">
<IMG height="25" src="image/message.gif" width="30" border="0">
</TD>
</TR>
<TR>
<TD align="center"><br>
<TABLE cellSpacing="0" cellPadding="0" width="600" border="1">
<TR bgColor="#cccc33">
<TD align="center">学科
</TD>
<TD align="center">成绩
</TD>
<TD align="center">类型
</TD>
<TD align="center">任课教师
</TD>
</TR>
<%'用户提交了查询表单
If Search = "1" Then
StudentID = Trim(Request.Form("StudentID"))
Term = Cint(Trim(Request.Form("Term")))
Call sc_Class.searchScore(StudentID,Term)
Do While not sc_Class.dbc_Class.Rs.Eof
%>
<TR>
<TD align="center"><%=sc_Class.dbc_Class.Rs("CourseName")%></TD>
<%If Cint(sc_Class.dbc_Class.Rs("Score")) >= 60 Then%>
<TD align="center"><%=sc_Class.dbc_Class.Rs("Score")%></TD>
<%Else%>
<TD align="center"><font color="red"><%=sc_Class.dbc_Class.Rs("Score")%></font></TD>
<%Fail = Fail +1
End If %>
<TD align="center"><%=sc_Class.dbc_Class.Rs("Type")%></TD>
<TD align="center"><%=sc_Class.dbc_Class.Rs("TeacherName")%></TD>
</TR>
<% Count = Count + 1
sc_Class.dbc_Class.Rs.MoveNext()
Loop
sc_Class.dbc_Class.CloseConn()
Else%>
<TR>
<TD colSpan="4">请输入查询条件后进行查询！</TD>
</TR>
<%End If%>
</TABLE>
<br>
</TD>
</TR>
<TR>
<TD align="left" bgColor="#ff9930"> <FONT face="宋体"><IMG height="25" src="image/29.gif" width="30" border="0">总共查到<B><%=Count%></B>门课程的成绩，其中<b><%=Fail%></b>门课程不及格！
<INPUT class="style1" id="Button2" onclick="javascript:window.open('message.asp','message')"
type="button" value="留言本" name="message"> <INPUT class="style1" id="Button1" onclick="javascript:document.location='login.asp';"
type="button" value="管理登录" name="login"></FONT> </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 + -