ASP循环语句
<!--#INCLUDEFILE="conn.asp"--><%sql="select*fromtest"rs.opensql,conn,3,3dowhilenotrs....
<!--#INCLUDE FILE="conn.asp" -->
<%
sql="select *from test"
rs.open sql,conn,3,3
do while not rs.eof
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.update
rs.movenext
loop
rs.close
sql="select * from test where id = count"
Set rs = conn.Execute(sql)
%><head>
想求一个当题目用完后,能跳转到另一个页面的语句,其实，我搞不懂的是要怎么判断数据库中的题目已用完. 尝试过 Do while not rs.eof else response.Redirect("xuanzhe.asp") ,不成功,提示缺少语句. 请高人指点
用 if count > 20 then response.Redirect("xuanzhe.asp") [20为数据库中题目总数20题] 也是提示缺少语句
按一楼的答案,执行的结果就直接跳到 xuanzhe.asp ,其实还没到结尾,但是已经判断是结尾了 展开
<%
sql="select *from test"
rs.open sql,conn,3,3
do while not rs.eof
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.update
rs.movenext
loop
rs.close
sql="select * from test where id = count"
Set rs = conn.Execute(sql)
%><head>
想求一个当题目用完后,能跳转到另一个页面的语句,其实，我搞不懂的是要怎么判断数据库中的题目已用完. 尝试过 Do while not rs.eof else response.Redirect("xuanzhe.asp") ,不成功,提示缺少语句. 请高人指点
用 if count > 20 then response.Redirect("xuanzhe.asp") [20为数据库中题目总数20题] 也是提示缺少语句
按一楼的答案,执行的结果就直接跳到 xuanzhe.asp ,其实还没到结尾,但是已经判断是结尾了 展开
展开全部
建议在数据库中设置一个标志位字段,flag,数字的,内容为0表示未使用,1表示已使用
<!--#INCLUDE FILE="conn.asp" -->
<%
sql="select *from test"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.movenext
if rs.eof then
response.Redirect("xuanzhe.asp")
end if
end if
rs.close
sql="select * from test where id = count AND flag=0"
Set rs = conn.Execute(sql)
conn.Execute "UPDATE test set flag=1 WHERE id=" & CStr(rs("id"))
%><head>
或者,将用户已答的题的记录存放到系统的COOKIES,或SESSION中,以SESSION为例:
<!--#INCLUDE FILE="conn.asp" -->
<%
stra=Session("idnum")
sql="select *from test"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.movenext
if rs.eof then
response.Redirect("xuanzhe.asp")
end if
end if
rs.close
if stra <> "" then
sql="select * from test where id = count AND (not id in (" & left(stra,len(stra)-1) & ")"
Set rs = conn.Execute(sql)
stra=stra & CStr(rs("id")) & ","
session("idnum")=stra
%><head>
<!--#INCLUDE FILE="conn.asp" -->
<%
sql="select *from test"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.movenext
if rs.eof then
response.Redirect("xuanzhe.asp")
end if
end if
rs.close
sql="select * from test where id = count AND flag=0"
Set rs = conn.Execute(sql)
conn.Execute "UPDATE test set flag=1 WHERE id=" & CStr(rs("id"))
%><head>
或者,将用户已答的题的记录存放到系统的COOKIES,或SESSION中,以SESSION为例:
<!--#INCLUDE FILE="conn.asp" -->
<%
stra=Session("idnum")
sql="select *from test"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.movenext
if rs.eof then
response.Redirect("xuanzhe.asp")
end if
end if
rs.close
if stra <> "" then
sql="select * from test where id = count AND (not id in (" & left(stra,len(stra)-1) & ")"
Set rs = conn.Execute(sql)
stra=stra & CStr(rs("id")) & ","
session("idnum")=stra
%><head>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
看我的吧，简单有效
<!--#INCLUDE FILE="conn.asp" -->
<%
sql="select * from test" '这句你没有条件，会先把所有的试题都选出来，你在这里要加个条件，这样如果没有满足条件的记录就会进行跳转操作
rs.open sql,conn,3,3
if not rs.eof then
do while not rs.eof
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.update
rs.movenext
loop
rs.close
sql="select * from test where id = count"
Set rs = conn.Execute(sql)
else
response.Redirect("xuanzhe.asp")
end if
%><head>
<!--#INCLUDE FILE="conn.asp" -->
<%
sql="select * from test" '这句你没有条件，会先把所有的试题都选出来，你在这里要加个条件，这样如果没有满足条件的记录就会进行跳转操作
rs.open sql,conn,3,3
if not rs.eof then
do while not rs.eof
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.update
rs.movenext
loop
rs.close
sql="select * from test where id = count"
Set rs = conn.Execute(sql)
else
response.Redirect("xuanzhe.asp")
end if
%><head>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<!--#INCLUDE FILE="conn.asp" -->
<%
sql="select *from test"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.movenext
if rs.eof then
response.Redirect("xuanzhe.asp")
end if
end if
rs.close
sql="select * from test where id = count"
Set rs = conn.Execute(sql)
%><head>
<%
sql="select *from test"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
'RANDOMIZE
'RandomValue = INT(10*RND)+1
rs("count")=DateDiff("d",#5/11/2009#,now())
[设定一个标准时间,提取与当前时间差值的题目]
rs.movenext
if rs.eof then
response.Redirect("xuanzhe.asp")
end if
end if
rs.close
sql="select * from test where id = count"
Set rs = conn.Execute(sql)
%><head>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
楼主问题很模糊……
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
