Autogenerering af thumbnail fra bibliotek ?

misforstaa mig nu ikke, men jeg tror altsaa at der skal flere point paa bordet hvis du skal have denne opgave loest. Har du porevet at bryde det ned i mindre dele? Find et script til paging, det kan sagtens skrives om saa det viser billeder, det er om ikke andet den samme teknik der skal til. Det burde hellere ikke vaere umuligt at finde et script som laver et thumbnail, og saa er der kun tilbage at skrive de to ting sammen.

hvis det er så let som du siger, så må der da være en som ligger inde med et script der hurtigt kan tilpasses mine krav.

Har du set, om der er noget, du kan bruge her:
http://www.hotscripts.com/ASP/Scripts_and_Components/Image_Galleries/

Jeg har været rundt på diverse scripts"lagre", er ikke nogen som har et brugbart script der kan postes her på siden??

hvorfor er det at folk ikke selv kan finde på noget selv. Vær dog lidt kreativ, tag lidt initiativ. Ingen grund til at være så afhængig af andre !

----------------------- codelib.asp-------

////////////////////////////////////////////////
// Function used for making the table        //
// with pictures stored in the same folder as //
// the page the function is used on.          //
// Option:                                    //
// intMode, 0 for user, 1 for admin          //
////////////////////////////////////////////////

Function ShowFolderList(intMode)
    Dim ImagesHorizontal, SImage, FSO, Folder, FolderCollection, file, filename, thumb, strDesc, IntCatfromDB, ImagesWritten
   
    'How many pictures horizontally??
    ImagesHorizontal = 3

    Set SImage = Server.CreateObject("SImageUtil.Image")
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(Server.MapPath("."))
    Set FolderCollection = Folder.Files
    For Each file in FolderCollection
        If LCase(right(file, 3)) = "jpg" Then
            filename = file.name
            thumb = "thumb/"& filename
            strDesc = GetPictureDescription(filename)
                       
            ' Create a thumbnail
            SImage.Thumb filename, 100, 100, thumb, 75
           
                'Checks if the picture is horizontal or vertical, and add one of the two links
                If intMode = 0 Then
                    ShowFolderList = ShowFolderList & "<td width=""250"" align=""center""> <img src='"& thumb &"' alt="""& strDesc &""">"
                    If CheckImageHorVer(filename) = "Vertical" Then
                        ShowFolderList = ShowFolderList & "<br><a href='view.asp?image=" & filename & "&height=768&width=1024'><ACRONYM TITLE=""Se billedet i 1024*768 opløsning"">1024*768</acronym></A>, <a href='view.asp?image=" & filename & "&height=480&width=640'><ACRONYM TITLE=""Se billedet i 640*480 opløsning"">640*480</acronym></A>"
                    Else
                        ShowFolderList = ShowFolderList & "<br><a href='view.asp?image=" & filename & "&height=1024&width=768'><ACRONYM TITLE=""Se billedet i 768*1024 opløsning"">768*1024<acronym></A>, <a href='view.asp?image=" & filename & "&height=640&width=480'><ACRONYM TITLE=""Se billedet i 480*640 opløsning"">480*640</acronym></A>"
                    End if
                    ShowFolderList = ShowFolderList & "<td width=""250"" align=""left"">"& strDesc &"</td>"
                End If
   
                'Add the some admin-things if mode is 1
                If intMode = 1 Then
                    ShowFolderList = ShowFolderList & "<td width=""250"" align=""center""> <a href=""admin.asp?action=edit_desc&image="& filename &"""><img src='"& thumb &"' alt="""& strDesc &"""></a>"
                    ShowFolderList = ShowFolderList & "<br>Slet: <input type=""checkbox"" name=""deletepictures"" value="""& filename &"""><br><!--<textarea rows=""5"" name="""& filename &""" cols=""20"">"& strDesc &"</textarea></td>"           
                Else
                    ShowFolderList = ShowFolderList & "</td>"
                End If
   
                ImagesWritten = ImagesWritten + 1
   
                'If the horizontal number is reached we will just begin a new row
                If ImagesWritten = ImagesHorizontal then
                    ShowFolderList = ShowFolderList & "</tr><tr>"
                    ImagesWritten = 0
                End if
        End if
    Next
End Function

///////////////////////////////////////////////
// Check if a image is horizontal or        //
// vertical.                                //
// Option:                                  //
// strImage, the image to check              //
///////////////////////////////////////////////

Function CheckImageHorVer(strImage)
    Dim SImage
   
    Set SImage = Server.CreateObject("SImageUtil.Image")
    SImage.OpenImageFile(strImage)
    If SImage.Width - SImage.Height > 0 Then
        CheckImageHorVer = "Vertical"
    Else
        CheckImageHorVer = "Horizontal"
    End If
    SImage.Close()
End Function

-------------------------- default.asp ----------

<!-- #Include File ="inc/code_lib.asp" -->
<html><head></head><body><%'ShowCategoryList("default.asp")%>
<table width="750"><tr><%= ShowFolderList(0) %></tr></table>
</body></html>

Når du skriver: "Billedstørrelsen skal være 150*113 med en sort kant på 1 pixel."
Betyder det så at billederne skal laves fysik om altså generere en ny fil, eller må det blive styrete af img tagen så der ikke laves en ny fil?

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=8261&lngWId=4

eagleeye>> "dette genererer thumbnails som fylder mindre end det store billede"... så mon ikke de fysisk skal være mindre

Smider I ikke lige alle et svar, så deler jeg pointene, så spørgsmålet kan blive lukket

Lukker spørgsmålet