给你一个，你看看

<%
Dim HLooper1__numRows
HLooper1__numRows = -3
Dim HLooper1__index
HLooper1__index = 0
RsShow_numRows = RsShow_numRows + HLooper1__numRows
%>



                <%
startrw = 0
endrw = HLooper1__index
numberColumns = 4
numrows = -1
while((numrows <> 0) AND (Not RsProduct.EOF))
    startrw = endrw + 1
    endrw = endrw + numberColumns
%>

                     <%
While ((startrw <= endrw) AND (Not RsProduct.EOF))
%>

                     <%
    startrw = startrw + 1
    RsProduct.MoveNext()
    Wend
    %>

                     <%
numrows=numrows-1
Wend
%>

">" width="123" height="82" border="0">

其中，RsShow是记录集名
numberColumns = 4是每行显示记录数目，比如你就要修改为numberColumns = 2

不用啊，有插件的，

注意代码里做重复的区域!

相关文件：点这儿打开