Image/Billed gallery

Dette skal kunne gøre det, se iøvrigt http://www.eksperten.dk/spm/53897 , hvor jeg har lavet det til en anden.


<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    counter = 4
    counter2 = 0
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A>\"
    counter2 = counter2 + 1
    if counter2 = counter then
    tmp = tmp & \"<BR>\"
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

Kig på http://gallery.menalto.com/
Det er et PHP værktøj der kan alt hvad der efterspørges i et billedgallery. Sejt produkt - men til gengæld gratis!!!

http://www.express-soft.com/ er også et godt alternativ. Er meget brugervenlig