dopigai.asp

在线考试系统源码实现远程判卷

<!--#include file="../inc/open.asp" -->
<%if session("zzteacher")=true then
      table_name=request.querystring("table_name")
	  str="select * from "&table_name&""
	  set rs=conn.execute(str)
	  do while not rs.eof
	        record=rs("id")
			total_da_ok=rs("正确答案")
            total_st=len(total_da_ok)
			total_da=rs("答案")
			pigai_st=1
			dds=0
			dcs=0
			do while pigai_st<=total_st
			   da_ok=mid(total_da_ok,pigai_st,1)
			   da=mid(total_da,pigai_st,1)
			   if da=da_ok then
			      dds=dds+1
			   else
			      dcs=dcs+1
			   end if
			   pigai_st=pigai_st+1
			loop
			all_fen=int(dds*rs("每题分值"))
			str="update "&table_name&" set 答对数="&dds&",答错数="&dcs&",总得分="&all_fen&" where id="&record&""
			conn.execute(str)
        rs.movenext
		loop
		str="update test_gl set 批改='1' where 数据表名='"&table_name&"'"
		conn.execute(str)
      conn.close
	  response.redirect("test_pigai.asp")
  else
      conn.close
      response.redirect("../index.asp")
  end if%>