我愿灰太狼之虎虎生:还是ASP制作问题，我清理了下代码。。帮忙改成让图片横着显示4个，在循环

加一个if i/4=int(i/4) then 如果循环到i次后能被4整除则换行，这样每行四个四个的了

<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table><tr>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from nasuo_jcsj order by bookid desc",conn,1,3
if rs.recordcount=0 then
%>
<%
else
rs.PageSize =1 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rs.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x
%>

<%if i/4=int(i/4) then%>

</tr><tr><td>

<%if rs("bookpic")<>"" then
response.write "<a href="&trim(rs("bookpic2"))&" target=_blank><img src="&trim(rs("bookpic"))&" width=102 height=75 border=0></a>"
else
response.write "<img src=images/emptybook.gif width=102 height=75 border=0>"
end if
%>

<%=rs("bookname")%>
<%if len(trim(rs("bookcontent")))>150 then
response.write left(trim(rs("bookcontent")),120)&"..."
else
response.write left(trim(rs("bookcontent")),100)
end if%>
<a href="nasuo_jcsj.asp?id=<%=rs("bookid")%>" target="_blank">详细信息></a>
</td>

<%else%>
<td>

<%if rs("bookpic")<>"" then
response.write "<a href="&trim(rs("bookpic2"))&" target=_blank><img src="&trim(rs("bookpic"))&" width=102 height=75 border=0></a>"
else
response.write "<img src=images/emptybook.gif width=102 height=75 border=0>"
end if
%>

<%=rs("bookname")%>
<%if len(trim(rs("bookcontent")))>150 then
response.write left(trim(rs("bookcontent")),120)&"..."
else
response.write left(trim(rs("bookcontent")),100)
end if%>
<a href="nasuo_jcsj.asp?id=<%=rs("bookid")%>" target="_blank">详细信息></a>
</td>
<%end if%>

<%
rs.movenext
next
%>
</tr></table>