如题，以下是我的 index.asp 代码， 我想让 每页显示 9 个图片，3个一排。

现在的代码是每页显示9个，都显示到一排上了，请问如何修改呢？

即 把

图片 图片 图片 图片 图片 图片 图片 图片 图片
1 2 3 4 ....页

改成

图片 图片 图片

图片 图片 图片

图片 图片 图片
1 2 3 4 .... 页

代码：

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
exec="select * from qccg order by qcal_id desc"
rs.open exec,conn,1,1
%>

<%
rs.pagesize=9
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.absolutepage=page
%>
<%
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>

<a href="showw.asp?qcal_id=<%=rs("qcal_id")%>"><img src=showw.asp?qcal_id=<%=rs("qcal_id")%>

height="100" width="100"></a>

<%
rs.movenext
next
%>

<%
rs.close
set bb=nothing
%>

<p>
<% for i=1 to pagecount %>
<a href="index.asp?page=<%=i%>"><%=i%></a>
<%next%>

看不明白啊~~~~
不过只要输入换行就行了

for i=0 to ??
if i mod 3 = 0 then
response.write("<br>")
end if
next

??是最后一条数据
参考下吧

<%
rs.pagesize=9
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.absolutepage=page
%>
<%
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>

......
是分页代码，

<a href="showw.asp?qcal_id=<%=rs("qcal_id")%>"><img src=showw.asp?qcal_id=<%=rs("qcal_id")%>

height="100" width="100"></a>

是显示缩略图代码！具体该怎么修改呢？？

<%
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>
在这后面加
cols =cols +1
if cols >1 and n mod 3 =1 then response.write "<br>"

感谢 madpbpl ,能具体些吗???

[QUOTE]<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
exec="select * from qccg order by qcal_id desc"
rs.open exec,conn,1,1
%>
<%
rs.pagesize=9
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.absolutepage=page
%>
<%
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
cols =cols +1
if cols >1 and n mod 3 =1 then response.write "<br>"
%>
<a href="showw.asp?qcal_id=<%=rs("qcal_id")%>"><img src=showw.asp?qcal_id=<%=rs("qcal_id")%>
height="100" width="100"></a>

<%
rs.movenext
next
%>
<%
rs.close
set bb=nothing
%>[/QUOTE]

老大,好象不行,图片还是都显示在了一行!!!

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
exec="select * from qccg order by qcal_id desc"
rs.open exec,conn,1,1
%>
<%
rs.pagesize=9
pagecount=rs.pagecount
page=int(request("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.absolutepage=page
%>
<% j=1
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if

if j mod 3 =1 then response.write "<tr>"
%><td>
<a href="showw.asp?qcal_id=<%=rs("qcal_id")%>"><img src=showw.asp?qcal_id=<%=rs("qcal_id")%>
height="100" width="100"></a></td>

<%
rs.movenext
j=j+1
if j mod 3 =0 then response.write "</tr>"
rs.close
set bb=nothing%>

把数据放到<table> </table>之间就可以了

对不起，打错一行字母，
cols =cols +1
if cols >1 and cols mod 3 =1 then response.write "<br>"
我打成 n了，没有注意，你再试试