问题如题：
解决方法

打开
  mnkc/exam/finish.asp

找到
if request("action")="finish" then
   ass=request("ass")
   cjb=request("cjb")
   set rsl=server.CreateObject("adodb.recordset")
   rsl.open "select id from ks_sjtk where kid=" & id & " and did=0 and tmtype=1 order by id",conn,1,1
   do while not rsl.eof

score=0

set rss=conn.execute("select id from ks_sjtk where kid=" & id & " and did=" & rsl("id"))

do while not rss.eof

score=score+KS.ChkCLng(request("score" & rss("id")))

rss.movenext

loop

     rss.close
         totalscore=totalscore+score

cjb=replace(cjb,"{$score" & rsl("id") &"}",score)
     rsl.movenext
   loop
   rsl.close:set rsl=nothing
   'cjb=request("cjb") & "<div>主观题:<font color='#ff6600'>" & score & "</font>分</div>"
else



请将上面红色的代码改为


   ass=request("ass")
   cjb=request("cjb")

score=0

set rss=conn.execute("select id from ks_sjtk where kid=" & id & " and  tmtype=1")

do while not rss.eof

score=score+KS.ChkCLng(request("score" & rss("id")))

rss.movenext

loop

     rss.close
         totalscore=totalscore+score
  cjb=request("cjb") & "<div>主观题:<font color='#ff6600'>" & score & "</font>分</div>"