📄 examend.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=trim(request.querystring("ename"))
eid=trim(request.querystring("eid"))
'检查是否重复提交
set rs=server.createobject("adodb.recordset")
sql="select * from examstop where ename='"&ename&"' and eid='"&eid&"' and id='"&id&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<script>
window.alert("你的已经答案已经提交了！")
history.go(-1)
</script>
<%
end if
rs.close
set rs=nothing
dim qidarray(1000) '定义存放题目id的数组
df=0
hg=0
cont=0
'以下循环判断答题情况
'取出题目
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
do while not rs.EOF
key="t"&rs("qid") '取题目号id在form中对应的选择框名字
'判断答题正确性
if trim(rs("rightkey"))=request.form(trim(key)) then
df=df+1 '答对题数
hg=hg+1
yesorno="yes"
else
yesorno="no"
end if
qidarray(cont)=trim(key)&trim(yesorno) '记录题号与答题正确到数组中
cont=cont+1
rs.MoveNext
loop
rs.close
set rs=nothing
cont=cont-1 '题目数
'记录考生答题情况
For i = 0 to cont
qid=mid(trim(qidarray(i)),2,10) '取数组值得第2位开始的10
answer=mid(trim(qidarray(i)),12,3) '取数组值得第12位开始的3
set rs=server.createobject("adodb.recordset")
sql="select * from studkey"
rs.open sql,conn,1,3
'记录
rs.addnew
rs("qid")=trim(qid)
rs("id")=id
rs("ename")=ename
rs("eid")=eid
rs("yesorno")=trim(answer)
rs.update
rs.close
set rs=nothing
next
'计算分数
if i > 0 then
s=hg/i*100
end if
score=cint(s)
if score>59 then '是否通过
pass="yes"
else
pass="no"
end if
'保存考试结果
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
'rs.addnew
'rs("ename")=ename
'rs("eid")=eid
'rs("id")=id
rs("addtime")=date()
rs("score")=score
rs("pass")=pass
rs("rcont")=hg
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<title>网上考试系统 - 考试结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="..css/style.css" type="text/css">
<p align="center"><font color="#FF0000">成功提交试卷！您的答对<%=trim(df)%>题，一共<%=i%>题。分数为：<%=score%></font></p>
</head>
<body bgcolor="#EEEEEE">
<p align="center"><a href="queselect.asp">[返回]</a></p>
<p align="center"><a href="javascript:window.close()">关闭窗口</a></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -