ASP：发生意外 错误类型：（(0x80020009)）

[wuyueyangexing]

<%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 = trim(request.querystring("answer"))
strAction = request.querystring("action")
intID = request.querystring("id")
set rsSaveAnswer = server.createobject("ADODB.Recordset")
strSqlSaveAnswer = "select prj_process.*,prj_student.state,prj_student.starttime,project.limittime from prj_process,prj_student,project where prj_process.studentid=prj_student.studentid and prj_student.prjid=project.prjid and prj_process.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
else
response.write "<script>alert('答案不合法!');</script>"
end if
else
response.write "<script>alert('现在不是考试时间,不能进行答题!');</script>"
end if
rsSaveAnswer.close
set rsSaveAnswer = nothing
%>

[lzp4881]

<%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 = trim(request.querystring("answer"))
strAction = request.querystring("action")
intID = request.querystring("id")
set rsSaveAnswer = server.createobject("ADODB.Recordset")
strSqlSaveAnswer = "select prj_process.*,prj_student.state,prj_student.starttime,project.limittime from prj_process,prj_student,project where prj_process.studentid=prj_student.studentid and prj_student.prjid=project.prjid and prj_process.id='" & intID & "'"
rsSaveAnswer.open strSqlSaveAnswer,G_CONN,1,3
’标识的地方就是发生意外的地方
if not (rsSaveAnswer.eof and rsSaveAnswer.bof) thenif 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
else
response.write " <script>alert('答案不合法!'); </script>"
end if
else
response.write " <script>alert('现在不是考试时间,不能进行答题!'); </script>"
end if

else
response.write " 没找到记录!"
end if
rsSaveAnswer.close
set rsSaveAnswer = nothing
%>

[lzp4881]

怎么没换行？then后面应该换行

[天下如山]

倒塌，密密麻麻，看的有点不是太懂，乱。

[wuyueyangexing]

我这个程序有什么问题？

[Formular1]

大概解释一下，太乱了

[wuyueyangexing]

是一个考试系统的保存答案页面，IF语句就是获取考试状态，state=2 表示正在考试，并且是在系统时间与考试时间相减后小于限制时间，说明考试有效，然后就是保存答案

[wuyueyangexing]

帮我看段完整的代码吧
QQ：897405240

[GodDices]

发生意外一般是数据库的问题。。。

[超维电脑科技]

LZ排版应该清楚点
UP等高手
JF

[cwglsdn]

帮你up