?? 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -