📄 student_select_test.asp
字号:
<html>
<head>
<META http-equiv="Expires" content="0">
<% help_location = "student_select" %>
<!-- Author: Brad Pierce -->
<title>Student Take Test</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>Take a Test</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>
<%
Response.Write "<p><h3><font color='#043566'>For which class do you want to take a test?</font></h3></p>"
%>
<h4><img src="../images/checkmark.gif">Select a Class:</h4>
<%
const COURSE_CODE_LENGTH = 5
dim FoundPos
dim NextPos
dim last_selection
dim list_count
dim oConn ' Connection Object
dim oRS ' Record Set Object
Set oConn=Server.CreateObject("ADODB.connection")
set oRS=Server.CreateObject("ADODB.recordset")
set oRS2=Server.CreateObject("ADODB.recordset")
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") & "'"
oRS.Open sqltext, oConn, 3
list_count = oRS.RecordCount
oRS.close
' student hasn't taken a test at this point
Session("test_completed") = FALSE
%>
<form METHOD="post" name="form1" ACTION="student_select_test.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'>Tests to be taken for " & session("course")
IF session("section") <> "" THEN
Response.Write "-" & session("section") & " "
ELSE
Response.Write " "
END IF
Response.Write session("course_name") & "</h4>"
'----------------------------
' CHECK FOR TESTS TO BE TAKEN
'----------------------------
sqltext = "SELECT * FROM Test WHERE Course_Code='" & session("course") & "' AND Section_Code='" & session("section") & "' " & _
"ORDER BY Test_Code"
oRS.Open sqltext, oConn, 3
total_tests = oRS.RecordCount
sqltext2 = "SELECT * FROM CompletedTests WHERE CompletedTests.Student_Code='" & session("username") & "' ORDER BY Test_Code"
oRS2.Open sqltext2, oConn, 3
completed_count = oRS2.RecordCount
tests_ready = 0
do while not oRS.EOF
if completed_count then
oRS2.MoveFirst
completed = FALSE
do while not oRS2.eof
if oRS("Test_Code") = oRS2("Test_Code") then
completed = TRUE
exit do
end if
oRS2.MoveNext
loop
if NOT completed then
tests_ready = tests_ready + 1
end if
oRS.MoveNext
else
tests_ready = total_tests
exit do
end if
loop
oRS.Close
oRS2.Close
IF tests_ready then
%>
<FORM METHOD="post" ACTION="student_view_test.asp">
<P><SELECT NAME="selected_test" SIZE="1">
<%
sqltext = "SELECT * FROM Test WHERE Course_Code='" & session("course") & "' AND Section_Code='" & session("section") & "' " & _
"ORDER BY Test_Code"
oRS.Open sqltext, oConn
sqltext2 = "SELECT * FROM CompletedTests WHERE CompletedTests.Student_Code='" & session("username") & "' ORDER BY Test_Code"
oRS2.Open sqltext2, oConn
do while not oRS.EOF
if completed_count then
oRS2.MoveFirst
completed = FALSE
do while not oRS2.eof
if oRS("Test_Code") = oRS2("Test_Code") then
completed = TRUE
exit do
end if
oRS2.MoveNext
loop
if NOT completed then
Response.Write "<OPTION VALUE='" & oRS("Test_Code") & "'>"
Response.Write oRS("Test_Name") & "</OPTION>"
end if
else
Response.Write "<option value='" & oRS("Test_Code") & "'>"
Response.Write oRS("Test_Name") & "</option>"
end if
oRS.MoveNext
loop
oRS.Close
oRS2.Close
Set oRS = nothing
Set oRS2 = nothing
oConn.Close
Set oConn = nothing
Response.Write "<input type='submit' value='Take Test'></SELECT>"
Response.Write "<table border='0'><tr><td height='41'></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 + -