下面的代码如何让它显示两行四列呢,哪位帮帮忙啊
<table border="0" width="100%" cellspacing="0" cellpadding="6" ><tr>
<%
if (cstr(session("member_id"))="3") then nodisplay_sql=" and a.album_id not in (545,590)"
Record_Count=select_single_value("select count(*) from images where subject='album' and topic_id in (select album_id from album a where a.if_best='1' "+nodisplay_sql+")")
sql="select c.img_id,a.album_id,a.member_id,a.album_title,a.mini_img,b.nickname,c.img_filename,a.release_date from album a,members b,images c where a.member_id=b.member_id and c.subject='album' and a.album_id=c.topic_id and a.if_best='1' "+nodisplay_sql+" "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
RANDOMIZE
i=1
bound1=1
bound2=round(Record_Count*(3/9))
bound3=round(Record_Count*(4/9))
bound4=round(Record_Count*(5/9))
bound5=round(Record_Count*(6/9))
bound6=round(Record_Count*(7/9))
bound7=round(Record_Count*(8/9))
bound8=Record_Count
'response.write bound1&bound2&bound3&bound4&bound5&bound6&bound7&bound8&"<br>"
'response.write Record_Count&" "&round((bound2-bound1)*RND()+bound1)&" "&round((bound3-bound2)*RND()+bound2+1)&" "&round((bound4-bound3)*RND()+bound3)&""&"<br>"
pic1_num=round((bound2-bound1-1)*RND()+bound1)
pic2_num=round((bound3-bound2-1)*RND()+bound2)
pic3_num=round((bound4-bound3-1)*RND()+bound3)
pic4_num=round((bound5-bound4-1)*RND()+bound4)
pic5_num=round((bound6-bound5-1)*RND()+bound5)
pic6_num=round((bound7-bound6-1)*RND()+bound6)
pic7_num=round((bound8-bound7-1)*RND()+bound7)
pic8_num=round((bound9-bound8-1)*RND()+bound8)
'response.write pic1_num&" "&pic2_num&" "&pic3_num&""
while not rs.EOF
'response.write rs("img_id")&"<br>"
if (i=pic1_num) or (i=pic2_num) or (i=pic3_num) or (i=pic4_num)or (i=pic5_num)or (i=pic6_num)or (i=pic7_num)or (i=pic8_num)then
%>
<td width="25%" height="1"><table width="150" height="190" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#F7F5EE"><TABLE width=1 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TD>
<TR>
<TD bgColor=#ffffff><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD onMouseOver="this.style.backgroundColor='#B8C5CD';return true;" onMouseOut="this.style.backgroundColor='#ffffff';"><TABLE cellSpacing=0 cellPadding=2 width="100%"
border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=center><a href="album_detail.asp?album_id=<%=rs("album_id")%>"> <img border="0" src="doc_img/album/<%=rs("mini_img")%>" alt="作者:<%=rs("nickname")%>"></a></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TABLE></td>
</tr>
<tr>
<td height="20" align="center"><a href="album_detail.asp?album_id=<%=rs("album_id")%>"><%=rs("album_title")%></a></td>
</tr>
</table></td>
<%
end if
i=i+1
rs.movenext
Wend
rs.close
set rs=nothing
%>
</tr>
</table>