📄 inst_create_test.asp
字号:
<html>
<head>
<% help_location = "teacher_create_test" %>
<!-- Author: Brad Pierce -->
<title>Teacher Create 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>Create 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
IF Session("submitted") = TRUE THEN
response.write "<td valign='top'><br>"
Response.Write "<p><div id=warning><img src='../images/warning.gif'> You cannot resubmit the test.</div><br>"
Response.Write "<a href='inst_choose_test_modifications.asp'>Click here to add, delete, or update questions.</a><br>"
Response.Write "<a href='inst_home.asp'>Click here to return to the home page.</a></p>"
%>
</table><br><br><table width='86%' align='right' border='0'><tr><td>
<hr size='2' color='#000000'>
<font size='1'>Powered by Netest</font>
</td></tr></table>
<%
Response.End
END IF
%>
</head>
<td valign='top'><br>
<%
const COURSE_CODE_LENGTH = 5
dim question_counter ' total questions counter
dim choice_counter ' multiple choice and matching possible answers counter
dim match_counter ' matching choices counter
dim error_counter
dim FoundPosition
dim NextPosition
dim course
dim section
question_counter=1 'set to 1 so questions display correctly
error_counter = 0 'no errors counted
' Capture the course and section numbers
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
' Capture the test name
IF trim(request("test_name")) = "" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a test name!</div>"
error_counter = error_counter + 1
ELSE
session("test_name") = trim(request("test_name")) & " (created " & date & " " & time & ")"
response.write "<h3>" & session("test_name") & "</h3><br>"
END IF
'-----------------------------------------
'ERROR CHECKING FOR BLANKS AND NON-NUMERIC
'-----------------------------------------
IF request("multiple_choice") ="yes" THEN
IF NOT(isnumeric(request("num_multiple_choice"))) OR request("num_multiple_choice") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of MULTIPLE CHOICE questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_multiple_choice")
END IF
END IF
IF request("multiple_choice") ="yes" THEN
IF NOT(isnumeric(request("num_mc_choices"))) OR request("num_mc_choices") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of MULTIPLE CHOICE choices to create!</div>"
error_counter = error_counter + 1
END IF
END IF
IF request("true_false") = "yes" THEN
IF NOT(isnumeric(request("num_true_false"))) OR request("num_true_false") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of TRUE/FALSE questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_true_false")
END IF
END IF
IF request("m_true_false") = "yes" THEN
IF NOT(isnumeric(request("num_m_true_false"))) OR request("num_m_true_false") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of MODIFIED TRUE/FALSE questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_m_true_false")
END IF
END IF
IF request("matching") = "yes" THEN
IF NOT(isnumeric(request("num_matching"))) OR request("num_matching") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of MATCHING questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_matching")
END IF
END IF
IF request("completion") = "yes" THEN
IF NOT(isnumeric(request("num_completion"))) OR request("num_completion") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of COMPLETION questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_completion")
END IF
END IF
IF request("short_answer") = "yes" THEN
IF NOT(isnumeric(request("num_short_answer"))) OR request("num_short_answer") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of SHORT ANSWER questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_short_answer")
END IF
END IF
IF request("essay") = "yes" THEN
IF NOT(isnumeric(request("num_essay"))) OR request("num_essay") < "1" THEN
Response.Write "<div id=warning><img src='../images/warning.gif'> You must enter a number of ESSAY questions to create!</div>"
error_counter = error_counter + 1
ELSE
question_counter = question_counter + request("num_essay")
END IF
END IF
IF question_counter=1 THEN
error_counter = error_counter + 1
response.write "<div id=warning><img src='../images/warning.gif'> You must enter at least 1 question to create a test!</div>"
END IF
IF error_counter THEN
Response.Write "<br><div id=warning><u>Your test contained errors. "
Response.Write "Hit the back button on your browser to make corrections.</u></div><br><br>"
END IF
'------------------------
'PRINT OUT TEST FOR INPUT
'------------------------
Response.Write "<FORM METHOD='post' ACTION='inst_submit_test.asp'>"
' retrieve test instructions
IF error_counter = 0 THEN
Response.Write "<div id=secheader>Test Instructions</div>"
Response.Write "<textarea cols='50' name='test_instructions'></textarea><br><br>"
END IF
question_counter = 1
' table to retrieve multiple choice information
IF request("multiple_choice") ="yes" THEN
session("num_mc_choices") = request("num_mc_choices")
IF isnumeric(request("num_multiple_choice")) AND request("num_multiple_choice") > "0" THEN
IF isnumeric(session("num_mc_choices")) AND session("num_mc_choices") > "0" THEN
session("num_multiple_choice") = request("num_multiple_choice")
Response.Write "<div id=secheader>Multiple Choice</div>"
Response.Write "<table border=1><tr><td></td>"
Response.Write "<td>Question</td><td>Choices</td><td>Answer</td></tr>"
FOR question_counter=1 to request("num_multiple_choice")
Response.Write "<tr><td>" & question_counter & "</td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -