用一循环控制，到三个时自动换行
如果为了美观，则可以用单元格

一行三列是吗?

Do While Not rs.Eof
...............
rs.movenext
If i mod 3 = 0 then
response.write("

再帖完整一点.


<%
page = request("page")

OpenDB
Set rsProduct = Server.CreateObject("ADODB.RecordSet")
strSQL = "........................................................"
rsProduct.open strSQL,DBconn,1,1

If page = "" Then page = 1
If Not rsProduct.Eof Then
rsProduct.pageSize= 6
rsProduct.absolutePage= page
End If
%>
....................................
....................................


<%
i = 0
Do while not rsProduct.Eof and i < rsProduct.pagesize
%>

<%
rsProduct.movenext
i = i + 1
If i mod 3 = 0 then
response.write("")
end if
Loop
%>

<% If rsProduct("ProductSmallPic")="" Then response.write("src='img/nopic.gif'") else response.write("src='../product/pic/"&rsProduct("ProductSmallPic")&"'") end if %> width="139" height="100" vspace="3"> [<%=rsProduct("cnproductname")%> ￥ <%=rsProduct("cnproductprice")%>] ">详细介绍

<% For i = 1 to rsproduct.PageCount If CInt(page) = CInt(i) Then response.write(""&i&" ") Else response.write(""&i&" ") End If Next %>