Imagesize i ren ASP

Prøv denne :)

function GetBytes(flnm, offset, bytes)

    Dim objFSO
    Dim objFTemp
    Dim objTextStream
    Dim lngSize

    on error resume next

    Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
   
    \' First, we get the filesize
    Set objFTemp = objFSO.GetFile(flnm)
    lngSize = objFTemp.Size
    set objFTemp = nothing

    fsoForReading = 1
    Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)

    if offset > 0 then
        strBuff = objTextStream.Read(offset - 1)
    end if

    if bytes = -1 then        \' Get All!

        GetBytes = objTextStream.Read(lngSize)  \'ReadAll

    else

        GetBytes = objTextStream.Read(bytes)

    end if

    objTextStream.Close
    set objTextStream = nothing
    set objFSO = nothing

  end function

-Grunken

Jeg tror du misforstod mig, og jeg skrev det nok lidt forkert. Det er billedets størrelse i pixels... altså xx*xx. Ikke bare størrelse i kb. Desuden synes jeg nok det der er en lidt avanceret metode til det...

lukker