?? 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 + -