为什么我这样写的每页的大小不是我设置的大小呢?
我设置的是page_size=15可是显示的结果却大于15条,是不是我在这里写的每行变色的代码影响了还是什么其他原因,
我想大家帮助解决问题但是不要把每行变色的效果去掉
<table width="800" border="0">
<tr>
<td>标题</td>
<td>回复次数</td>
<td>访问次数</td>
<td>发布时间</td>
<td>删除</td>
<td>修改</td>
</tr>
<%
sql="select * from article where layer=1 order by submit_date desc"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,2
if not rs.eof and not rs.bof then
dim page
dim pagetotal
dim page_size
page_size=15
if request("page")="" then
page=1
else
page=request("page")
end if
rs.absolutepage=page
pagetotal=rs.pagecount
rs.pagesize=page_size
session("page")=page
dim i
i=0
do while not rs.eof
i=i+1
if i mod 2=0 then
%>
<tr id="bg1">
<td><a href="hit.asp?title=<%=rs("title")%>&id=<%=rs("id")%>"><%=rs("title")%></a></td>
<td><%=rs("re_num")%></td>
<td><%=rs("hit_num")%></td>
<td><%=rs("submit_date")%></td>
<td><input name="del" type="radio" value="<%=rs("title")%>"></td>
<td><a href="xrizhi.asp?title=<%=rs("title")%>&id=<%=rs("id")%>&layer=<%=rs("layer")%>">修改</a></td>
</tr>
<%else%>
<tr id="bg2">
<td><a href="hit.asp?title=<%=rs("title")%>&id=<%=rs("id")%>"><%=rs("title")%></a></td>
<td><%=rs("re_num")%></td>
<td><%=rs("hit_num")%></td>
<td><%=rs("submit_date")%></td>
<td><input name="del" type="radio" value="<%=rs("title")%>"></td>
<td><a href="xrizhi.asp?title=<%=rs("title")%>&id=<%=rs("id")%>&layer=<%=rs("layer")%>">修改</a></td>
</tr>
<%end if%>
<% rs.movenext
loop
end if
%>
</table>
请大家帮忙
------解决方案--------------------
循环错了！
do while not rs.eof
这句是要循环显示需哦有的记录吧！
应该用
For i = 1 To rs.PageSize
Next