jieguo.asp

1.本考试系统没有任何商业利益,请大家放心使用 2.本人进行了一些修改和界面美化 3.本考试系统考试题题型均为单选题,

<!--#include file="include\conn.asp"-->
<%
if session("user")<>"" then
user=session("user")
set rs2=server.CreateObject("adodb.recordset")
sql="select * from test"
rs2.open sql,conn,1,1
set rs3=server.createobject("adodb.recordset")
sql="select * from userlogin where user='"&user&"'"
rs3.open sql,conn,1,3
%>
<%
'开始统计答对的题数
rez=0
tishu=0
do while not rs2.eof
dim rez,tishu

rez=rez+1

if request.Form(rez)=rs2("ans")  then

tishu=tishu+1
end if

rs2.movenext
loop

%>

<%
dim endtime
endtime=now()
%>
<%
dim qq
qq=rs2.recordcount
'response.Write "您共答对了"&tishu&"道题"&"<br>"
fenshu=int(tishu/qq*100)
'response.write "您的考试成绩为:"&fenshu&"分"
rs3("score")=fenshu
rs3("endtime")=endtime
rs3.update
'rs3.close
end if
%>
<%session("user")=""%>

<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {
	color: #000066;
	font-size: 12px;
}
.style3 {font-size: 14px}
-->
</style>
<title>网上在线考试系统</title><p>&nbsp;</p>
<table width="400" height="497" border="0" align="center" background="Images/score.jpg">
  <tr>
    <td width="54">&nbsp;</td>
    <td width="55">&nbsp;</td>
    <td width="151">&nbsp;</td>
    <td width="40">&nbsp;</td>
    <td width="78">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="17">&nbsp;</td>
    <td colspan="3" align="center"><font size="4" color="#ff00ff">网上考试系统成绩单</font></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="20">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="16">&nbsp;</td>
    <td><span class="style1">考生姓名:</span></td>
    <td><span class="style1">
      <% =user%>
    &nbsp;</span></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="19">&nbsp;</td>
    <td><span class="style1">正确题数:</span></td>
    <td><span class="style2">
      <% =tishu&"道题"%>
    &nbsp;</span></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="18">&nbsp;</td>
    <td><span class="style1">答错题数:</span></td>
    <td><span class="style1">
      <% =qq-tishu&"道题"%>
    &nbsp;</span></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="20">&nbsp;</td>
    <td><span class="style1">考试分数:</span></td>
    <td><span class="style1">
      <% =fenshu&"分"%>
    &nbsp;</span></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="17">&nbsp;</td>
    <td><span class="style1">考试结果:</span></td>
    <td><span class="style3">
      <span class="style1">
      <%  
if fenshu<60 then
response.write "不及格"
end if
if fenshu>60 and fenshu<80 then
response.write "及格"
end if
if fenshu>80 then
response.write "良好"
end if
%>
    </span>    &nbsp;</span></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="111">&nbsp;</td>
    <td>&nbsp;</td>
    <td colspan="2"><div align="justify">
    &nbsp;</div></td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="102">&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td colspan="4"><div align="right"></div></td>
  </tr>
</table>