错误类型：ADODB.Recordset (0x800A0BCD)BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="Connections/conn.asp"--><%Dim...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM question"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
set mrs=server.createobject("adodb.recordset")
mrs.activeconnection="provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("dbtest.mdb")
if request.servervariables("http_method")="post" then
'将学生的答案写入数据库
mrs.source="select * from tbanswer"
mrs.open,,1,3
mrs.addnew
mrs("answer")=request.form("choose")
mrs("stid")=session("stid")
mrs("questionid")=session("questionid")
mrs.update
mrs.close
end if
gotime=hour(now)*60+minute(now)-hour(session("starttime"))*60-minute(session("starttime"))
lefttime=session("testtime")-gotime
if session("page")=cint(session("testnum")) or lefttime<0 then
'若考试时间到，则关闭数据库对象，并重定向到stevalue.asp文件
set mrs=nothing
response.redirect "stevalue.asp" '进入评分程序
end if
if request.servervariables("http_method")="GET" then
'给出已考的题目数
session("page")=1
else
'每做一道题，用"post"方式提交，已考的题目数＋1
session("page")=session("page")+1
end if
%>
<html>
<title>试题评分处理程序</title>
<body background="bg.jpg">
<form action="stprocess.asp" method=post id=form1 name=form1>
<p align=center>
<table border=1 cellpadding=1 cellspacing=1 width="75%">
<tr><td><div align=center>第<%=session("page")%>题</div></td></tr>
<tr><td>
<%
'从试题库中取出下一道题
mrs.source="select * from question where sub='" & session("sub") &_
"' and teachid='" & session("teachid") & "'"
mrs.open ,,1,1
mrs.PageSize=1
mrs.absolutepage=session("page")
session("questionid")=mrs("questionid")
response.write"<pre>"
response.write mrs("question")
response.write "</pre><hr>"
response.write "A." & mrs("A") & "<BR>"
response.write "B." & mrs("B") & "<BR>"
response.write "C." & mrs("C") & "<BR>"
response.write "D." & mrs("D") & "<BR>"
mrs.close '关闭数据库对象
set mrs=nothing '释放对象变量
%>
</td></tr>
<tr><td><input id="radio1" name="choose" type="radio" value="A">A
<input id="radio2" name="choose" type="radio" value="B">B
<input id="radio3" name="choose" type="radio" value="C">C
<input id="radio4" name="choose" type="radio" value="D">D
<input id="submit1" name="submit1" type="submit" value="确 定">
</td></tr>
</table></p>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%> 展开
<!--#include file="Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM question"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
set mrs=server.createobject("adodb.recordset")
mrs.activeconnection="provider=microsoft.jet.oledb.4.0;" &_
"data source=" & server.mappath("dbtest.mdb")
if request.servervariables("http_method")="post" then
'将学生的答案写入数据库
mrs.source="select * from tbanswer"
mrs.open,,1,3
mrs.addnew
mrs("answer")=request.form("choose")
mrs("stid")=session("stid")
mrs("questionid")=session("questionid")
mrs.update
mrs.close
end if
gotime=hour(now)*60+minute(now)-hour(session("starttime"))*60-minute(session("starttime"))
lefttime=session("testtime")-gotime
if session("page")=cint(session("testnum")) or lefttime<0 then
'若考试时间到，则关闭数据库对象，并重定向到stevalue.asp文件
set mrs=nothing
response.redirect "stevalue.asp" '进入评分程序
end if
if request.servervariables("http_method")="GET" then
'给出已考的题目数
session("page")=1
else
'每做一道题，用"post"方式提交，已考的题目数＋1
session("page")=session("page")+1
end if
%>
<html>
<title>试题评分处理程序</title>
<body background="bg.jpg">
<form action="stprocess.asp" method=post id=form1 name=form1>
<p align=center>
<table border=1 cellpadding=1 cellspacing=1 width="75%">
<tr><td><div align=center>第<%=session("page")%>题</div></td></tr>
<tr><td>
<%
'从试题库中取出下一道题
mrs.source="select * from question where sub='" & session("sub") &_
"' and teachid='" & session("teachid") & "'"
mrs.open ,,1,1
mrs.PageSize=1
mrs.absolutepage=session("page")
session("questionid")=mrs("questionid")
response.write"<pre>"
response.write mrs("question")
response.write "</pre><hr>"
response.write "A." & mrs("A") & "<BR>"
response.write "B." & mrs("B") & "<BR>"
response.write "C." & mrs("C") & "<BR>"
response.write "D." & mrs("D") & "<BR>"
mrs.close '关闭数据库对象
set mrs=nothing '释放对象变量
%>
</td></tr>
<tr><td><input id="radio1" name="choose" type="radio" value="A">A
<input id="radio2" name="choose" type="radio" value="B">B
<input id="radio3" name="choose" type="radio" value="C">C
<input id="radio4" name="choose" type="radio" value="D">D
<input id="submit1" name="submit1" type="submit" value="确 定">
</td></tr>
</table></p>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%> 展开
1个回答
展开全部
你查询出来的记录集是空的。
在使用之前需要判断记录集是否为空，方法为：
if not rs.eof then
...
end if
在使用之前需要判断记录集是否为空，方法为：
if not rs.eof then
...
end if
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
