求助:错误类型:(0x80020009)发生意外!
错误类型:(0x80020009)
发生意外。
/1/listScore.asp, 第 140 行
trySql="select * from "&Session("tryT")&" where TRY_TYPE='3'"
rsT.open trySql,Conn
'多选TRY_SUBJECT做对数目
DdxRightNum=0
'多选总分
DdxSum=0
DdxNum=Session("Ddx_Num")
for i=1 to DdxNum
'学生TRY_KEY
DdxStuTT=request.form("DxCb"&i)
DdxStuT=replace(replace(DdxStuTT,",","")," ","")
'试卷TRY_KEY
DdxRsTT=trim(RsT("TRY_KEY"))
'本单选题TRY_CENT
DdxRsCentT=(RsT("TRY_CENT"))
select case DdxStuT
case DdxRsTT
DdxRightNum=DdxRightNum+1
DdxSum=DdxSum+DdxRsCentT
end select
rsT.movenext
next
rsT.close
TrySum=PdSum+DxSum+DdxSum
加颜色的的是第140行,请给指点下!!谢谢!~
[此贴子已经被作者于2007-5-6 20:56:03编辑过]