<%option explicit%>
<%
Response.expires=-1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim rsSaveAnswer,strSqlSaveAnswer,intAnswer,strAction,intID	'考生答案,動作(主要用于多選題,決定是選中還是取消),試題ID

intAnswer = CLng(trim(request.querystring("answer")))
strAction = request.querystring("action")
intID = request.querystring("id")
set rsSaveAnswer = server.createobject("ADODB.Recordset")
strSqlSaveAnswer = "select P_P.*,P_S.state,P_S.starttime,P.limittime from prj_process P_P,prj_student P_S,project P where P_P.studentid=P_S.studentid and P_P.prjid=P_S.prjid and P_S.prjid=P.prjid and P_P.id=" & intID
rsSaveAnswer.open strSqlSaveAnswer,G_CONN,1,3
if rsSaveAnswer("state") = 2 and DateDiff("n",rsSaveAnswer("starttime"),now()) < rsSaveAnswer("limittime") then	'驗(yàn)證此答案是否在有效的時間內(nèi)提交的.
	if intAnswer = 0 or intAnswer = 1 or intAnswer = 2 or intAnswer = 4 or intAnswer = 8 or intAnswer = 16 or intAnswer = 32 then
	'保存答案
		if strAction = "selected" then
			if rsSaveAnswer("answer") < 0 then
				rsSaveAnswer("answer") = intAnswer
			else
				rsSaveAnswer("answer") = rsSaveAnswer("answer") or intAnswer
			end if
		elseif strAction = "selectcancel" then
			rsSaveAnswer("answer") = rsSaveAnswer("answer") and not intAnswer
		else
			rsSaveAnswer("answer") = intAnswer
		end if
		rsSaveAnswer.update
	else
		response.write "<script>alert('答案不合法!');</script>"
	end if
else
	response.write "<script>alert('現(xiàn)在不是考試時間,不能進(jìn)行答題!');</script>"
end if
rsSaveAnswer.close
set rsSaveAnswer = nothing
%>