3 svar · 258 visningar · startad av firstchoice
jag håller på att skapa ett fotoalbum där jag nu sitter med sidan som skall visa thumbnailsen. har programerat så att jag gjort ett pagin system som gör att 9 bilder visas per sida.
men problemet är nu att jag inte vill att dessa 9 bilder skall ligga i en rad, utan jag vill göra ett rutnät, 3 X 3.
kan tänka mig att man får göra en nästling av tex 2 For satser
men längre har jag inte kommit =)
problem 2 blir då hur man skall göra på sista sidan, där kommer det ju sällan vara 9 bilder kvar att visa, utan kanske bara 5 st.
hur gör man då?
hur får man scriptat att fatta att där bara är fem kvar, så att det blir en snygg avslutning.
blir ju samma problem om man har mindre än 9 bilder i ett fotoalbum.
några bra tips? gärna med kod!
Mr. Burns! :D
Ska nog kunna hjälpa dig.
Har du någon slags databas som du utgår ifrån så man loopar igenom ett recordset?
Eller loopar du igenom en mapp med fso?
Visa gärna lite kod så vi här kan hjälpa dig modifiera den. :)
Sen undrar jag om man på tredje sidan ska få ett 3x3 rutnät oavsett eller om man t.ex. ska ha 3x2 om det t.ex. är fem bilder. Alltså om antalet kolumner ska vara fast men antalet rader ska variera..?
Min Gud! =)
jag har all info i en databas och loppar ut det med ett recordset
först en ny liten tanke... hade det gjort något om det blev så här?
<TABLE BORDER="1">
<TR>
<TD>X</TD>
<TD>X</TD>
<TD>X</TD>
</TR>
<TR>
<TD>X</TD>
<TD>X</TD>
<TD>X</TD>
</TR>
<TR>
<TD>X</TD>
</TR>
</TABLE>
fast det hade ju varit snyggast om man hade kunnat få in "colspan" så att det blev lite snyggare kod!
just nu loppar jag ut bilderna så här:
While Not RSPicture.EOF and rowCount < RSPicture.PageSize
rowCount = rowCount + 1 %>
<br><a href="http://www.bild.com" onclick="openwindow(this.href); return false;"><img src="pictures/<%=RSPicture("PicturePictureKatId")%>/thumbnails/<%=RSPicture("PictureFileName")%>" width="125" border="0"></a>
<%
RSPicture.MoveNext
Wend
men jag skulle ju vilja få in det i en tabell, som sagt
sista sidan behöver inte ha ett rutnät på 3X3 om det inte behövs
men grunde är att det skall vara 3 i brädd
men om det tex blir 5 bilder på sista så skall det vara en rad med 3 och en rad med 2.
kan "incordias genier" fixa det? =)
Så här kan man göra. :)
<%
Dim i, lRemain
If Not rs.EOF Then
%>
<table border="1"><%
While Not rs.EOF
If i Mod 3 = 0 Then Response.Write "<tr>"
%>
<td><img src="<%=rs("ImageURL")%>"></td><%
If i Mod 3 = 2 Then Response.Write "</tr>"
rs.MoveNext
i = i + 1
Wend
lRemain = 2 - ((i - 1) Mod 3)
If lRemain Then
For i = 1 To lRemain
%><td> </td><%
Next 'i
Response.Write "</tr>"
End If
%>
</table><%
End If
%>