〈form method=“POST" action=“result.asp"〉
〈％
i=1
rs.movefirst
do while not(rs.eof)％〉
〈％=i％〉
〈％=rs(“question")％〉
〈br〉〈hr〉
〈table border=“O" width=“100%"〉
〈tr〉
〈td width=”50%"〉〈input type=radio name=ans〈%=i%〉value=”a"〉A〈%=rs(“a")%〉〈/td〉
〈td width=“50%"〉〈input type=radio name=ans〈%=i%〉value=”b"〉B〈%=rs(“b")%〉〈/td〉
〈/tr〉
〈tr〉
〈td width=”50%”〉〈input type=radio name=ans〈%=i%〉 value=”c”〉C〈%=rs(“c”)%〈/td〉
〈td width=”50%"〉〈input type=radio name=ans〈%=i%〉value=”d"〉D〈%=rs(“d")%〉〈/td〉
〈/tr〉
〈/table〉
〈%
i=i+1
rs.movenext
loop
％〉
〈input type=”submit" name=”submit1" value=”交卷"〉
〈input type=”reset" name=”reset1" value=“重做"〉
〈/form〉
〈/body〉
〈/html〉
评分源代码 result.asp 如下：
〈％@ language=vbscript％〉
〈%
set rs=server.createobject(“adodb.recorbset”)
set conn=server.createobje
ct(“adodb.connection")
connser=”excise"
conn.open connstr
sql=”select ans from test"
set rs=conn.execute(sql)
correct=0
count=0
do while not rs.eof
count=count+1
if request.form(count)=rs(“ans") then
correct=correct+1
end if
rs.movenext
loop
scores=correct/count*100
response.write“你的成绩是："&scores
sql=”update user set score=”&scores& where user='”&session(“user")&"'"
conn.execute(sql)
％〉
百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典计算机如何设计与实现当前网上考试系统(3)在线全文阅读。
