Fotoalbum, hjælp
Hejsa... jeg har leget lidt med følgende kode, men jeg kan ikke hitte ud af det :/Jeg har brug for et fotoalbum som viser billederne i det pågældende bibliotek i klikbare thumbnails. Dette er opnået. Nu mangler jeg, at billederne bliver spyttet ud i en tabel med 4 celler, sådan at der max kommer 4 billeder i bredden. Ydermere kunne jeg godt tænke mig at kunne bestemme hvor mange billeder der skal vises pr. side, hvor man så kan klikke "næste side" eller lignende. Hvis der er en asp-guru som gider fixe det, bliver jeg sehr froh :)
Følgende kode har jeg :
ImageDir = "temp"
ImageIn=server.mappath(ImageDir) &"\"
ImageOut=server.mappath(ImageDir&"thumb") &"\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
img = Image.Name
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Image.LoadImage(ImageIn& img )
X = Image.MaxX
Y = Image.MaxY
If X > 100 Then
ResizedX = 100
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 50
Image.FileName = (ImageOut & img )
Image.SaveImage
Set Image = nothing
Response.Write("<a href='"&imagedir&"/"&img&"'><img src='"&ImageDir&"thumb/" & img & "' border='0'></a>")
Next
Set objFS = Nothing
