28,406
社区成员
发帖
与我相关
我的任务
分享分页问题，急求解决！！！
<!--#include file="../include/conn.asp"-->
<html>
<head>
<link href="css/Style.css" rel="stylesheet" type="text/css">
<title>::::欢迎光临校园在线考试系统:::::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body >
<%
tmhm=trim(request.Form("tmhm"))
sql="select question_n,tm,daa,dab,dac,dad from othertk where topic_numb= '"&Tmhm &"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize=1
pcount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
<%if page=1 and not page=pcount then%>
<div align="right">第<%=page%>页
<%for i=1 to pcount%>
<a href="xstm.asp?page=<%=i%>"><%=i%></a>
<%next%>
上一页 <a href="xstm.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pcount and not page=1 then%>
<div align="right">第<%=page%>页
<%for i=1 to pcount%>
<a href="xstm.asp?page=<%=i%>"><%=i%></a>
<%next%>
<a href="xstm.asp?page=<%=page-1%>">上一页</a>
下一页 </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没数据</font></div>
<%elseif page>pcount then%><div class="font" align="right"><font color=red>没数据</font></div>
<%elseif page=1 and page=pcount then%>
<%else%>
<div align="right">第<%=page%>页 <%for i=1 to pcount%>
<a href="xstm.asp?page=<%=i%>"><%=i%></a> <%next%><a href="xstm.asp?page=<%=page-1%>">上一页</a>
<a href="xstm.asp?page=<%=page+1%>">下一页</a> </div>
<%end if%>
<%for i=1 to rs.PageSize%>
<table width="101%" border="1" bordercolorlight="#999999" bordercolordark="#EBF6E6" bgcolor="#EBF6E6">
<tr>
<td><%=rs("tm")%></td>
</tr>
<tr>
<td>
<input type="radio" name="radiobutton" value="radiobutton"><%=rs("daa")%>
</td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dab")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dac")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dad")%></td>
</tr>
</table>
<br>
<%
rs.movenext
next
%>
</body>
</html>
显示错误
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
希望大家帮我解决啊！！！不胜感激！！！
<html>
<head>
<link href="css/Style.css" rel="stylesheet" type="text/css">
<title>::::欢迎光临校园在线考试系统:::::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body >
<%
tmhm=trim(request.Form("tmhm"))
sql="select question_n,tm,daa,dab,dac,dad from othertk where topic_numb= '"&Tmhm &"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize=1
pcount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
<%if page=1 and not page=pcount then%>
<div align="right">第<%=page%>页
<%for i=1 to pcount%>
<a href="xstm.asp?page=<%=i%>"><%=i%></a>
<%next%>
上一页 <a href="xstm.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pcount and not page=1 then%>
<div align="right">第<%=page%>页
<%for i=1 to pcount%>
<a href="xstm.asp?page=<%=i%>"><%=i%></a>
<%next%>
<a href="xstm.asp?page=<%=page-1%>">上一页</a>
下一页 </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>没数据</font></div>
<%elseif page>pcount then%><div class="font" align="right"><font color=red>没数据</font></div>
<%elseif page=1 and page=pcount then%>
<%else%>
<div align="right">第<%=page%>页 <%for i=1 to pcount%>
<a href="xstm.asp?page=<%=i%>"><%=i%></a> <%next%><a href="xstm.asp?page=<%=page-1%>">上一页</a>
<a href="xstm.asp?page=<%=page+1%>">下一页</a> </div>
<%end if%>
<%for i=1 to rs.PageSize%>
<table width="101%" border="1" bordercolorlight="#999999" bordercolordark="#EBF6E6" bgcolor="#EBF6E6">
<tr>
<td><%=rs("tm")%></td>
</tr>
<tr>
<td>
<input type="radio" name="radiobutton" value="radiobutton"><%=rs("daa")%>
</td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dab")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dac")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dad")%></td>
</tr>
</table>
<br>
<%
rs.movenext
next
%>
</body>
</html>
显示错误
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
希望大家帮我解决啊！！！不胜感激！！！
...全文
请发表友善的回复…
发表回复
ybfqlyq 2005-10-12
- 打赏
- 举报
for 下邊加個 if rs.EOF or rs.BOF then exit for試下
asp_m 2005-10-12
- 打赏
- 举报
<%
rs.movenext
next
%>
改成
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
rs.movenext
next
%>
改成
<%
rs.movenext
if rs.eof then
exit for
end if
next
%>
yelanne 2005-10-12
- 打赏
- 举报
加个判断，在FOR循环外
<%if not rs.eof then%>
<%for i=1 to rs.PageSize%>
<table width="101%" border="1" bordercolorlight="#999999" bordercolordark="#EBF6E6" bgcolor="#EBF6E6">
<tr>
<td><%=rs("tm")%></td>
</tr>
<tr>
<td>
<input type="radio" name="radiobutton" value="radiobutton"><%=rs("daa")%>
</td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dab")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dac")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dad")%></td>
</tr>
</table>
<br>
<%
rs.movenext
next
%>
<%else
response.write "no record!"
end if%>
<%if not rs.eof then%>
<%for i=1 to rs.PageSize%>
<table width="101%" border="1" bordercolorlight="#999999" bordercolordark="#EBF6E6" bgcolor="#EBF6E6">
<tr>
<td><%=rs("tm")%></td>
</tr>
<tr>
<td>
<input type="radio" name="radiobutton" value="radiobutton"><%=rs("daa")%>
</td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dab")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dac")%></td>
</tr>
<tr>
<td><input type="radio" name="radiobutton" value="radiobutton"><%=rs("dad")%></td>
</tr>
</table>
<br>
<%
rs.movenext
next
%>
<%else
response.write "no record!"
end if%>
cds27 2005-10-12
- 打赏
- 举报
再改下：
if rs.EOF or rs.BOF then exit for
if rs.EOF or rs.BOF then exit for
cds27 2005-10-12
- 打赏
- 举报
上面的 rs,EOF改为rs.EOF
cds27 2005-10-12
- 打赏
- 举报
<%
rs.movenext
if rs,EOF then exit for '加一个退出循环具体，exit for可能是错的，具体怎么写忘了，我只会js。
next
%>
rs.movenext
if rs,EOF then exit for '加一个退出循环具体，exit for可能是错的，具体怎么写忘了，我只会js。
next
%>
