📄 inst_update_test.asp

📁 A java project in e-bussiness module.
💻 ASP
字号:
<html>
<head>
<% help_location = "inst_update_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
%>
</head>

<TD valign='top'><br>
<% 
   dim FoundComma
   dim NextComma
   dim oConn   ' Connection Object
   dim oRS     ' Record Set Object
   dim num_questions
   
   Set oConn=Server.CreateObject("ADODB.connection")
   set oRS=Server.CreateObject("ADODB.recordset")
   
   oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
  
'----------------------------------------------------------------------------------
'MODIFY QUESTIONS
'----------------------------------------------------------------------------------
   IF request("modify_questions") <> "" THEN
      response.write "<FORM METHOD='post' ACTION='inst_submit_updated_test.asp'><table>"
   
      ' set up question string and question counters
	  session("modified_mc_questions") = ""
	  session("modified_tf_questions") = ""
	  session("modified_mtf_questions") = ""
	  session("modified_match_questions") = ""
	  session("modified_comp_questions") = ""
	  session("modified_sa_questions") = ""
	  session("modified_essay_questions") = ""
	  session("mc_modify_count") = 0
	  session("tf_modify_count") = 0
	  session("mtf_modify_count") = 0
	  session("match_modify_count") = 0
	  session("comp_modify_count") = 0
	  session("sa_modify_count") = 0
	  session("essay_modify_count") = 0
	  
	  'check for update test instructions
	  IF left(request("modify_questions"), 1) = 0 THEN
	     session("instructions_updated") = TRUE
	     sqltext = "SELECT Test_Instructions FROM Test WHERE Test_Code=" & session("selected_test") & ""
		 oRS.Open sqltext, oConn
		 
		 Response.Write "<div id=secheader>Test Instructions</div>"
         Response.Write "<textarea cols='50' name='test_instructions'>" & oRS("Test_Instructions") & "</textarea><br>"
		 oRS.Close
	  ELSE
	     session("instructions_updated") = FALSE
      END IF
	  
	  FoundComma = instr(request("modify_questions"), ",")
	  
	  IF FoundComma Then
	     sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
		           " AND Question_Number=" & Left(request("modify_questions"), FoundComma - 1) & ""
         oRS.Open sqltext, oConn
      
%>
         <!-- #include file="inst_view_update_test.asp" -->
<%  
	     oRS.Close
      END IF
	        
	  DO WHILE FoundComma < len(request("modify_questions"))
         NextComma = instr(FoundComma + 1, request("modify_questions"), ",")
		 
		 IF NextComma THEN
		    sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
			          " AND Question_Number=" & Mid(request("modify_questions"), FoundComma + 1, NextComma - FoundComma - 1) & ""
            oRS.Open sqltext, oConn
%>
            <!-- #include file="inst_view_update_test.asp" -->
<%
			oRS.Close
		 ELSE
		    sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
			          " AND Question_Number=" & Right(request("modify_questions"), len(request("modify_questions")) - FoundComma) & ""
            oRS.Open sqltext, oConn
%>
            <!-- #include file="inst_view_update_test.asp" -->
<%
			oRS.Close
			EXIT DO
         END IF
		 FoundComma = NextComma
	  LOOP
   response.write "</table><br><input type='submit' value='Update Test'></FORM>"
   ELSE
      response.write "<div id=warning><img src='../images/warning.gif'>You must select a question to update!</div><br>"
	  response.write "<div id=warning><u>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>
⌨️ 快捷键说明

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