列显示和行显示
以下代码是显示一列的,即调出的发一个记录占用一行.我想用行显示,即一行显示六个,多的分为下一行显示.怎么做?
<%
set rs=server.CreateObject("adodb.recordset")
rs.open"select top 8 * from users where mzcheck=1 order by addate desc",conn,1,1
do while not(rs.eof or rs.bof)
'if rs("logo")<>"" then
%>
<table width="126" height="99" border="0" align="center" cellpadding="5" cellspacing="0" id="Table25" bordercolordark="#FFFFFF" bordercolorlight="#c1c1c1">
<tr>
<td height="50" valign="top" class="rmline"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="116" height="40" align="center" valign="middle" >
<div align="center"><img src="<%=rs("logo")%>" border="0" height="55" width="114" /></div></td>
</tr>
</table></td>
</tr>
<tr>
<td width="116" height="15" align="center" valign="middle" bgcolor="#C0C6FB"><%=trim(rs("gsname"))%></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close()
set rs=nothing
%>
<%
rs.movenext
loop
rs.close()
set rs=nothing
%>