📄 inst_view_graded.asp
字号:
<HTML>
<HEAD>
<% help_location = "view_grades" %>
<!-- Author: Brad Pierce -->
<TITLE>View Student Grades</TITLE>
<link href="../instructor/inst_basics.css" rel="stylesheet" type="text/css">
<table border='0'><tr><td><img src="../images/netest.png"></td><td width='5%'></td><td width='100%'><br><h2>View Grades</h2></td></tr>
<!-- #include file="../inst_navbar/teacher_navbar_print.inc" -->
<%
If not Session("inst_authenticated") Then
Response.Redirect("inst_login.asp")
End If
%>
</head>
<TD valign='top'><br>
<BODY>
<%
const COURSE_CODE_LENGTH = 5
dim FoundPosition
dim NextPosition
dim list_count
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>For which class do you want to view grades?</h3></p>"
oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
sqltext = "SELECT Section.Course_Code, Section.Section_Code, Course_Name FROM " & _
"Section INNER JOIN Course ON Section.Course_Code = Course.Course_Code " & _
"WHERE Inst_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="inst_view_graded.asp">
<P><SELECT NAME='selected_course' onchange='document.form1.submit();' SIZE='<% =list_count %>'>
<%
sqltext = "SELECT Section.Course_Code, Section.Section_Code, Course_Name FROM " & _
"Section INNER JOIN Course ON Section.Course_Code = Course.Course_Code " & _
"WHERE Inst_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)
FoundPosition = instr(request("selected_course"), " ")
NextPosition = InStr(FoundPosition + 1, request("selected_course"), " ")
IF NextPosition <> FoundPosition + 1 THEN ' statement ensures that there is a section code
session("section") = Mid(request("selected_course"), FoundPosition + 1, NextPosition - FoundPosition - 1)
ELSE
session("section") = ""
END IF
session("course_name") = Right(request("selected_course"), len(request("selected_course")) - NextPosition)
Response.Write "<br><h4><img src='../images/checkmark.gif'>All tests for " & session("course")
IF session("section") <> "" THEN
Response.Write "-" & session("section") & " "
ELSE
Response.Write " "
END IF
Response.Write session("course_name") & "</font></h3>"
' count the total records for printing out the students
sqltext = "SELECT Test_Name, Test.Test_Code FROM Test " & _
"WHERE Section_Code ='" & Session("section") & "' AND Course_Code = '" & Session("course") & "'"
oRS.CursorLocation = 3 'adUseClient
oRS.Open sqltext, oConn
record_count = oRS.RecordCount
oRS.Close
IF record_count THEN
%>
<FORM METHOD="post" ACTION="inst_grades.asp">
<SELECT MULTIPLE NAME="selected_tests" SIZE="3">
<%
sqltext = "SELECT Test_Name, Test.Test_Code FROM Test " & _
"WHERE Section_Code ='" & Session("section") & "' AND Course_Code = '" & Session("course") & "'"
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='View Grades'></SELECT>"
Response.Write "<table border='0'><tr><td height='30'></td></tr></table>"
ELSE
Response.Write "<font color='#003333'><b>     No Tests</b></font>"
Response.Write "<table border='0'><tr><td height='65'></td></tr></table>"
END IF
ELSE
Response.Write "<table border='0'><tr><td height='140'></td></tr></table>"
END IF
%>
</td></tr>
<tr><td></td><td></td><td><h5>If you would like to view a student's incorrect answers for a test, click here:<br>
<a href="inst_select_graded_test.asp">View Student's Incorrect Answers</a></h5></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 + -