📄 inst_view_delete_questions.asp
字号:
<html>
<head>
<% help_location = "inst_view_delete_questions" %>
<!-- Author: Brad Pierce -->
<title>Teacher Delete 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>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
%>
</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"
'----------------------------------------------------------------------------------
'DELETE QUESTIONS
'----------------------------------------------------------------------------------
IF request("delete_questions") <> "" THEN
response.write "<FORM METHOD='post' ACTION='inst_delete_test_questions.asp'>"
' capture number of deletions to make and the actual question numbers
session("delete_count") = 0
session("delete_questions") = request("delete_questions")
' check for delete entire test
IF left(request("delete_questions"), 1) = 0 THEN
session("delete_test") = TRUE
Response.Write "<div id=warning><img src='../images/warning.gif'> Deleting the test will also delete all student grades for the test.</div>"
response.write "<br><input type='submit' value='Delete Test'></FORM>"
%>
</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>
<%
Response.End
ELSE
session("delete_test") = FALSE
END IF
FoundComma = instr(request("delete_questions"), ",")
session("multi_visit") = FALSE
IF FoundComma Then
sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
" AND Question_Number=" & Left(request("delete_questions"), FoundComma - 1) & ""
oRS.Open sqltext, oConn
session("print_header") = FALSE
%>
<!-- #include file="inst_view_test.asp" -->
<%
session("delete_count") = session("delete_count") + 1
oRS.Close
ELSE 'user only wants to delete 1 question
sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
" AND Question_Number=" & trim(request("delete_questions")) & ""
oRS.Open sqltext, oConn
session("print_header") = FALSE
%>
<!-- #include file="inst_view_test.asp" -->
<%
session("delete_count") = session("delete_count") + 1
oRS.Close
' make program skip over do while loop
FoundComma = len(request("delete_questions"))
END IF
DO WHILE FoundComma < len(request("delete_questions"))
NextComma = instr(FoundComma + 1, request("delete_questions"), ",")
IF NextComma THEN
sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
" AND Question_Number=" & Mid(request("delete_questions"), FoundComma + 1, NextComma - FoundComma - 1) & ""
oRS.Open sqltext, oConn
session("multi_visit") = TRUE
session("print_header") = FALSE
%>
<!-- #include file="inst_view_test.asp" -->
<%
session("delete_count") = session("delete_count") + 1
oRS.Close
ELSE
sqltext = "SELECT * FROM Question WHERE Test_Code=" & session("selected_test") & _
" AND Question_Number=" & Right(request("delete_questions"), len(request("delete_questions")) - FoundComma) & ""
oRS.Open sqltext, oConn
session("multi_visit") = TRUE
session("print_header") = FALSE
%>
<!-- #include file="inst_view_test.asp" -->
<%
session("delete_count") = session("delete_count") + 1
oRS.Close
EXIT DO
END IF
FoundComma = NextComma
LOOP
response.write "</table><br><input type='submit' value='Delete Question(s)'></FORM>"
ELSE
response.write "<div id=warning><img src='../images/warning.gif'>You must select a question to delete!</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 + -