inst_submit_updated_test.asp

来自「A java project in e-bussiness module.」· ASP 代码 · 共 447 行 · 第 1/2 页

         END IF
		 
		 IF trim(request("sa_answer_" & sa_question_number(x))) = "" THEN
	        error_message = "Question #" & sa_question_number(x) & " ANSWER/KEYWORDS cannot be blank"
	        call DisplayError()
         END IF
      NEXT
   END IF
   
   '-----------------
   'ERROR CHECK ESSAY
   '-----------------
   ' get the questions to check
   IF session("essay_modify_count") <> 0 THEN
      dim essay_question_number()
	  redim essay_question_number(session("essay_modify_count"))
	  
      FoundSpace = instr(session("modified_essay_questions"), " ")
	  essay_question_number(1) = Left(session("modified_essay_questions"), FoundSpace - 1)
      FOR x=2 TO session("essay_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_essay_questions"), " ")
		 essay_question_number(x) = Mid(session("modified_essay_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT
	  
	  ' error check essay
      FOR x=1 TO session("essay_modify_count")
	     IF trim(request("essay_question_" & essay_question_number(x))) = "" THEN
	        error_message = "Question #" & essay_question_number(x) & " QUESTION cannot be blank"
	        call DisplayError()
         END IF
		 
		 IF trim(request("essay_answer_" & essay_question_number(x))) = "" THEN
	        error_message = "Question #" & essay_question_number(x) & " ANSWER/KEYWORDS cannot be blank"
	        call DisplayError()
         END IF
      NEXT
   END IF
   
sub DisplayError()
   Response.Write "<div id=warning><img src='../images/warning.gif'>&nbsp" & error_message & "</div>"
   return_previous = TRUE
end sub

'----------------------------------------------------------------------------------------------
'IF NO ERRORS, SUBMIT TO DATABASE
'---------------------------------------------------------------------------------------------- 
IF return_previous = FALSE THEN
   Set oConn=Server.CreateObject("ADODB.connection")
   set oRS=Server.CreateObject("ADODB.recordset")
   oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
   
   '-----------------------
   'UPDATE Test Instruction
   '-----------------------
   IF session("instructions_updated") = TRUE THEN
      IF request("test_instructions") = "" THEN
         test_instructions = "none"
      ELSE
         test_instructions = request("test_instructions")
      END IF
   
      sqltext = "SELECT Test_Instructions FROM Test WHERE Test_Code=" & session("selected_test") & "" 
      oRS.Open sqltext, oConn, 2, 2
      oRS.Fields("Test_Instructions") = test_instructions
      oRS.Update
      oRS.Close
   END IF
   
   '----------------------
   'Submit Multiple Choice
   '----------------------
   IF session("mc_modify_count") <> 0 THEN
     
	  FOR x=1 to session("mc_modify_count")
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & mc_question_number(x) & "" 
         oRS.Open sqltext, oConn, 2, 2
      
	     choices=""
	     FOR choices_counter=1 to session("mc_choices_counter")
	        IF trim(request("mc_choice_" & mc_question_number(x) & chr(64 + choices_counter))) <> "" THEN
	           choices = choices & "|" & trim(request("mc_choice_" & mc_question_number(x) & chr(64 + choices_counter)))
            END IF
	     NEXT

         oRS.Fields("Question_Ask") = trim(request("mc_question_" & mc_question_number(x))) & choices
	     oRS.Fields("Question_Answer") = request("mc_answer_" & mc_question_number(x))
	     oRS.Update
		 oRS.Close
	  NEXT	  
   END IF
   
   '-----------------
   'Submit True/False
   '-----------------
   IF session("tf_modify_count") <> 0 THEN
      FOR x=1 to session("tf_modify_count")
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & tf_question_number(x) & ""
         oRS.Open sqltext, oConn, 2, 2
		 
		 oRS.Fields("Question_Ask") = trim(request("tf_question_" & tf_question_number(x)))
		 oRS.Fields("Question_Answer") = request("tf_answer_" & tf_question_number(x))
		 oRS.Update
		 oRS.Close
	  NEXT
   END IF

   '--------------------------
   'Submit Modified True/False
   '--------------------------
   IF session("mtf_modify_count") <> 0 THEN
      FOR x=1 to session("mtf_modify_count")
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & mtf_question_number(x) & ""
         oRS.Open sqltext, oConn, 2, 2
		 
		 oRS.Fields("Question_Ask") = trim(request("mtf_question_" & mtf_question_number(x))) & "|" & _
	                                  trim(request("mtf_keyword_" & mtf_question_number(x)))

         IF request("mtf_answer_" & mtf_question_number(x)) = "true" THEN
	        oRS.Fields("Question_Answer") = request("mtf_answer_" & mtf_question_number(x))
         ELSE
	        oRS.Fields("Question_Answer") = request("mtf_answer_" & mtf_question_number(x))& "|" & _
		                                    trim(request("mtf_correction_" & mtf_question_number(x)))
	     END IF								   
		 oRS.Update
		 oRS.Close
	  NEXT
   END IF
   
   '---------------
   'Submit Matching
   '---------------
   IF session("match_modify_count") <> 0 THEN
      FOR x=1 to session("match_modify_count")
         sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & match_question_number(x) & ""
         oRS.Open sqltext, oConn, 2, 2
	  
	     oRS.Fields("Question_Ask") = trim(request("match_list_" & match_question_number(x))) & "|" & _
	                                  trim(request("match_jumbled_" & match_question_number(x)))
	     oRS.Fields("Question_Answer") = request("match_answer_" & match_question_number(x))
	     oRS.Update
	     oRS.Close
	  NEXT
   END IF

   '-----------------
   'Submit Completion
   '-----------------
   IF session("comp_modify_count") <> 0 THEN
      FOR x=1 to session("comp_modify_count")
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & comp_question_number(x) & ""
         oRS.Open sqltext, oConn, 2, 2
		 
	     oRS.Fields("Question_Ask") = trim(request("comp_question_" & comp_question_number(x)))
	     oRS.Fields("Question_Answer") = trim(request("comp_answer_" & comp_question_number(x)))
		 oRS.Update
		 oRS.Close
      NEXT
   END IF

   '-------------------
   'Submit Short Answer
   '-------------------
   IF session("sa_modify_count") <> 0 THEN
      FOR x=1 to session("sa_modify_count")
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & sa_question_number(x) & ""
         oRS.Open sqltext, oConn, 2, 2
		 
	     oRS.Fields("Question_Ask") = trim(request("sa_question_" & sa_question_number(x)))
	     oRS.Fields("Question_Answer") = trim(request("sa_answer_" & sa_question_number(x)))
		 oRS.Update
		 oRS.Close
      NEXT
   END IF
   
   '------------
   'Submit Essay
   '------------
   IF session("essay_modify_count") <> 0 THEN
      FOR x=1 to session("essay_modify_count")
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & essay_question_number(x) & ""
         oRS.Open sqltext, oConn, 2, 2
		 
	     oRS.Fields("Question_Ask") = trim(request("essay_question_" & essay_question_number(x)))
	     oRS.Fields("Question_Answer") = trim(request("essay_answer_" & essay_question_number(x)))
		 oRS.Update
		 oRS.Close
      NEXT
   END IF
   
   session("modified") = TRUE
   
'--------------------------------
'VERIFY THAT TEST IS OKAY
'--------------------------------

   session("multi_visit") = FALSE
   session("print_header") = TRUE
%>
   <!-- #include file="inst_view_test.asp" -->
<%
   if question_counter > 1 then
      response.write "</table>"
   end if
%>
   <br><hr><br>
   <table border='0'><tr><td><img src="../images/question.gif"></td><td><font color='#003333'><b>Finished?</b></font></td><td><a href='inst_home.asp'>Return to teacher home page.</a></td></tr>
   <tr><td><img src="../images/question.gif"></td><td><font color='#003333'><b>Modify Test?</b></font></td><td><a href="inst_choose_test_modifications.asp">Add, Edit, or Delete Questions</a></td></tr></table>
<%
   oRS.Close
   
ELSE
   Response.Write "<br><div id=warning><u>Your update contained errors.  "
   Response.Write "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>