📄 student_view_grade.asp
字号:
<html>
<head>
<% help_location = "viewing_grades" %>
<!-- Author: Brad Pierce -->
<title>Student View Grades</title>
<link href="../student/student_basics.css" rel="stylesheet" type="text/css">
<table border='0'><tr><td><img src="../images/student_netest.gif"></td><td width='5%'></td><td width='100%'><br><h2>View Grades</h2></td></tr>
<!-- #include file="../student_navbar/student_navbar_print.inc" -->
<%
If NOT Session("student_authenticated") Then
Response.Redirect("student_login.asp")
End If
%>
</head>
<TD valign='top'><br>
<%
const COURSE_CODE_LENGTH = 5
dim corranswers
dim FoundPos
dim grade
dim NextPos
dim last_selection
dim list_count
dim totquestions
dim oConn ' Connection Object
dim oRS ' Record Set Object
Set oConn=Server.CreateObject("ADODB.connection")
set oRS=Server.CreateObject("ADODB.recordset")
Response.Write "<p><h3><font color='#043566'>For which course would you like to view grades?</font></h3></p>"
oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
sqltext = "SELECT * FROM Enroll " & _
"INNER JOIN Course ON Enroll.Course_Code = Course.Course_Code " & _
"WHERE Enroll.Student_Code='" & Session("username") & "' ORDER BY Course.Course_Code"
oRS.Open sqltext, oConn, 3
list_count = oRS.RecordCount
oRS.close
%>
<h4><img src="../images/checkmark.gif">Select a Class:</h4>
<form METHOD="post" name="form1" ACTION="student_view_grade.asp">
<p><select NAME="selected_course" onchange="document.form1.submit();"
SIZE="<% =list_count %>">
<%
sqltext = "SELECT Enroll.Course_Code, Enroll.Section_Code, Course_Name FROM Enroll " & _
"INNER JOIN Course ON Enroll.Course_Code = Course.Course_Code " & _
"WHERE Enroll.Student_Code='" & Session("username") & "' ORDER BY Course.Course_Code"
oRS.Open sqltext, oConn
Do While Not oRS.EOF
Response.Write "<OPTION VALUE='" & oRS("Course_Code") & " " & oRS("Section_Code") & " " & oRS("Course_Name") & "'>"
Response.Write oRS("Course_Code")
IF oRS("Section_Code") <> "" THEN
Response.Write "-" & oRS("Section_Code") & " "
ELSE
Response.Write " "
END IF
Response.Write oRS("Course_Name") & "</OPTION>"
oRS.MoveNext
Loop
oRS.Close
IF list_count = 1 THEN
Response.Write "<INPUT TYPE='SUBMIT' value='Select Class'>"
END IF
%>
</Select></FORM></P>
<%
IF NOT request("selected_course") = "" THEN
session("course") = left(request("selected_course"),COURSE_CODE_LENGTH)
FoundPos = instr(request("selected_course"), " ")
NextPos = InStr(FoundPos + 1, request("selected_course"), " ")
IF NextPos <> FoundPos + 1 THEN ' statement ensures that there is a section code
session("section") = Mid(request("selected_course"), FoundPos + 1, NextPos - FoundPos - 1)
ELSE
session("section") = ""
END IF
session("course_name") = Right(request("selected_course"), len(request("selected_course")) - NextPos)
Response.Write "<br><h4><img src='../images/checkmark.gif'>Test Grades available for " & session("course")
IF session("section") <> "" THEN
Response.Write "-" & session("section") & " "
ELSE
Response.Write " "
END IF
Response.Write session("course_name") & "</h4>"
sqltext = "SELECT * FROM CompletedTests,Test WHERE Student_Code='" & session("username") & "' AND " & _
"CompletedTests.Test_Code = Test.Test_Code AND Test.Course_Code='" & session("course") & "' AND " & _
"Test.Section_Code='" & session("section") & "'"
oRS.CursorLocation = 3 'adUseClient
oRS.Open sqltext, oConn
record_count = oRS.RecordCount
oRS.Close
IF record_count THEN
%>
<FORM METHOD="post" ACTION="student_grade.asp">
<P><SELECT MULTIPLE NAME="selected_test" SIZE="2">
<%
sqltext = "SELECT * FROM CompletedTests,Test WHERE Student_Code='" & session("username") & "' AND " & _
"CompletedTests.Test_Code = Test.Test_Code AND Test.Course_Code='" &session("course") & "' AND " &_
"Test.Section_Code='" & session("section") & "'"
oRS.CursorLocation = 3 'adUseClient
oRS.Open sqltext, oConn
Response.Write "<option value='0' selected>View All Tests"
Do While Not oRS.EOF
Response.Write "<OPTION VALUE='" & oRS("Test_Code") & "'>"
Response.Write oRS("Test_Name") & "</OPTION>"
oRS.MoveNext
Loop
oRS.Close
Set oRS = nothing
oConn.Close
Set oConn = nothing
Response.Write "<input type='submit' value='Check Grade'>"
Response.Write "<table border='0'><tr><td height='27'></td></tr></table>"
ELSE
Response.Write "<font color='000000'><b>     No Tests</b></font>"
Response.Write "<table border='0'><tr><td height='46'></td></tr></table>"
END IF
ELSE
Response.Write "<table border='0'><tr><td height='121'></td></tr></table>"
END IF
%>
</Select></P></form>
</td></tr>
<tr><td></td><td colspan='2'><br><br><hr size='2' color='#000000'>
<font size='1'>Powered by Netest</font>
</td></tr></table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -