📄 exam_summary.asp
字号:
<%@ Language=VBScript %>
<% if Session("userid")="" then
Response.Redirect("exam_login.htm")
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<table>
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><strong style="font-weight: 400"><font size="4">答题详细清单</font></strong> </P></td></TD>
</tr>
</table>
<!-- #INCLUDE FILE = "connect_ama.asp" -->
<%
num=Session("Questions")
qq=Session("Counter")
anss=Session("Answers")
'if Session("examover")="0" then
'anss(qq-1)=Request.Form("answer")
'Session("Answers")=anss
'end if
'Session("examover")=1
total_q=10 'total questions take it from databse
correct_ans=0
incorrect_ans=0
notattempt_ans=0
%>
<br><br>
<table width=600 >
<tr align="Center"><th><font size="2">编号</font></th><th><font size="2">问题</font></th><th>
<font size="2">正确答案</font></th><th><font size="2">你的答案</font></th><th>
<font size="2">结果</font></th></tr>
<%
temp="bgcolor=LightGoldenrodYellow"
temp2=""
for i=1 to 10
temp2=tdyellow
tdyellow=temp
temp=temp2
set rs=myconn.Execute("select * from q_bank where q_id=" & num(i))
%>
<tr align="Center">
<td <% =tdyellow %>><FONT size=2>Q<%=i%>.</td>
<td align=left <% =tdyellow %>><FONT size=2><%=rs("question")%></td>
<td <% =tdyellow %>><FONT size=2>[<%=rs("answer")%>].<%=rs("opt"&rs("answer"))%></td>
<td <% =tdyellow %>><FONT size=2><%=anss(i)%></td>
<td <% =tdyellow %>><FONT size=2>
<%if anss(i)=rs("answer") then
correct_ans=correct_ans+1%>
Correct
<%else%>
Incorrect
<%end if%>
</td>
</tr>
<%Next%>
</table>
<P> </P>
<br>
<a href="exam_instructions.asp">开始新的考试....</a>
<table>
<tr><td style="WIDTH: 500px" width=500 bgColor=gold
><P align=right><FONT size=4><STRONG style="font-weight: 400">
你的分数： <%= (100*correct_ans)/10%>分</STRONG></FONT> </P></td></TD>
</tr>
</table>
</BODY>
</HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -