📄 webcreatepaper2.asp

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

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.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">
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>

<body bgcolor="#FFFFFF">

<%
dim examid
dim subject
dim examname
dim totalper
dim singlecount
dim multicount
dim judgecount
dim singleper
dim multiper
dim judgeper
dim examtime
dim starttime
dim endtime
dim setuserid
dim setusername
dim settime
examid="WEBEXAM"&year(date())&month(date())&day(date())&hour(time())&minute(time())&second(time())
subject=request("subject")
examname=request("examname")
totalper=request("totalper")
singlecount=request("singlecount")
multicount=request("multicount")
judgecount=request("judgecount")
singleper=request("singleper")
multiper=request("multiper")
judgeper=request("judgeper")
if singlecount="" or singleper="" then
  singlecount=0
  singleper=0
end if
if multicount="" or multiper="" then
  multicount=0
  multiper=0
end if
if judgecount="" or judgeper="" then
  judgecount=0
  judgeper=0
end if
examtime=request("examtime")
starttime=request("starttime")
endtime=request("endtime")
setuserid=request.cookies("myuserid")
setusername=request.cookies("myusername")
settime=date()&" "&time()

sql="select * from exam_test_web"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("examid")=examid
rs("subject")=subject
rs("examname")=examname
rs("totalper")=totalper
rs("singlecount")=singlecount
rs("singleper")=singleper
rs("multicount")=multicount
rs("multiper")=multiper
rs("judgecount")=judgecount
rs("judgeper")=judgeper
rs("examtime")=examtime
rs("starttime")=starttime
rs("endtime")=endtime
rs("setuserid")=setuserid
rs("setusername")=setusername
rs("settime")=settime
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
<p>　</p>
<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">祝贺您，已经成功生成试卷！按下返回按钮返回系统首页！</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>

</body>

</html>
⌨️ 快捷键说明

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