能帮我看看吗？

[79xie]

我想从数据库取出数据后，每行显示二个公司名称，每页显示20个公司名。

在 rs.pagesize=4 时正常，可每页设在6条以上时，每页都只显示4条记录，其于不见了每翻页都是掉记录，
<%
page=request.querystring("page")
if page="" then page=1
set rs=server.createobject("adodb.recordset")
rs.open "select gs from travel",con,1,1
if not rs.eof then
rs.cachesize=4
rs.pagesize=4
rs.absolutepage=page
%>
<%
Response.write "<table width=50% border=0 cellpadding=1 cellspacing=1 align=center >"
i = 0
for n=1 to rs.pagesize
Response.write "<tr>"
do while i <= 1 and not rs.EOF

Response.write "<td>"
response.write "<a href="
response.write "tbrowse.asp"
response.write "?id="
response.write cstr(trim(rs("gs")))
response.write ">"
response.write cstr(trim(rs("gs")))
response.write "</a>"

if not rs.EOF then
rs.movenext
i = i + 1
n=n+1
else
exit do
end if
loop
Response.write "</tr>"
i = 0
next
Response.write "</table>"
%>
<%
else
response.write "<center>没有任何记录"
end if
%>
<br>
<center>
<% if page >=2 then %>
<font size="2"><a href="travel.asp?page=1">第一页</a></font>
<font size="2"><a href="travel.asp?page=<%=page-1%>">上一页</a></font>
<% else %>
<font size="2">第一页 上一页</font>
<% end if %>

<% if rs.pagecount-page>=1 then %>
<font size="2"><a href="travel.asp?page=<%=page+1%>">下一页</a></font>
<font size="2"><a href="travel.asp?page=<%=rs.pagecount%>">最后一页</a></font>
<% else %>
<font size="2">下一页 最后一页</font>
<% end if %>
</center>

[79xie]

自己帮自己吧！终于搞定了。
<table width=750>
<% for n=1 to rs.pagesize %>
<tr>
<%for i=1 to 2%>
<td> <%=rs("username")%></td>
<%
rs.movenext
if rs.eof then
exit do
end if
next
%>
</tr>
<%
n=n+1
next
%>
</table>

[possible_Y]

不用for，你可以这样

<table width=750>
<tr>
<% for n=1 to rs.pagesize %>
<td> <%=rs("username")%></td>

<%
if n mod 2=0 and Not rs.EOF then
Response.Write "</tr><tr>"
end if
rs.movenext
n=n+1
next
%>
</tr>
</table>