stry_result.asp

在线考试系统能更便利的使你考试得到便利

<!-- #INCLUDE FILE="conn.asp" --><title>www.25175.com 在线考试系统v1.61</title>
<link href="25175_1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	margin-top: 0px;
}
-->
</style><table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="754" valign="top" bgcolor="#A0A4AC" style="line-height:140%;"> 网站名称：<font color="#0000FF"><a href="http://www.25175.com">SP.25175</a></font><br>
      网站LOGO：<a href="http://www.25175.com/logo1.GIF">http://www.25175.com/logo1.GIF</a><br>
      演示地址：<font color="#0000FF"><a href="http://www.25175.com/asp/test_20050825_v161/">http://www.25175.com/asp/test_20050825_v161/</a><br>
      </font>下载地址：<font color="#0000FF"><a href="http://www.25175.com/asp/test_20050825_v161/test_20050825_v161.rar">http://www.25175.com/asp/test_20050825_v161/test_20050825_v161.rar</a><br>
    </font> 在线聊天：<a href="http://wpa.qq.com/msgrd?V=1&Uin=29752345&Site=www.25175.com&Menu=yes">29752345</a></td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1"><div align="center"></div></td>
  </tr>
</table>
<table width="768" height="50" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr> 
    <td height="25" bgcolor="#A0A4AC">
      <div align="center"><a href="index.asp">返回</a></div></td>
  </tr>
  <tr>
<td height="50" bgcolor="#A0A4AC">
  <div align="center">
<%
sql="select *from test"
rs.open sql,conn,3,3
dim score
rsCount=0
ycorrect=0
'给出正确答案并评分
Response.Write "正确答案："
Do while not rs.eof
Response.Write rs("ans")
rsCount=rsCount + 1
	if Request.Form(rsCount)=rs("ans") then
	ycorrect=ycorrect + 1
	end if
rs.movenext
loop
Response.Write "<br> 你的答案："
score=int(ycorrect/rscount*100)
for i=1 to Request.Form.Count - 1
Response.Write Request.Form(i)
next
Response.Write "<br> "
Response.Write "你的成绩："&score 
if score <= 60 then Response.Write "你不及格！"&"<br>"
if score >= 60 and score <= 80 then Response.Write "及格"&"<br>"
if score >= 80 and score <= 100 then Response.Write "优秀！"
%>
    </div></td></tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="1"><div align="center"></div></td>
  </tr>
</table>
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20" bgcolor="#A0A4AC"><div align="center" class="style1">
        <div align="center"><a href="http://www.25175.com">powered by 25175</a></div>
    </div></td>
  </tr>
</table>