📄 inst_delete_test_questions.asp
字号:
<html>
<head>
<% help_location = "inst_delete_test_questions" %>
<!-- Author: Brad Pierce -->
<title>Teacher Delete Test Questions</title>
</head>
<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>Delete 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
IF Session("deleted") = TRUE OR Session("test_deleted") = TRUE THEN
response.write "<td valign='top'><br>"
Response.Write "<p><div id=warning><img src='../images/warning.gif'> You cannot resubmit the deleted test or question(s).</div><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>"
%>
</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>
<%
dim FoundSpace
dim NextSpace
dim delete_question_num()
dim question_count
dim oConn ' Connection Object
dim oRS ' Record Set Object
Set oConn=Server.CreateObject("ADODB.connection")
Set oRS=Server.CreateObject("ADODB.recordset")
oConn.Open "DSN=sd2db; UserID=Admin; pwd=netest"
'------------------
'DELETE ENTIRE TEST
'------------------
IF session("delete_test") = TRUE THEN
' print test name
sqltext = "SELECT Test_Name FROM Test WHERE Test_Code=" & session("selected_test") & ""
oRS.Open sqltext, oConn
' print course and test name
Response.Write "<h3>" & session("course")
IF session("section") <> "" THEN
Response.Write "-" & session("section") & " "
ELSE
Response.Write " "
END IF
Response.Write session("course_name") & "<br>" & oRS("Test_Name") & "</h3>"
oRS.Close
' delete test
sqltext = "DELETE * FROM Test WHERE Test_Code=" & session("selected_test") & ""
oRS.Open sqltext, oConn
Response.Write "<br><div id=secheader>Test has been deleted</div>"
%>
<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>View or modify other tests?</b></font></td><td><a href="inst_view_modify_test.asp">Add, Edit, or Delete Questions</a></td></tr></table>
</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>
<%
session("test_deleted") = TRUE
Response.End
END IF
'---------------------
'DELETE TEST QUESTIONS
'---------------------
' format delete questions so they can be captured into a single-list array
session("delete_questions") = replace(session("delete_questions"), ", ", " ") & " "
' dynamic array with number of deletions to create
redim delete_question_num(session("delete_count"))
FoundSpace = instr(session("delete_questions"), " ")
delete_question_num(1) = Left(session("delete_questions"), FoundSpace - 1)
FOR x=2 TO session("delete_count")
NextSpace = instr(FoundSpace + 1, session("delete_questions"), " ")
delete_question_num(x) = Mid(session("delete_questions"), FoundSpace + 1, NextSpace - FoundSpace - 1)
FoundSpace = NextSpace
NEXT
' delete the selected questions
FOR x=1 to session("delete_count")
sqltext = "DELETE * FROM Question WHERE Test_Code=" & session("selected_test") & " AND Question_Number=" & delete_question_num(x) & ""
oRS.Open sqltext, oConn
NEXT
' get the new number of questions in the test
sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & ""
oRS.Open sqltext, oConn, 3
question_count = oRS.RecordCount
oRS.Close
' renumber the test
sqltext = "SELECT Question_Number FROM Question WHERE Test_Code=" & session("selected_test") & " ORDER BY Question_Number "
oRS.Open sqltext, oConn, 2, 2
IF question_count THEN
oRS.MoveFirst
END IF
FOR y=1 TO question_count
oRS.Fields("Question_Number") = y
oRS.Update
oRS.MoveNext
NEXT
oRS.Close
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>
<%
session("deleted") = TRUE
oRS.Close
%>
</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 + -