📄 inst_view_modify_test.asp
字号:
<html>
<head>
<% help_location = "inst_view_modify" %>
<!-- Author: Brad Pierce -->
<title>Teacher View and Modify Test</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/Modify Test</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>
<%
const COURSE_CODE_LENGTH = 5
dim FoundPosition
dim NextPosition
dim list_count
dim option_count
dim oConn ' Connection Object
dim oRS ' Record Set Object
Set oConn=Server.CreateObject("ADODB.connection")
set oRS=Server.CreateObject("ADODB.recordset")
' no questions have been deleted, modified, or added at this point
session("deleted") = FALSE
Session("test_deleted") = FALSE
session("modified") = FALSE
session("added") = FALSE
session("first_visit") = TRUE
Response.Write "<h3>Which test do you want to view or modify?</h3>"
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_modify_test.asp">
<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>
<%
IF request("selected_course") <> "" THEN
' capture course, section, and course name
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)
' print course name
Response.Write "<br><h4><img src='../images/checkmark.gif'>Tests for " & session("course")
IF session("section") <> "" THEN
Response.Write "-" & session("section") & " "
ELSE
Response.Write " "
END IF
Response.Write session("course_name") & ":</h4>"
' count the total records for printing out the available tests
sqltext = "SELECT * 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
' print out the possible tests
IF record_count THEN
%>
<FORM METHOD="post" ACTION="inst_choose_test_modifications.asp">
<SELECT NAME="selected_test" SIZE="1">
<%
sqltext = "SELECT Test_Name, Test.Test_Code FROM Test " & _
"WHERE Section_Code ='" & Session("section") & "' AND Course_Code = '" & Session("course") & "'"
oRS.Open sqltext, oConn
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='Edit Test'></SELECT>"
Response.Write "<table border='0'><tr><td height='60'></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 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 + -