📄 student_grade.asp
字号:
<html>
<head>
<% help_location = "student_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>
<BODY>
<%
dim oConn ' Connection Object
dim oRS ' Record Set Object
dim oRS2
dim oRS3
Set oConn=Server.CreateObject("ADODB.connection")
set oRS=Server.CreateObject("ADODB.recordset")
set oRS2=Server.CreateObject("ADODB.recordset")
set oRS3=Server.CreateObject("ADODB.recordset")
oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
' ensure that they selected an option
IF request("selected_test") <> "" THEN
response.write "<h3>Grades for the Selected Tests</h3>"
session("selected_test") = " " & replace(request("selected_test"), ", ", " ") & " "
' check for view entire grades
IF left(request("selected_test"), 1) = 0 THEN
sqltext = "SELECT * FROM Test,CompletedTests WHERE Test.Test_Code=CompletedTests.Test_Code " & _
"AND Section_Code ='" & Session("section") & "' AND Course_Code = '" & Session("course") & "' " & _
"AND CompletedTests.Student_Code='" & session("username") & "' ORDER BY Test.Test_Code"
oRS.Open sqltext, oConn
' clear tests list
session("selected_test") = " "
DO WHILE NOT oRS.EOF
session("selected_test") = session("selected_test") & oRS("Test_Code") & " "
oRS.MoveNext
LOOP
oRS.Close
END IF
sqltext = "SELECT * FROM Test,CompletedTests WHERE CompletedTests.Student_Code = '" & Session("username") & "' AND " & _
"Test.Test_Code=CompletedTests.Test_Code"
oRS.CursorLocation = 3 'adUseClient
oRS.Open sqltext, oConn
record_count = oRS.RecordCount
oRS.Close
dim tests()
redim tests(record_count, 1)
x = 1
FoundSpace = instr(session("selected_test"), " ")
DO WHILE FoundSpace < len(session("selected_test"))
NextSpace = instr(FoundSpace + 1, session("selected_test"), " ")
sqltext = "SELECT * FROM CompletedTests WHERE CompletedTests.Student_Code = '" & Session("username") & "' AND " & _
"CompletedTests.Test_Code=" & mid(session("selected_test"), FoundSpace + 1, NextSpace - FoundSpace - 1) & ""
oRS.Open sqltext, oConn
IF NextSpace THEN
tests(x,0) = oRS("Test_Code")
tests(x,1) = oRS("Correct_Answers") & "/" & oRS("Total_Questions")
x = x + 1
oRS.MoveNext
else
tests(x,0) = oRS("Test_Code")
tests(x,1) = oRS("Correct_Answers") & "/" & oRS("Total_Questions")
x = x + 1
END If
oRS.Close
FoundSpace = NextSpace
LOOP
Response.Write "<table border='1'><tr>"
for y=1 to x - 1
sqltext = "SELECT * FROM Test WHERE Test_Code=" & tests(y,0) & ""
oRS.Open sqltext, oConn
test_name = oRS("Test_Name")
FoundChar = instr(test_name, " (created ")
test_name = left(test_name, FoundChar - 1)
response.write "<td><b>" & test_name & "</b></td>"
oRS.Close
next
Response.Write "</tr>"
Response.Write "<tr>"
for y=1 to x - 1
Response.Write "<td align='center'>" & tests(y,1) & "</td>"
next
Response.Write "</tr></table>"
%>
<br><br><hr><br>
<table border='0'><tr><td><img src="../images/question.gif"></td><td><font color='#043566'><b>Finished?</b></font></td><td><a href='student_home.asp'>Return to student home page.</a></td></tr>
<tr><td><img src="../images/question.gif"></td><td><font color='#043566'><b>View other test grades?</b></font></td><td><a href="student_view_grade.asp">Student view grades.</a></td></tr></table>
<%
ELSE
response.write "<div id=warning><img src='../images/warning.gif'>You must select a test for which to view grades!</div><br>"
response.write "<div id=warning><u>Hit the back button on your browser to make corrections.</u></div>"
END IF
%>
</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 + -