📄 examstart.asp
字号:
<!-- #include file="cookies.asp" -->
<!-- #include file="conn/conn.asp" -->
<script language="Javascript">
function document.oncontextmenu(){event.returnValue=false;}//屏蔽鼠标右键
function document.onkeydown()
{
if ((window.event.altKey)&&
((window.event.keyCode==37)|| //屏蔽 Alt+ 方向键 ←
(window.event.keyCode==39))) //屏蔽 Alt+ 方向键 →
{
event.returnValue=false;
}
if ((event.keyCode==8) || //屏蔽退格删除键
(event.keyCode==116)|| //屏蔽 F5 刷新键
(event.ctrlKey && event.keyCode==82)){ //Ctrl + R
event.keyCode=0;
event.returnValue=false;
}
}
</script>
<%
'取用户名
id=request.cookies("username")
set rs=server.createobject("adodb.recordset")
sql="select * from student where id='"&trim(id)&"'"
rs.open sql,conn,1,1
sname=trim(rs("name"))
rs.close
set rs=nothing
ename=request("ename") '课程名
eid=request("eid") '试卷编号
text=request("text") '试卷名称
endtime=dateadd("n",120,now()) '计算结束时间
etime=hour(endtime)&":"&minute(endtime)
%>
<html>
<head>
<title>红豆在线考试系统 - 开始考试</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="..css/style.css" type="text/css">
<style type="text/css">
<!--
body {
background-color: #0099FF;
}
-->
</style></head>
<body>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from examstop where ename='"&ename&"' and eid='"&eid&"' and id='"&id&"'"
rs.open sql,conn,1,3
if not rs.eof then
%>
<script>
window.alert("你已经参加过本次考试！")
window.close()
</script>
<%
else
rs.addnew
rs("ename")=ename
rs("eid")=eid
rs("id")=id
rs("addtime")=date()
rs.update
end if
rs.close
set rs=nothing
%>
<p><h1 align="center"><font color="#0033FF"><%=text%></font></h1></p>
<p align="center"><font color="#FF0000">考试时间为2小时，结束时间为<%=etime%><b></b></font></p>
<p align="center"><font color="#FF0000">未提交考卷时请不要关闭窗口,否则将以0分记</b></font></p>
<form name=forms>
<center>
<div align=right><span class="unnamed1">考试时间：
<input type=text name=input1 size=12>
<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((min>0)&&(flag==0))
{flag=1;}
document.forms.input1.value=hou+"时"+min+"分"+sec+"秒";
idt=window.setTimeout("update();",1000);
}
//-->
</script>
</span></div>
</center>
<hr>
</form>
<form name="form1" method="post" action="examend.asp?ename=<%=trim(ename)%>&eid=<%=trim(eid)%>">
<% '取对应的题目
set rs=server.createobject("adodb.recordset")
sql="select * from question where qid in ( select qid from ex_que where ename='"&ename&"' and eid='"&eid&"')"
rs.open sql,conn,1,1
cont=0
do while not rs.EOF
'以下动态显示题目
cont=cont+1
%>
<table align="center" width="80%" border="1" style="font-size:14px ">
<tr>
<td colspan="2"><b><%=trim(cont)%>. <%=trim(rs("qname"))%>（<%if trim(rs("qtype"))=1 then
response.write "单选题"
elseif trim(rs("qtype"))=2 then
response.write "多选题"
elseif trim(rs("qtype"))=3 then
response.write "判断题"
end if%>）</b></td>
</tr>
<tr>
<td width="8%">选择项： </td>
<td>
<table width="100%" border="0">
<tr>
<td valign="top" width="50%">
<%if trim(rs("key1"))<>"" then%>
<%if trim(rs("qtype"))=1 then%>
<input type="radio" name="t<%=trim(rs("qid"))%>" value="A">
<%else%>
<input type="checkbox" name="t<%=trim(rs("qid"))%>" value="A">
<%end if%>
A. <%=trim(rs("key1"))%> <br>
<%end if%>
</td>
<td width="50%">
<%if trim(rs("key2"))<>"" then%>
<%if trim(rs("qtype"))=1 then%>
<input type="radio" name="t<%=trim(rs("qid"))%>" value="B">
<%else%>
<input type="checkbox" name="t<%=trim(rs("qid"))%>" value="B">
<%end if%>
B. <%=trim(rs("key2"))%> <br>
<%end if%>
</td>
</tr>
<tr>
<td width="50%">
<%if trim(rs("key3"))<>"" then%>
<%if trim(rs("qtype"))=1 then%>
<input type="radio" name="t<%=trim(rs("qid"))%>" value="C">
<%else%>
<input type="checkbox" name="t<%=trim(rs("qid"))%>" value="C">
<%end if%>
C. <%=trim(rs("key3"))%> <br>
<%end if%>
</td>
<td width="50%">
<%if trim(rs("key4"))<>"" then%>
<%if trim(rs("qtype"))=1 then%>
<input type="radio" name="t<%=trim(rs("qid"))%>" value="D">
<%else%>
<input type="checkbox" name="t<%=trim(rs("qid"))%>" value="D">
<%end if%>
D. <%=trim(rs("key4"))%> <br>
<%end if%>
</td>
</tr>
<tr>
<td width="50%">
<%if trim(rs("key5"))<>"" then%>
<%if trim(rs("qtype"))=1 then%>
<input type="radio" name="t<%=trim(rs("qid"))%>" value="E">
<%else%>
<input type="checkbox" name="t<%=trim(rs("qid"))%>" value="E">
<%end if%>
E. <%=trim(rs("key5"))%> <br>
<%end if%>
</td>
<td width="50%">
<%if trim(rs("key6"))<>"" then%>
<%if trim(rs("qtype"))=1 then%>
<input type="radio" name="t<%=trim(rs("qid"))%>" value="F">
<%else%>
<input type="checkbox" name="t<%=trim(rs("qid"))%>" value="F">
<%end if%>
F. <%=trim(rs("key6"))%> <br>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.MoveNext
loop
rs.close
set rs=nothing
%>
<p align="center">
<input type="submit" value="提交" name="ok">
<input type="reset" value="重写" name="cancel">
</p>
</form>
<script language="JavaScript1.2">
setTimeout("document.form1.submit()",1000*7200);/*提交时间7200秒=120分钟*/
</script>
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -