重复横向显示记录集

以下网址有视频说明：http://www.tudou.com/programs/view/lse3xRrSo38

一、制作两个表格（一个表格套着另一个表格重复）

在大表格设置宽度为１００，并重复大表格，把大表格重复的代码移到大表格内只重复大表格内tr里TD的内容，并在ＴＤ结尾的后加增加一栏：

<%

num_tr=num_tr+1

 if num_tr mod 3=0 then

response.write"</tr><tr>"

end if

%>

二、实例：

<div id="m1">

                                       <div id="m1_mj">

                  

                  <tablewidth="100" border="0" cellpadding="0"cellspacing="0">

                        <tr>

                                                         <%

While ((Repeat3__numRows <> 0) AND(NOT Recordset1.EOF))

%>

                          <td><tablewidth="131" height="157" border="0"cellpadding="0" cellspacing="0">

                            <tr>

                              <tdwidth="131" height="121" align="center"valign="top">

<imgsrc="../img/<%=(Recordset1.Fields.Item("k_sdyy").Value)%>.jpg"οnerrοr="this.src='../img/ls.jpg' "" /></td>

                            </tr>

                            <tr>

                              <tdalign="center"class="middle_zt2"><%=(Recordset1.Fields.Item("k_name").Value)%></td>

                            </tr>

                            <tr>

                              <tdheight="6" align="center" class="middle_zt2">场控时长：<%=(Recordset1.Fields.Item("q_zsc").Value)%></td>

                            </tr>

                            <tr>

                              <td height="6"align="center" class="middle_zt2">场控星级：<%=(Recordset1.Fields.Item("k_grade").Value)%></td>

                            </tr>

                            <tr>

                              <tdalign="center" class="middle_zt1">&nbsp;</td>

                           </tr>

                           </table></td> 

<%

num_tr=num_tr+1

 if num_tr mod 3[微软用户1] =0 then

response.write"</tr><tr>"

end if

%>

<%

 Repeat3__index=Repeat3__index+1

 Repeat3__numRows=Repeat3__numRows-1

 Recordset1.MoveNext()

Wend

%>

---

 [微软用户1]此数次表示重复几次而回车换行

如　下图：