for loop

2 svar · 197 visningar · startad av garko 9 juni 2003

garkoMedlem sedan apr. 200339 inlägg

9 juni 2003 20:54#1

undrar hur man gör om man vill att endast ha 5 bilder på en rad och där efter börja på en ny rad osv.

<table cellspacing="0" cellpadding="0" border="0" height="400">
<tr>
<td align="center" valign="top" height="300">
<%Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath("\"))
Set files = folder.Files

For Each file in Files%>

<a href="<%=file.Name%>2.html"><img src="<%=file.Name%>" width="100" height="100" border="0" alt=""></a>

<%Next
Set files = folder.Files
Set file = Nothing
Set fso = Nothing
%>
</td>
</tr>
</table>

mozillaMedlem sedan juli 20011 084 inlägg

9 juni 2003 21:03#2

 if i Mod 5 = 0 Then Response.Write "<br />"

PeeerMedlem sedan mars 20025 907 inlägg

9 juni 2003 21:03#3

<table cellspacing="0" cellpadding="0" border="0" height="400"> 
<tr> 
<td align="center" valign="top" height="300"> 
<%Set fso = CreateObject("Scripting.FileSystemObject") 
Set folder = fso.GetFolder(Server.Mappath("\")) 
Set files = folder.Files 
intTemp = 0
For Each file in Files%> 
intTemp = intTemp +1
<a href="<%=file.Name%>2.html"><img src="<%=file.Name%>" width="100" height="100" border="0" alt=""></a> 
if (intTemp mod 5) = 0 Then
Response.write "<br>"
end if
<%Next 
Set files = folder.Files 
Set file = Nothing 
Set fso = Nothing 
%> 
</td> 
</tr> 
</table>