?? test_saveanswer.asp
字號:
<%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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -