Bestemt størrelse på billeder

Dette gøre billet mindre at se på. Men fysik har billlet samme størrelse og dermed tager det lige så lang til at indlæse:


Response.Write "<img src='../billeder/produkter/"& billeder.Fields.Item("Sti").Value &"' height='70' width='70' >"

"<img src=""../billeder/produkter/tomt.gif""  width="70" height="70">"

/J

Hvis du havde den fysike størrelsen så skal du havde en bilede kompunent som eksvis ASPImage som kan resize et billede..

Jeg har ASPimage, hvis jeg forhøjer pointene kan du evt vise hvorledes det indsættes i nedenstående upload script? dem må også meget gerne lave et thumpnail!

<%
    ' Dynamically rename an uploaded file according to a HIDDEN field.
    ' First upload to memory, then call File.SaveAs
    ' to save the file under a name specified by a hidden field..
   
    Set Upload = Server.CreateObject("Persits.Upload.1")

    ' Optional: make sure file names are unique when calling File.SaveAs
    Upload.OverwriteFiles = true

    Count = Upload.SaveToMemory

    If Count > 0 Then ' 1 file uploaded
        Set File = Upload.Files(1)
        Path = "D:\home\website\www\demo\billeder\produkter\" & Upload.Form("Filename")

        ' Side effect: SaveAs sets changes File.Path property to a new value.
        File.SaveAs Path
        Response.redirect ("../index.asp")
    Else
        Response.redirect ("../index.asp")
    End If
%>

Prøv hellere selv at se på nogle af de mange spørgsmål, der er stillet om netop dette emne. Der er mange brugbare svar.

http://www.eksperten.dk/kat/3/?searchtype=txt&words=aspimage&method=and&sort=score&catid=3

<%
    ' Dynamically rename an uploaded file according to a HIDDEN field.
    ' First upload to memory, then call File.SaveAs
    ' to save the file under a name specified by a hidden field..
   
    Set Upload = Server.CreateObject("Persits.Upload.1")

    ' Optional: make sure file names are unique when calling File.SaveAs
    Upload.OverwriteFiles = true

    Count = Upload.SaveToMemory

    If Count > 0 Then ' 1 file uploaded
        Set File = Upload.Files(1)
        Path = "D:\home\website\www\demo\billeder\produkter\" & Upload.Form("Filename")

        ' Side effect: SaveAs sets changes File.Path property to a new value.
        File.SaveAs Path

'******************* resize billede start
        ret = Response.ContentType
        Response.ContentType = "image/jpeg\"

        strPicture = file.path
        Set Image = Server.CreateObject("AspImage.Image")
   
        Image.LoadImage strPicture

        intRatio = ((75 * 100) / Image.MaxX)
        intNewY = CInt(Image.MaxY * (intRatio / 100))
        Image.ResizeR 75, intNewY
        Image.ImageFormat = 1
        image.filename = server.mappath("..") & "\thumbs\" & file.filename
        image.saveimage
        Set Image = nothing   
        Response.ContentType = ret

'******************* resize billede slut

        Response.redirect ("../index.asp")
    Else
        Response.redirect ("../index.asp")
    End If
%>

Hejsa!

Nedenstående virker helt godt! der sker dog det, at når man uploader et billeder der for starten er 150 px i bredden, resizer den både billeder i /produkter og /thum til 50 px i bredden! hvordan gør man det således at billedet i /produkter altid skal være 150 px i bredden og i thum skal det altid være 50 px i bredden!
--------------------------------------------------------------

<%
'--- start --
ImageDir = "../../../billeder/produkter/"
ImageIn=server.mappath(ImageDir) &"\"
ImageOut=server.mappath(ImageDir&"thum") &"\"
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 > 50 Then
        ResizedX = 50
        ResizedY = (ResizedX * Y/X)
    End if

    Image.Resize ResizedX, ResizedY

    Image.ImageFormat = 1
    Image.JPEGQuality = 100

    Image.FileName = (ImageOut & img )
    Image.SaveImage

  ' ********* resize original billed start

    Image.LoadImage(ImageIn& img )
    X = Image.MaxX
    Y = Image.MaxY

    If X > 150 Then
        ResizedX = 150
        ResizedY = (ResizedX * Y/X)
    End if

    Image.Resize ResizedX, ResizedY

    Image.ImageFormat = 1
    Image.JPEGQuality = 100

    Image.FileName = (ImageIn & img )
    Image.SaveImage

  ' ********* resize original billed slut

    Set Image = nothing

Next
Set objFS = Nothing
'--- slut ---
%>