stry_result.asp

完全内核

<!-- #INCLUDE FILE="conn.asp" --><title>25175.com</title>
<table width="250" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>
      <div align="center"><a href="index.asp">返回</a></div>
    </td>
  </tr>
  <tr>
<td>
<%
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 align="center">    </div>    </td></tr>
</table>