Vis alle billeder som thumbnails

du skal enten selv lave dine thumbnails,ellers skal du ha' en komponent der kan resize dine billeder.

sørg for at dine thumbnails og det "store" billede hedder det samme - blot skal de starte med to forskellige (faste) bogstaver/tal, f.eks. t_billednavn.jpg og billednavn.jpg.

så skal du bruge filesystemobject til at finde alle dine billeder der starter med "t_" i den pågældende mappe og udskrive dem - med et link til billednavnet minus "t_".

Tak men den er for besværlig!
Jeg har fundet fram til følgende, men har det problem at det kun virker når billederne placeret i root...

<html>

<head>
<title>Eksempel på Thumbnail generator</title>
<style>
table {
font-family : Verdana, Arial;
font-size : 11px ;
color : #000000;
}
</style>
</head>

<body>
<%
thumbwidth = "30"
thumbheight = "30"

Set fs = Server.CreateObject( "Scripting.FileSystemObject" )

Set myFolder = fs.GetFolder( Request.ServerVariables("APPL_PHYSICAL_PATH"))
%>

<table WIDTH="100%">
<% For Each thing in myFolder.Files %>
<% If Right(thing.Name,4) = ".gif" Or Right(thing.Name,4) = ".jpg" Then %>
  <tr>
    <td WIDTH="30%" align="left"><a href="<%= thing.Name%>"><img src="<%= thing.Name%>"
    border="0" alt="<%=thing.Name%>" width="<%= thumbwidth %>" height="<%= thumbheight %>"><%=thing.Name%></a></td>
  </tr>
<% End If %>
<% Next %>
</table>

<p><br>
</p>
</body>
</html>

Det der har jo ikke særlig meget med THUMBNAILS at gøre - det er bare det samme billede - HELE billedet - du loader, og blot viser i 30% af størrelsen.

Du har naturligvis ret i din kommentar - men det er ovennævnte jeg skal bruge....
Må være mere præcis i fremtiden

Lav et svar så gir jeg halvdelen af pointene for din gode vilje...

;-)

k

harløst det hele nu....