请教数据循环问题？？

[yancx2004]

我想做一个网页显示数据，第一次页面正常显示1-10记录，刷新后显示2-11条记录,以此类推，页面数据不够10条时，开始第二个循环补足10条。页面可以自动刷新。这是我写的代码，请高手们帮忙更正一下。
_______________________________________________________________________________________
<%

dim SQL2,tstr
dim Rs2
dim wname,wjj,wurl
num=session("num")
Set Rs2=Server.CreateObject("ADODB.Recordset")
SQL="SELECT RegWeb.WebName, RegWeb.Web_Jj, RegWeb.WebUrl, RegWeb.User_PaiMing FROM RegWeb ORDER BY RegWeb.User_PaiMing"
Rs2.open SQL,Conn,1,1
%>
<table class=gridpad cellSpacing=0 borderColorDark=#ffffff cellPadding=0
width=350 bgColor=#f4f7f4 borderColorLight=#cccccc border=1 align=right>
<%

for i=num to num+10
webname=Rs2(0)
webjj=Rs2(1)
weburl=Rs2(2)

%>
<tr>
<td>
<table width="300" border="0" >

<tr>
<td><a href="<%=weburl %>"><%=webname %></a></td>
</tr>
<tr>
<td><%=webjj %></td>
</tr>
<tr>
<td><a href="<%=weburl %>"><%=weburl %></a></td>
</tr>

</table><% response.Write("<br>") %>
</td>
</tr>
<%

Rs2.movenext
if Rs2.eof or Rs2.bof then
for j=1 to Rs2.recordcount-num

webname=Rs2(0)
webjj=Rs2(1)
weburl=Rs2(2)
%>
<tr>
<td>
<table width="300" border="0" >

<tr>
<td><a href="<%=weburl %>"><%=webname %></a></td>
</tr>
<tr>
<td><%=webjj %></td>
</tr>
<tr>
<td><a href="<%=weburl %>"><%=weburl %></a></td>
</tr>

</table><% response.Write("<br>") %>
</td>
</tr>
<%
Rs2.movenext
next
end if
next



%>

<%

num=num+1
if num>Rs2.recordcount then
num=1
end if
response.Write(num)

Rs2.close
closedb
session("num")=num
%>
</table>
<script language="javascript">
<!--

function xx(){
var oXmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
oXmlHttp.open("GET","1.asp",false);
oXmlHttp.send();

setInterval('xx()',2000);
}
//xx();
-->
</script>

[wxf0104]

你为什么不用分页呀？

[webassassin]

这样也行吗，不知道你想干什么

设置一个全局变量，记录刷新的次数
也许可行

[yancx2004]

就是一直在一个页面上显示10条记录，不要分页，第一次1-10条记录，刷新后显示2-11条记录，第一条记录就不在显示，再次刷新后显示3-12条记录，第一、二条记录就不在显示，以此类推，最后数据记录没有10条的时候开始第二个循环补足10条如(页面显示为3-7记录和1-5条记录),页面可以自动刷新。