如何控制多行多列图片的显示？

[pengboy]

请教，我要在页面上输出3行3列的图片，如果库中的图片少与9个（比如7个），那么剩余的两个空位为空，输出3行3列我会，但是为空不明白，拜托了。。。

[sunshift]

在输出前判断记录是否为真；

[sunshift]

以下为多行两列；
供你参考：

<%
If Not (rs.BOF AND rs.EOF) Then
Do While Not rs.EOF
%>
<tr>
<% For i = 1 to 2
If Not rs.EOF Then
%>
<td width="20" height="25" align="center"><img src="images/left-06.gif" width="8" height="11"></td>
<td width="105" align="left"><a href="<%= rs("UpLinkAddress") %>" target="_blank" title="<%= rs("UpLinkName") %>"><%= Left(rs("UpLinkName"),8) %></a></td>
<% End If
If Not rs.EOF Then rs.MoveNext
Next %>
</tr>
<%
Loop
End If
%>

======================
物流中国.com [ www.56390.com ]

[pengboy]

我先看一下,不懂在问..........................

[pengboy]

有一个问题,我页面的数据都是动态的,而你这段代码的列是固定的,我没法做循环呀

[chenyu112]

难道你图片的列数是不固定的吗？

[chenyu112]

可以这样，定义一个变量为列数
然后按sunshift(http://www.56390.com/)的程序，其中For i = 1 to 2改成for i = 1 to 变量。

[skycuilin]

俺用div+css这样效率高.
<style type="text/css">
#alllist{ width:500px;}
#alllist ul{ list-style:none; margin:0px; padding:0px;}
#alllist li{ width:33%; float:left;}
</style>
<div id="alllist">
<ul>
<%
for i=1 to 7
response.Write("<li>1234567890</li>"&vbcrlf)
next
%>
</ul>
</div>

[skycuilin]

可以随意布局.只需要改下css就可以轻松转换样式,程序代码根本不用碰.如果用循环的话3楼那位的优化一下就OK.
如果不会div+css定位,那就建个表格把上面类似的代码套进去用table定位.

[z5sd]

for i=1 to x
if not rs.eof then
xxx
xxxx
rs.movenext
else
exit for
end if
next

[ymz316]

这是一段多行三列的动态图片显示代码!!
<table border="0" width="90%" align="center">
<%
dim db
set db=server.createobject("ADODB.CONNECTION")
db.open "DBQ=" & server.mappath("temp.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
'建立Recordset对象
Dim strSql,rs
strSql ="Select * From picture"
Set rs=db.execute(strSql)

Dim J
J=0 '该变量用来判断是否换下一行
Response.Write "<tr>" '可以在这里输出开始新行的标记
Do While Not rs.Eof
J=J+1
'下面几行输出一个单元格，其中显示了图片的缩略图，并显示了该图片的标题
Response.Write "<td align='center'>"
Response.Write "<a href='photo\" & rs("filename") & "' target='_blank'><img src='photo\" & rs("filename") & "' width='100',height='50'></a>"
Response.Write "<br>" & rs("title")
REsponse.Write "</td>"
' (J mod 3)表示求I除以3得到的余数，如果为0，就表示需要在下一行开始显示了。
If (J mod 3)=0 Then
Response.Write "</tr><tr>" '</tr>结束本行，<tr>开始下一行
End If
rs.MoveNext
Loop
%>
</table>