📄 passdatabase_save.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../Default.css">
</head>

<body bgcolor="#FFFFFF">

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" cellpadding="0">
  <tr>
    <td width="100%">当前位置：题库管理 &gt; <a href="passdatabase.asp">审核试题</a> &gt;
    <font color="#FF0000">完成审核</font></td>
  </tr>
</table>
<%
dim i,j,id
if request.form("yesorno")="同意" then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
  <tr>
    <td class="border_blue">&nbsp;审核结果</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 200%">
    <% id=request("id")
    id=split(id,",")
    i=ubound(id)
    for j=0 to i
      sql="select * from exam_database where id='"&trim(id(j))&"'"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      if not rs.eof then
        rs("passuserid")=request.cookies("myuserid")
        rs("passtime")=date()&" "&time()
        rs("havepass")=1
        rs.update
        response.write "&nbsp;试题："&rs("id")&" 已经通过审核！审核意见：同意<br>"
      end if
      rs.close
    next %> 　</td>
  </tr>
</table>
<%
end if
if request.form("yesorno")="不同意" then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
  <tr>
    <td class="border_blue">&nbsp;审核结果</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 200%">
    <% id=request("id")
    id=split(id,",")
    i=ubound(id)
    for j=0 to i
      sql="select * from exam_database where id='"&trim(id(j))&"'"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      if not rs.eof then
        rs("passuserid")=request.cookies("myuserid")
        rs("passtime")=date()&" "&time()
        rs("havepass")=2
        rs.update
        response.write "&nbsp;试题："&rs("id")&" 已经通过审核！审核意见：不同意<br>"
      end if
      rs.close
    next %> 　</td>
  </tr>
</table>
<%
end if
%>
<p align="center">
<input type="button" value="返 回" name="B3" class="s02" onclick="window.location='passdatabase.asp'"></p>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -