青岛12315投诉电话多少:请教一个简单的asp分行的问题,

实现的方法有许多，我这里提供一种方法，代码如下：
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<td>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<%
Dim counter '计数器
counter=0
sql="select top 10 id,name,spic,emoney,counter from gallery where hidden=1 and types='paste' order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
counter=counter+1
id=rs("id")
topic=rs("name")
If counter=6 Then
Response.Write("<tr>")
End If
%>

<td width='20%'>
<table border=0 cellspacing=0 cellpadding=2>
<tr><td align=center><%response.write pic_fk(rs("spic"),1,"gallery_view.asp?id="&id)%></td></tr>
<tr><td align=center><a href='gallery_view.asp?id=<%response.write id%>' alt='<%response.write joekoe_cms.code_html(topic,1,0)%>' target=_blank><%response.write joekoe_cms.code_html(topic,1,14)%></a></td></tr>
<tr><td align=center><%response.write joekoe_cms.web_unit%>：<font class=red2><%response.write rs("emoney")%></font> 人气：<font class=red><%response.write rs("counter")%></font></td></tr>
</table> </td>

<%
If counter=10 Then
Response.Write("</tr>")
End If
rs.movenext
loop
rs.close
%>
</tr>
</table></td>
</tr>
</table>