<%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
dim strAnswer,isTxt '主觀題答案
strAnswer = trim(request.querystring("answer"))
'Response.Write strAnswer
'Response.End

isTxt = CLng(trim(request.querystring("isTxt")))
intAnswer = 300
if isTxt=0 then
   intAnswer = CLng(trim(request.querystring("answer")))
end if
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	'驗證此答案是否在有效的時間內提交的.
	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
	end if
	if (isTxt=1) then
	    rsSaveAnswer("answer2") = strAnswer
		rsSaveAnswer.update
	end if
	if (isTxt<>0 and isTxt<>1) then
		response.write "<script>alert('答案不合法!');</script>"
	end if
else
	response.write "<script>alert('現在不是考試時間,不能進行答題!');</script>"
end if
rsSaveAnswer.close
set rsSaveAnswer = nothing
%>