📄 staticmakepaper4.asp

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

<head>
<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>
<%
dim examid,examname,subject,maketype,totalper
dim singlecount,singleper,singlelist,multicount,multiper,multilist,judgecount,judgeper,judgelist
dim examtime,starttime,endtime,setuserid,userid,i,j,settime,passuserid
examid=request.form("examid")
examname=request.form("examname")
subject=request.form("subject")
maketype=request.form("maketype")
totalper=request.form("totalper")
singlecount=request.form("singlecount")
singleper=request.form("singleper")
if singlecount="" then
  singlecount=0
  singleper=0
else
  singlelist=request.form("singlelist")
end if
multicount=request.form("multicount")
multiper=request.form("multiper")
if multicount="" then
  multicount=0
  multiper=0
else
  multilist=request.form("multilist")
end if
judgecount=request.form("judgecount")
judgeper=request.form("judgeper")
if judgecount="" then
  judgecount=0
  judgeper=0
else
  judgelist=request.form("judgelist")
end if
examtime=request.form("examtime")
starttime=request.form("starttime")
endtime=request.form("endtime")
setuserid=request.form("setuserid")
settime=date()
passuserid=request.form("passuserid")
sql="select * from exam_test where examid='"&examid&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
  rs.addnew
  rs("examid")=examid
  rs("examname")=examname
  rs("subject")=subject
  rs("maketype")=maketype
  rs("totalper")=totalper
  rs("singlecount")=singlecount
  rs("singleper")=singleper
  rs("singlelist")=singlelist
  rs("multicount")=multicount
  rs("multiper")=multiper
  rs("multilist")=multilist
  rs("judgecount")=judgecount
  rs("judgeper")=judgeper
  rs("judgelist")=judgelist
  rs("examtime")=examtime
  rs("starttime")=starttime
  rs("endtime")=endtime
  rs("setuserid")=setuserid
  rs("settime")=settime
  rs("passuserid")=passuserid
  rs.update
  rs.close
  '保存应考人员到exam_testuser数据表
  userid=split(request("userid"),",")
  i=ubound(userid)
  for j=0 to i
    sql="select * from exam_testuser"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,3,2
    rs.addnew
    rs("examid")=examid
    rs("userid")=userid(j)
    rs("havetest")=0
    rs.update
    rs.close
  next
  '保存审核信息到waitforpass数据表
  sql="select * from waitforpass"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("objid")=examid
  rs("objname")="考试计划"
  rs("postuserid")=setuserid
  rs("postusername")=request.cookies("myusername")
  rs("postdepartment")=request.cookies("mydepartment")
  rs("posttime")=date()
  rs("passuserid")=passuserid
  rs("havepass")=0
  rs.update
  rs.close
  set rs=nothing
  set conn=nothing
%>
<div align="center">
  <center>
  <table cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="480" id="AutoNumber2" cellpadding="0" border="1" class="withborder">
    <tr>
      <td width="100%" height="25" class="border">&nbsp;操作成功</td>
    </tr>
    <tr>
      <td width="100%" height="160" bgcolor="#EFEFEF" style="height: 160">
      <p align="center">祝贺您，已经成功生成试卷！按下返回按钮返回系统首页！</p>
      <p align="center">(<font color="#ff0000">注意：生成的试卷需要审批后才能生效</font>)</td>
    </tr>
    <tr>
      <td width="100%" height="25" bgcolor="#6699CC" class="border" bordercolor="#000000" style="height: 25">
      <p align="center">
      <input type="button" value=" 返 回 " name="B3" class="s02" onclick="window.location='news.asp'"></td>
    </tr>
  </table>
  </center>
</div>

<%
else
  rs.close
  set rs=nothing
  set conn=nothing
%>
<div align="center">
  <center>
  <table cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="480" id="AutoNumber2" cellpadding="0" border="1" class="withborder">
    <tr>
      <td width="100%" height="25" class="border">&nbsp;错误提示</td>
    </tr>
    <tr>
      <td width="100%" height="160" bgcolor="#EFEFEF" style="height: 160">
      <p align="center">数据已经保存，请勿刷新！</p>
      <p align="center">(<font color="#ff0000">注意：生成的试卷需要审批后才能生效</font>)</td>
    </tr>
    <tr>
      <td width="100%" height="25" bgcolor="#6699CC" class="border" bordercolor="#000000" style="height: 25">
      <p align="center">
      <input type="button" value=" 返 回 " name="B3" class="s02" onclick="window.location='news.asp'"></td>
    </tr>
  </table>
  </center>
</div>
<%
end if
%>

</body>

</html>
⌨️ 快捷键说明

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