现在正在弄一个考试系统,想添加一个显示对错率的功能
这是结果页result.asp的一部分代码
 <%
dim wyrs,wysql
dxfs=session("dxfs")
kemu=session("kemu")
dxzf=0
i=0
set wyrs=server.CreateObject("adodb.recordset")
wysql="select * from "&session("mdb")&" where kemu='"&kemu&"'
wyrs.open wysql,conn,1,1
do while not wyrs.eof
i=i+1
response.write "<br>"&(i)&"."&wyrs("question")&"<br>&nbsp&nbsp&nbspA."&wyrs("a")&"&nbsp&nbsp&nbspB."&wyrs("b")&"&nbsp&nbsp&nbspC."&wyrs("c")&"&nbsp&nbsp&nbspD."&wyrs("d") 
if request.Form(i)=wyrs("answer") then
fncolor="#0000FF"
response.write "<font color="&fncolor&"><br>（判题：√正确答案："&wyrs("answer")&";提交答案："&Request.Form(i)&"; ）<br></font>"  
dxzf=dxzf+dxfs
else
fncolor="#ff0000"
response.write "<font color="&fncolor&"><br>（判题：╳正确答案："&wyrs("answer")&";提交答案："&Request.Form(i)&"; ）<br></font>"  
end if
wyrs.movenext
loop
意思就是从所选的"&session("mdb")题库里提出问题,答案等数据显示,并根据从test.asp所选的选项判断对错..可是该怎么写代码才能有对错率功能呢,
我是想这样搞:添加;变量1  没错一次加一 变量2  作一次加一 正确率为变量1除变量2
可是怎么将这个数据添加到"&session("mdb")题库里
因为此题库已经打开
如果我要修改更新就要用wyrs.open wysql,conn,1,3
打开页面时就会显示: 对象打开时，不允许操作。
请问如何解决?如果有人能给我点例子参考就更好了