⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 stry_result.asp

📁 在线考试系统能更便利的使你考试得到便利
💻 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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -