📄 scorequery.asp
字号:
Response.write "不指定"
End If%>
</td>
</tr>
<tr>
<td width="30%" align="center" class="tdbg1">姓名：</td>
<td width="70%" align="left" class="tdbg">
<%If StudentName<>"" Then
Response.write StudentName&"<input name='StudentName' id='StudentName' type='hidden' value='"&StudentName&"'>"
Else
Response.write "不指定"
End If%>
</td>
</tr>
<tr>
<td width="30%" align="center" class="tdbg1">生日：</td>
<td width="70%" align="left" class="tdbg">
<%If Birthday<>"" Then
Response.write Birthday&"<input name='Birthday' id='Birthday' type='hidden' value='"&Birthday&"'>"
Else
Response.write "不指定"
End If%>
</td>
</tr>
<tr valign="middle" class="tdbg">
<td width="30%" height="30" align="center" class="tdbg1">所选考试：</td>
<td width="70%" height="30"><%
Dim RsSheetName,SqlName
Set RsSheetName = conn_Sdms.Execute ("Select TestName From TestName Where SheetName='" & SheetName & "'")
SqlName = RsSheetName(0)
Set RsSheetName = Nothing
Response.write (SqlName)%>
</td>
</tr>
<tr align="left" valign="middle" class="tdbg">
<td width="30%" height="16" align="center" class="tdbg1">选择科目：</td>
<td width="70%" height="16">
<%
Dim rsSubject,SqlSubject
Set rsSubject = Server.CreateObject("ADODB.Recordset")
SqlSubject = "SELECT * FROM " & SheetName
rsSubject.Open SqlSubject,conn_Sdms
response.Write("<table border='0' cellspacing='0' cellpadding='3'><tr>")
For i = 5 to rsSubject.Fields.Count - 1
Response.write "<td><input type='checkbox' name='Subject' value='"&rsSubject.Fields(i).Name&"'>" & rsSubject.Fields(i).Name & "</td>"
if (i+1-5)>0 and ((i+1-5) mod 5 =0) then response.write "</tr><tr>"
next
Response.write "<td><input Name='Subject' type='checkbox' value='总分'>总分</td>"
if (i+1-5)>0 and ((i+1-5) mod 5 =0) then response.write "</tr><tr>"
i=i+1
Response.write "<td><input Name='Subject' type='checkbox' value='平均分'>平均分</td>"
if (i+1-5)>0 and ((i+1-5) mod 5 =0) then response.write "</tr><tr>"
i=i+1
Response.write "<td><input Name='Subject' type='checkbox' value='全级排名'>全级排名</td>"
if (i+1-5)>0 and ((i+1-5) mod 5 =0) then response.write "</tr><tr>"
Response.write "<td><input Name='Subject' type='checkbox' value='班级排名'>班级排名</td>"
response.Write("</tr></table>")
rsSubject.Close()
Set rsSubject = Nothing
Call CloseSdmsConn
%>
</td>
</tr>
<tr align="center" valign="middle" class="tdbg">
<td height="16" colspan="2"><input name="SheetName" type="hidden" id="SheetName" value="<%=SheetName%>"><input name="action" type="hidden" id="action" value="ShowStep1Result"><input type="submit" name="Submit" value="下一步"></td>
</tr>
</table>
</form>
<%
End Sub
Sub SearchStep2()
Dim Subject
StudentNum=ReplaceBadChar(Trim(Request("StudentNum")))
StudentName=ReplaceBadChar(Trim(Request("StudentName")))
Birthday=ReplaceBadChar(Trim(Request("Birthday")))
Subject=ReplaceBadChar(Trim(Request("Subject")))
If StudentNum="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>学生学号不能为空！！！</li>"
Exit Sub
End If
If StudentName="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>学生姓名不能为空！！！</li>"
Exit Sub
End If
If Birthday="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>学生生日不能为空！！！</li>"
Exit Sub
End If
If Subject="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>所选科目不能为空！！！</li>"
Exit Sub
End If
If Birthday<>"" And IsDate(Birthday) = False Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>输入的生日不是规则日期！！！</li>"
Exit Sub
End If
Dim IsStudentInfoInclude
Call OpenSdmsConn
Set IsStudentInfoInclude=conn_Sdms.Execute ("SELECT StudentNum,Name FROM StudentInfo WHERE StudentNum ='" & StudentNum & "' And Name ='" & StudentName & "' And Birthday =#" & Birthday & "#")
If IsStudentInfoInclude.Eof Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>不存在这个学生！！！</li><br><li>输入的学生学号，姓名，或者生日有误！</li>"
Set IsStudentInfoInclude=Nothing
Exit Sub
End If
Set IsStudentInfoInclude=Nothing
%>
<form Name="form1" action="ScoreQuery.asp" method="post">
<table width="600" class="border" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="50" colspan="2" align="center" class="title">
<p><b>学 生 成 绩 查 询</b>（第二步）----按科目查询</p> </td>
</tr>
<tr>
<td width="30%" align="center" class="tdbg1">学号：</td>
<td width="70%" align="left" class="tdbg">
<%If StudentNum<>"" Then
Response.write StudentNum&"<input name='StudentNum' id='StudentNum' type='hidden' value='"&StudentNum&"'>"
Else
Response.write "不指定"
End If%>
</td>
</tr>
<tr>
<td width="30%" align="center" class="tdbg1">姓名：</td>
<td width="70%" align="left" class="tdbg">
<%If StudentName<>"" Then
Response.write StudentName&"<input name='StudentName' id='StudentName' type='hidden' value='"&StudentName&"'>"
Else
Response.write "不指定"
End If%>
</td>
</tr>
<tr>
<td width="30%" align="center" class="tdbg1">生日：</td>
<td width="70%" align="left" class="tdbg">
<%If Birthday<>"" Then
Response.write Birthday&"<input name='Birthday' id='Birthday' type='hidden' value='"&Birthday&"'>"
Else
Response.write "不指定"
End If%>
</td>
</tr>
<tr valign="middle" class="tdbg">
<td width="30%" height="30" align="center" class="tdbg1">所选科目：</td>
<td width="70%" height="30"><%=Subject%></td>
</tr>
<tr align="left" valign="middle" class="tdbg">
<td width="30%" height="16" align="center" class="tdbg1">选择考试：</td>
<td width="70%" height="16">
<%
Set RsTest = Server.CreateObject("ADODB.Recordset")
SqlSubject = "SELECT * FROM TestName"
RsTest.Open SqlSubject, Conn_Sdms, 1, 1
Set rsSubject = Server.CreateObject("ADODB.Recordset")
response.Write ("<table border='0' cellspacing='0' cellpadding='3'><tr>")
Do While Not RsTest.EOF
rsSubject.Open "SELECT * FROM " & RsTest("SheetName"), Conn_Sdms, 1, 3
For i = 5 To rsSubject.Fields.Count - 1
If rsSubject.Fields(i).Name = Subject Then
response.Write "<td><input type='checkbox' name='SheetName' value='" & RsTest("SheetName") & "'>" & RsTest("TestName") & "</td></tr><tr>"
End If
Next
rsSubject.Close
RsTest.Movenext
Loop
response.Write ("</tr></table>")
Set rsSubject = Nothing
RsTest.Close
Set RsTest = Nothing
Call CloseSdmsConn
%>
</td>
</tr>
<tr align="center" valign="middle" class="tdbg">
<td height="16" colspan="2"><input name="Subject" type="hidden" id="Subject" value="<%=Subject%>"><input name="action" type="hidden" id="action" value="ShowStep2Result"><input type="submit" name="Submit" value="下一步"></td>
</tr>
</table>
</form>
<%
End Sub
Sub ShowSearchResult1()
Dim SheetName,strSubjects,SelectedSubject
StudentNum=Trim(Request("StudentNum"))
StudentName=Trim(Request("StudentName"))
Birthday=Trim(Request("Birthday"))
SheetName=ReplaceBadChar(Trim(Request("SheetName")))
SelectedSubject=ReplaceBadChar(Request("Subject"))
strSubjects = SheetName & "." & Replace(SelectedSubject,", ",", " & SheetName & ".")
If SelectedSubject="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>至少要选择一个科目！！！</li>"
Exit Sub
End If
If SheetName="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>所选考试不能为空！！！</li>"
Exit Sub
End If
If StudentNum="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>学生学号不能为空！！！</li>"
Exit Sub
End If
If Birthday="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>学生生日不能为空！！！</li>"
Exit Sub
End If
If StudentName="" Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>学生姓名不能为空！！！</li>"
Exit Sub
End If
If Birthday<>"" And IsDate(Birthday) = False Then
FoundErr = True
ErrMsg=ErrMsg&"<br><li>输入的生日不是规则日期！！！</li>"
Exit Sub
End If
%>
<TABLE cellSpacing=0 cellPadding=0 width=700 align=center border=0>
<TR>
<TD valign="top" >
<br>
<b><font color="#FF0000">
考试名称：</font></b> <%=SheetName%><font color="#FF0000"><b><font color="#0066cc"> </font></b></font><font color="#FF0000"><b> 查询条件：</b></font>
学号（<%If StudentNum<>"" Then
Response.write StudentNum
Else
Response.write "不指定"
End If%>） 姓名（<%If StudentName<>"" Then
Response.write StudentName
Else
Response.write "不指定"
End If%>） 生日（<%If Birthday<>"" Then
Response.write Birthday
Else
Response.write "不指定"
End If%>）<br><br><%
Dim rsScore,strSQL
Call OpenSdmsConn
set rsScore = Server.CreateObject("ADODB.Recordset")
strSQL = "Select " & SheetName & ".StudentNum, StudentInfo.Name, " & strSubjects & " From " & SheetName
strSQL = strSQL & " LEFT JOIN StudentInfo ON " & SheetName & ".StudentNum = StudentInfo.StudentNum"
strSQL = strSQL & " Where " & SheetName & ".StudentNum ='" & ReplaceBadChar(StudentNum) & "'"
strSQL = strSQL & " And StudentInfo.Name ='" & ReplaceBadChar(StudentName) & "'"
strSQL = strSQL & " And StudentInfo.Birthday=#"&ReplaceBadChar(Birthday)&"#"
'strSQL = strSQL & " ORDER BY " & SheetName & ".StudentNum ASC"
rsScore.Open strSQL, conn_Sdms ,1 ,1
If Not rsScore.EOF Or Not rsScore.BOF Then %>
<table class='border' border='0' cellspacing='1' cellpadding='4' align='center'>
<tr class="title">
<td width="50" align="center"><font color="#000000"><strong>学 号</strong></font></td>
<td width="45" align="center"><font color="#000000"><strong>姓 名</strong></font></td>
<%Dim strTemp,ArrSubject,strSubject,SubjectCount,ScoreCount
strTemp = Trim(Request("Subject"))
ArrSubject = split(strTemp,",")
For i = LBound(ArrSubject) To UBound(ArrSubject)
strSubject=trim(ReplaceBadChar(ArrSubject(i)))
response.write "<td height='20' align='center'><font color='#000000'><b>" & strSubject & "</b></font></td>"
if strSubject<>"总分" and strSubject<>"平均分" and strSubject<>"全级排名" and strSubject<>"班级排名" then
SubjectCount=SubjectCount+1
end if
next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -