如何实现数据库读出记录的横向循环（循环）的换行？

[tmpx]

就像百度贴吧里：
http://post.baidu.com/firstindex/1.html
这些明星的显示一样，一行6个，应该如何实现？请教高手

[skycuilin]

贴段代码给你上下左右的限制个数都有了

<table>
<%
sql="select * from zg_article"
openrs rs,sql,1,1
i=1
do while not rs.eof

%>
<tr>
<%
j=1
do while not rs.eof
%>
<td width="20%"><%=rs("title")%>
</td>
<%rs.movenext
j=j+1
if j>5 then exit do
loop%>
</tr>
<%
i=i+1
if i>5 then exit do
loop
%>

[skycuilin]

如果可以结贴给分吧兄弟，嘿嘿

[skycuilin]

注意这个标签<td width="20%">，根据循环的个数计算比例，或者用固定宽度．

[monkeyhjl]

<table border="0" cellpadding="1" cellspacing="1" bgcolor="#EDEDED">
<tr>
<%
'表中每行显示五条记录
i = 0
sSql = "SELECT ID,USERNAME FROM USERINFO WHERE STATUS=0"
Set oRs = sqlNoParamReturnRs(sSql)
oRsCount = oRs.RecordCount
While Not oRs.Eof
i = i + 1
userID = oRs("ID")
userName = oRs("USERNAME")
stu = " "&userName&"  <input type='checkbox' name='userID' value="&userID&"> "
If(i = 6) Then
Response.Write("</tr><tr>")
i = i - 5
End If
Response.Write("<td width='16%' bgcolor='#FFFFFF' align='right'>"&stu&"</td>")
oRs.MoveNext
Wend
oRs.close
If (oRsCount <> 0) Then
For k = 1 To (5 - i)
Response.Write("<td width='20%' bgcolor='#FFFFFF'> </td>")
Next
End If
Set oRs = Nothing
Set conn = Nothing
%>
</tr>
</table>
每行显示六个的你自己改下代码就可以了。

[竹林听雨2005]

在<td>结束后就写循环，而不是在<tr>结束后再写。

[pzhuyy]

嵌套而已，来晚了

[skycuilin]

<td>结束后就写循环，是不是看别人写出来的代码都没有研究过，td结束后就写循环，请问你后面的</tr>去哪里了，现在页面越来越向标准化迈进，基本的符号都不关闭，可笑．

[hreoghost]

学习