ksjl1.asp

在线考试系统

<!--#include file="conn.inc"-->
<%
set rs=createobject("adodb.recordset")
sql="select * from exam_score where userid='" & request("testid") & "' and testtime='"& request("D2") &"'"
rs.open sql,conn,3,2
if rs.eof then 
response.write "没有记录"
else
testnmr=rs("score")
%>
<style type="text/css">
<!--
.style1 {font-size: 12px}
.style3 {
	font-size: 14px;
	font-weight: bold;
	color: #990000;
}
-->
</style>

<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style3">&nbsp;您的总成绩：</span><%=testnmr%></p>
<%
end if 
%>
<%
set rs=createobject("adodb.recordset")
sql="select * from jlcx where userid='"& request("testid") &"' and starttime='"& request("D2") &"'" 
rs.open sql,conn,3,2
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#9933FF" width="100%" height="105">
  <tr>
    <td width="6%" height="16"><div align="center"><span class="style1">单选题</span></div></td>
    <td width="11%" height="16"><div align="center"><span class="style1">问题</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择1</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择2</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择3</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择4</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择5</span></div></td>
    <td width="12%" height="16"><div align="center"><span class="style1">选择6</span></div></td>
    <td width="6%" height="16"><div align="center"><span class="style1">你的答案</span></div></td>
  </tr>
<%
do while not rs.eof
if rs("type")="单选题" then
j=j+1
%>
  <tr>
    <td width="6%" height="16"><div align="center"><span class="style1"><%=j%></span></div></td>
    <td width="11%" height="16"><div align="center"><span class="style1"><%=rs("question")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text1")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text2")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text3")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text4")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text5")%></span></div></td>
    <td width="12%" height="16"><div align="center"><span class="style1"><%=rs("text6")%></span></div></td>
    <td width="6%" height="16"><div align="center"><span class="style1"><%=rs("answer")%></span></div></td>
  </tr>
 <%
 end if 
 rs.movenext
loop
rs.close
%>
 <tr>
    <td width="6%" height="16"><div align="center"><span class="style1">多选题</span></div></td>
    <td width="11%" height="16"><div align="center"><span class="style1">问题</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择1</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择2</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择3</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择4</span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1">选择5</span></div></td>
    <td width="12%" height="16"><div align="center"><span class="style1">选择6</span></div></td>
    <td width="6%" height="16"><div align="center"><span class="style1">你选择的答案</span></div></td>
  </tr>
<%
set rs=createobject("adodb.recordset")
sql="select * from jlcx where userid='"& request("testid") &"' and starttime='"& request("D2") &"'" 
rs.open sql,conn,3,2
do while not rs.eof
if rs("type")="多选题" then
k=k+1
%>
<tr>
    <td width="6%" height="16"><div align="center"><span class="style1"><%=k%></span></div></td>
    <td width="11%" height="16"><div align="center"><span class="style1"><%=rs("question")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text1")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text2")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text3")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text4")%></span></div></td>
    <td width="13%" height="16"><div align="center"><span class="style1"><%=rs("text5")%></span></div></td>
    <td width="12%" height="16"><div align="center"><span class="style1"><%=rs("text6")%></span></div></td>
    <td width="6%" height="16"><div align="center"><span class="style1"><%=rs("answer")%></span></div></td>
  </tr>
<%
end if 
  rs.movenext
  loop
  rs.close
  %>
   <tr>
    <td width="6%" height="20"><div align="center"><span class="style1">判断题</span></div></td>
    <td colspan="7" height="20"><div align="center"><span class="style1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 问题</span></div></td>
    <td width="6%" height="20"><div align="center"><span class="style1">你选择的答案</span></div></td>
  </tr>
<%  
set rs=createobject("adodb.recordset")
sql="select * from jlcx where userid='"& request("testid") &"' and starttime='"& request("D2") &"'" 
rs.open sql,conn,3,2  
  
  
  
do while not rs.eof
 if rs("type")="判断题" then
 l=l+1
%>
 <tr>
    <td width="6%" height="16"><div align="center"><span class="style1"><%=l%></span></div></td>
    <td height="16" colspan="7"><div align="center"><span class="style1"><%=rs("question")%></span></div></td>
    <td width="6%" height="16"><div align="center"><span class="style1"><%=rs("yn")%></span></div></td>
  </tr>
<%
end if 
  rs.movenext
  loop
 rs.close
 %> 
  
  
  
</table>