inst_submit_updated_test.asp

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

ASP
447 行
字号
12
<html>
<head>
<% help_location = "inst_submit_updated_test" %>
<!-- Author: Brad Pierce -->

<title>Teacher Update 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>Update 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
   
   ' THIS COULD BE USED TO KEEP USER FROM CLICKING BACK BUTTON TO DO ANOTHER UPDATE....BUT IT'S NOT A PROBLEM
   ' FOR USER TO DO THIS
   'IF Session("modified") = TRUE THEN
   '   Response.Write "<p><font color=red size=4>You cannot resubmit the deleted question(s)</font><br>"
   '   Response.Write "<a href='inst_choose_test_modifications.asp'>Click here to delete other questions on the test</a><br>"
   '   Response.Write "<a href='inst_home.asp'>Click here to return to the home page</a></p>"
   '   Response.End
   'END IF
%>
</head>

<TD valign='top'><br>
<%
   dim oConn                ' Connection Object
   dim oRS                  ' Record Set Object
   dim return_previous
   dim choices
   dim choices_counter
   dim test_instructions
   
'----------------------------------------------------------------------------------------------
'ERROR CHECK BEFORE SUBMITTING TO DATABASE
'----------------------------------------------------------------------------------------------   
   return_previous = FALSE
   '---------------------------
   'ERROR CHECK MULTIPLE CHOICE
   '---------------------------
   ' get the questions to check
   IF session("mc_modify_count") <> 0 THEN
      dim mc_question_number()
	  redim mc_question_number(session("mc_modify_count"))
	  
      FoundSpace = instr(session("modified_mc_questions"), " ")
	  mc_question_number(1) = Left(session("modified_mc_questions"), FoundSpace - 1)
	  
      FOR x=2 TO session("mc_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_mc_questions"), " ")
		 mc_question_number(x) = Mid(session("modified_mc_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT

	  ' error check multiple choice
      FOR x=1 TO session("mc_modify_count")
	     choices = ""
		 
	     IF trim(request("mc_question_" & mc_question_number(x))) = "" THEN
	        error_message = "Question #" & mc_question_number(x) & " QUESTION cannot be blank"
	        call DisplayError()
         END IF
	  
	     FOR choices_counter=1 to session("mc_choices_counter")
	        choices = choices & trim(request("mc_choice_" & mc_question_number(x) & chr(64 + choices_counter)))
         NEXT

	     IF choices = "" THEN
	        error_message = "Question #" & mc_question_number(x) & " must have at least one CHOICE"
	        call DisplayError()
         END IF
      NEXT
   END IF
   
   '----------------------
   'ERROR CHECK TRUE/FALSE
   '----------------------
   ' get the questions to check
   IF session("tf_modify_count") <> 0 THEN
      dim tf_question_number()
	  redim tf_question_number(session("tf_modify_count"))
	  
      FoundSpace = instr(session("modified_tf_questions"), " ")
	  tf_question_number(1) = Left(session("modified_tf_questions"), FoundSpace - 1)
      FOR x=2 TO session("tf_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_tf_questions"), " ")
		 tf_question_number(x) = Mid(session("modified_tf_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT
	  
	  ' error check true/false
      FOR x=1 TO session("tf_modify_count")
	     IF trim(request("tf_question_" & tf_question_number(x))) = "" THEN
	        error_message = "Question #" & tf_question_number(x) & " QUESTION cannot be blank"
	        call DisplayError()
         END IF
      NEXT
   END IF

   '-------------------------------
   'ERROR CHECK MODIFIED TRUE/FALSE
   '-------------------------------
   ' get the questions to check
   IF session("mtf_modify_count") <> 0 THEN
      dim mtf_question_number()
	  redim mtf_question_number(session("mtf_modify_count"))
	  
      FoundSpace = instr(session("modified_mtf_questions"), " ")
	  mtf_question_number(1) = Left(session("modified_mtf_questions"), FoundSpace - 1)
	  
      FOR x=2 TO session("mtf_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_mtf_questions"), " ")
		 mtf_question_number(x) = Mid(session("modified_mtf_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT

	  ' error check modified true/false
      FOR x=1 TO session("mtf_modify_count")
		 IF trim(request("mtf_question_" & mtf_question_number(x))) = "" THEN
	        error_message = "Question #" & mtf_question_number(x) & " QUESTION cannot be blank"
	        call DisplayError()
         END IF
	  
	     IF trim(request("mtf_keyword_" & mtf_question_number(x))) = "" THEN
	        error_message = "Question #" & mtf_question_number(x) & " KEYWORD cannot be blank"
	        call DisplayError()
         END IF
	  
	     IF request("mtf_answer_" & mtf_question_number(x)) = "FALSE" AND trim(request("mtf_correction_" & mtf_question_number(x))) = "" THEN
	        error_message = "Question #" & mtf_question_number(x) & " CORRECTION cannot be blank if the ANSWER is False"
	        call DisplayError()
	     END IF
	  
	     IF request("mtf_answer_" & mtf_question_number(x)) = "TRUE" AND trim(request("mtf_correction_" & mtf_question_number(x))) <> "" THEN
	        error_message = "Question #" & mtf_question_number(x) & " CORRECTION must be blank if the ANSWER is True"
		    call DisplayError()
         END IF
      NEXT
   END IF

   '--------------------
   'ERROR CHECK MATCHING
   '--------------------
   ' get the questions to check
   IF session("match_modify_count") <> 0 THEN
      dim match_question_number()
	  redim match_question_number(session("match_modify_count"))
	  
      FoundSpace = instr(session("modified_match_questions"), " ")
	  match_question_number(1) = Left(session("modified_match_questions"), FoundSpace - 1)
      FOR x=2 TO session("match_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_match_questions"), " ")
		 match_question_number(x) = Mid(session("modified_match_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT
	  
	  ' error check matching
      FOR x=1 TO session("match_modify_count")
	     IF trim(request("match_list_" & match_question_number(x))) = "" THEN
	        error_message = "Question #" & match_question_number(x) & " LIST cannot be blank"
	        call DisplayError()
         END IF
	  
	     IF trim(request("match_jumbled_" & match_question_number(x))) = "" THEN
	        error_message = "Question #" & match_question_number(x) & " JUMBLED cannot be blank"
	        call DisplayError()
         END IF
      NEXT
   END IF
   
   '----------------------
   'ERROR CHECK COMPLETION
   '----------------------
   ' get the questions to check
   IF session("comp_modify_count") <> 0 THEN
      dim comp_question_number()
	  redim comp_question_number(session("comp_modify_count"))
	  
      FoundSpace = instr(session("modified_comp_questions"), " ")
	  comp_question_number(1) = Left(session("modified_comp_questions"), FoundSpace - 1)
      FOR x=2 TO session("comp_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_comp_questions"), " ")
		 comp_question_number(x) = Mid(session("modified_comp_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT
	  
	  ' error check completion
      FOR x=1 TO session("comp_modify_count")
	     IF trim(request("comp_question_" & comp_question_number(x))) = "" THEN
	        error_message = "Question #" & comp_question_number(x) & " QUESTION cannot be blank"
	        call DisplayError()
         END IF
		 
		 IF trim(request("comp_answer_" & comp_question_number(x))) = "" THEN
	        error_message = "Question #" & comp_question_number(x) & " COMPLETION cannot be blank"
	        call DisplayError()
         END IF
      NEXT
   END IF
   
   '------------------------
   'ERROR CHECK SHORT ANSWER
   '------------------------
   ' get the questions to check
   IF session("sa_modify_count") <> 0 THEN
      dim sa_question_number()
	  redim sa_question_number(session("sa_modify_count"))
	  
      FoundSpace = instr(session("modified_sa_questions"), " ")
	  sa_question_number(1) = Left(session("modified_sa_questions"), FoundSpace - 1)
      FOR x=2 TO session("sa_modify_count")
	     NextSpace = instr(FoundSpace + 1, session("modified_sa_questions"), " ")
		 sa_question_number(x) = Mid(session("modified_sa_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
		 FoundSpace = NextSpace
      NEXT
	  
	  ' error check short answer
      FOR x=1 TO session("sa_modify_count")
	     IF trim(request("sa_question_" & sa_question_number(x))) = "" THEN
	        error_message = "Question #" & sa_question_number(x) & " QUESTION cannot be blank"
	        call DisplayError()
12

inst_submit_updated_test.asp - 源码说明

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

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

⌨️ 快捷键说明

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