inst_create_test_additions.asp

来自「A java project in e-bussiness module.」· ASP 代码 · 共 302 行

ASP
302 行
字号 
<html>
<head>
<% help_location = "inst_create_test_additions" %>

<!-- Author: Brad Pierce -->
<title>Teacher Add Test Questions</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>Add Test Questions</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>
<%
   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
   
   question_counter=1 'set to 1 so questions display correctly
   error_counter = 0  'no errors counted
   
   '-----------------------------------------
   'ERROR CHECKING FOR BLANKS AND NON-NUMERIC
   '-----------------------------------------
   IF request("num_multiple_choice") <> "" 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'>&nbspYou must enter a number of MULTIPLE CHOICE questions to create!</div>"
	     error_counter = error_counter + 1
      ELSE
	     IF request("num_mc_choices") <> "" 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'>&nbspYou must enter a number of MULTIPLE CHOICE choices to create!</div>"
	           error_counter = error_counter + 1
            END IF
         ELSEIF request("num_mc_choices") = "" THEN
		    Response.Write "<div id=warning><img src='../images/warning.gif'>&nbspYou must enter a number of MULTIPLE CHOICE choices to create!</div>"
	        error_counter = error_counter + 1
	     END IF
		 question_counter = question_counter + request("num_multiple_choice")
	  END IF
   END IF		 

   IF request("num_true_false") <> "" 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'>&nbspYou 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("num_m_true_false") <> "" 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'>&nbspYou 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("num_matching") <> "" THEN
      IF NOT(isnumeric(request("num_matching"))) OR request("num_matching") < "1" THEN
   	      Response.Write "<div id=warning><img src='../images/warning.gif'>&nbspYou 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("num_completion") <> "" THEN
      IF NOT(isnumeric(request("num_completion"))) OR request("num_completion") < "1" THEN
         Response.Write "<div id=warning><img src='../images/warning.gif'>&nbspYou 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("num_short_answer") <> "" 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'>&nbspYou 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("num_essay") <> "" THEN
      IF NOT(isnumeric(request("num_essay"))) OR request("num_essay") < "1" THEN		 
         Response.Write "<div id=warning><img src='../images/warning.gif'>&nbspYou 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'>&nbspYou must add at least 1 question!</div>"
   END IF
      
   IF error_counter THEN
      Response.Write "<br><div id=warning><u>Your test addition contained errors.  "
      Response.Write "Hit the back button on your browser to make corrections.</u></div><br><br>"
   END IF
   
   '------------------------
   'PRINT OUT TEST ADDITIONS
   '------------------------
   question_counter = 1
   Response.Write "<FORM METHOD='post' ACTION='inst_submit_test_additions.asp'>"
   
   ' table to retrieve multiple choice information
   session("num_mc_choices") = request("num_mc_choices")
   IF trim(request("num_multiple_choice")) <> "" THEN
      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>"
		       Response.Write "<td><input type='text' size='30' name='mc_question_" & question_counter & "'></td>"
		       Response.Write "<td><table><tr>"
		       ' display answer selections
		       FOR choice_counter=1 to session("num_mc_choices")				  
		          Response.Write "<td><b>" & Chr(64 + choice_counter) & ".</b></td>"
		          Response.Write "<td><input type='text' size='15' name='mc_choice_" & question_counter & chr(64 + choice_counter) & "'></td>"
               
			   	  IF choice_counter mod 3 = 0 THEN
				     Response.Write "</tr><tr>"
				  END IF
			   NEXT
		       Response.Write "</table></td>"
		       Response.Write "<td><center><select name='mc_answer_" & question_counter & "'>"
		       ' display correct answer drop down list
	           FOR choice_counter=1 to session("num_mc_choices")
	              Response.Write "<option value=" & chr(64 + choice_counter) & ">" & chr(64 + choice_counter) & ""
               NEXT
		       Response.Write "</center></select><td>"	
            NEXT
	        Response.Write "</table></p>"
         END IF
      END IF
   ELSE	    
      session("num_multiple_choice")=0
   END IF
   
   ' table to retrieve true/false information
   IF trim(request("num_true_false")) <> "" THEN
      IF isnumeric(request("num_true_false")) AND request("num_true_false") > "0" THEN
	     session("num_true_false") = request("num_true_false")
		 Response.Write "<div id=secheader>True/False</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Answer</td></tr>"
	     FOR question_counter=question_counter to (request("num_true_false") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='tf_question_" & question_counter & "'></td>"
			Response.Write "<td><select name='tf_answer_" & question_counter & "'>"
			Response.Write "<option value='TRUE'>TRUE"
			Response.Write "<option value='FALSE'>FALSE"
			Response.Write "</select></td>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_true_false")=0
   END IF

   ' table to retrieve modified true/false information
   IF trim(request("num_m_true_false")) <> "" THEN
      IF isnumeric(request("num_m_true_false")) AND request("num_m_true_false") > "0" THEN
	     session("num_m_true_false") = request("num_m_true_false")
		 Response.Write "<div id=secheader>Modified True/False</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Keyword</td>"
		 Response.Write "<td>Answer</td>"
		 Response.Write "<td>Correction If False</td>"
	     FOR question_counter=question_counter to (request("num_m_true_false") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='mtf_question_" & question_counter & "'></td>"
			Response.Write "<td><input type='text' size='15' name='mtf_keyword_" & question_counter & "'></td>"
			Response.Write "<td><select name='mtf_answer_" & question_counter & "'>"
			Response.Write "<option value='TRUE'>TRUE"
			Response.Write "<option value='FALSE'>FALSE"
			Response.Write "</select></td>"
			Response.Write "<td><center><input type='text' size='15' name='mtf_correction_" & question_counter & "'></center></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_m_true_false")=0
   END IF
   
   ' table to retrieve matching information
   IF trim(request("num_matching")) <> "" THEN
      IF isnumeric(request("num_matching")) AND request("num_matching") > "0" THEN
	     choice_counter=1
		 session("num_matching") = request("num_matching")
		 Response.Write "<div id=secheader>Matching</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Match List</td>"
		 Response.Write "<td>Answers Jumbled</td>"
		 Response.Write "<td>Correct Match</td>"
	     FOR question_counter=question_counter to (request("num_matching") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='15' name='match_list_" & question_counter & "'></td>"
			Response.Write "<td><table border='0'><tr><td width='20'><b>" & Chr(64 + choice_counter) & ".</b></td>"
			Response.Write "<td><input type='text' size='15' name='match_jumbled_" & question_counter & "'></td></tr></table></td>"
			Response.Write "<td><center><select name='match_answer_" & question_counter & "'>"
			' display correct answer drop down list
	        FOR match_counter=1 to request("num_matching")
	           Response.Write "<option value=" & chr(64 + match_counter) & ">" & chr(64 + match_counter) & ""
            NEXT
		    Response.Write "</select></center><td>"	
			choice_counter=choice_counter+1
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_matching")=0
   END IF
   
   ' table to retrieve completion information
   IF trim(request("num_completion")) <> "" THEN
      IF isnumeric(request("num_completion")) AND request("num_completion") > "0" THEN
	     session("num_completion") = request("num_completion")
		 Response.Write "<div id=secheader>Completion</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Statement</td>"
		 Response.Write "<td>Completion</td></tr>"
	     FOR question_counter=question_counter to (request("num_completion") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='comp_question_" & question_counter & "'></td>"
			Response.Write "<td><input type='text' size='15' name='comp_answer_" & question_counter & "'></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
      session("num_completion")=0
   END IF
   
   ' table to retrieve short answer information
   IF trim(request("num_short_answer")) <> "" THEN
      IF isnumeric(request("num_short_answer")) AND request("num_short_answer") > "0" THEN
	     session("num_short_answer") = request("num_short_answer")
		 Response.Write "<div id=secheader>Short Answer</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Answer/Keywords</td></tr>"
	     FOR question_counter=question_counter to (request("num_short_answer") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='sa_question_" & question_counter & "'></td>"
			Response.Write "<td><center><input type='text' size='15' name='sa_answer_" & question_counter & "'></center></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_short_answer")=0
   END IF
   
   ' table to retrieve essay information
   IF trim(request("num_essay")) <> "" THEN
      IF isnumeric(request("num_essay")) AND request("num_essay") > "0" THEN
	     session("num_essay") = request("num_essay")
		 Response.Write "<div id=secheader>Essay</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Answer/Keywords</td></tr>"
	     FOR question_counter=question_counter to (request("num_essay") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='essay_question_" & question_counter & "'></td>"
			Response.Write "<td><textarea cols='50' name='essay_answer_" & question_counter & "'></textarea></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_essay")=0
   END IF
      
   IF error_counter = 0 THEN 
      Response.Write "<p><input type='submit' value='Submit Additions'>"
	  Response.Write "<input type='reset'  value='Clear All'></FORM>"
   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>

inst_create_test_additions.asp - 源码说明

本页面展示了「A java project in e-bussiness module.」中的 inst_create_test_additions.asp 源码文件，采用 ASP 编程语言编写，共 302 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与e-bussiness相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?