---
title: "Thumbnailfunktion.... ?!?!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9470-thumbnailfunktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "brw"
published: "2001-05-14T09:46:00.000Z"
updated: "2003-09-21T18:02:10.000Z"
replies: 12
views: 505
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/9470-thumbnailfunktion"
---

# Thumbnailfunktion.... ?!?!

## #1 — brw, 2001-05-14T09:46Z

Har ett script för att ladda upp bilder till en databas. 
Är nu i behov av ett script eller någon bra (helst gratis) komponent som kan skapa små thumbnails i den storlek man förväljer till exempel.

Någon som har nå tips på en bra komponent eller om det finns nån bättre lösning.

Mycket tacksam för svar!

Permalänk: https://www.webforum.nu/p/9470

## #2 — Lukaspojken, 2001-05-14T10:32Z

Vad innebär thumbnail? Har hört det men glömt av dess betydelse...

Permalänk: https://www.webforum.nu/p/268611

## #3 — erka, 2001-05-14T10:41Z

en liten bild av den stora bilden

Permalänk: https://www.webforum.nu/p/268612

## #4 — brw, 2001-05-14T10:44Z

Du skapar små bilder som du sedan gör klickbara för att det inte ska ta så lång tid att ladda sidan. Då kan besökaren själv välja den bild som verkar intressant och titta på den i större format.

Ingen som har några förslag?

Permalänk: https://www.webforum.nu/p/268613

## #5 — jepsO, 2001-05-14T11:04Z

[Den här artikeln](http://www.4guysfromrolla.com/webtech/011201-1.shtml) från fenomenala 4guysfromrolla.com kanske kan vara något? Iaf det närmaste du kommer utan en komponent. Om det handlar om att minska laddningstiderna för besökare genom att visa thumbnails krävs det, mig veterligen, en komponent.

Permalänk: https://www.webforum.nu/p/268614

## #6 — brw, 2001-05-14T12:55Z

Ah .. en sån där har jag redan.. den får fan duga om jag inte hittar nå annat..  det vore inte fel med en gratis komponent som fungerar tillfredsställande.. 

nån som vet nån bra gratis komponent?

Permalänk: https://www.webforum.nu/p/268615

## #7 — Lukaspojken, 2001-05-14T14:26Z

Jag försöker göra något liknande...du får säga till om du finner något sätt...

Jag hittade i alla fall detta inlägget som man kanske kan ändra lite på:

"Hej, det går att kolla bredden och höjden. Har hittat en lösning helt i asp utan någon komponent!
Kanske inte lika smidigt som i php...men det funkar!

Mycket kod är det i alla fall...Har modifierat koden så att det bara går med jpg filer och gif filer. Men det ska även gå med png och bmp filer om man vill det.
Kod:

\--------------------------------------------------------------------------------

\<%
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

function lngConvert(strTemp)
lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) \* 256)))
end function

function lngConvert2(strTemp)
lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) \* 256)))
end function

function gfxSpex(flnm, width, height, depth, strImageType)

dim strPNG 
dim strGIF
dim strBMP
dim strType
strType = ""
strImageType = "(unknown)"

gfxSpex = False

strPNG = chr(137) & chr(80) & chr(78)
strGIF = "GIF"
strBMP = chr(66) & chr(77)

strType = GetBytes(flnm, 0, 3)

if strType = strGIF then 

strImageType = "GIF"
Width = lngConvert(GetBytes(flnm, 7, 2))
Height = lngConvert(GetBytes(flnm, 9, 2))
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
gfxSpex = True

else

strBuff = GetBytes(flnm, 0, -1) 
lngSize = len(strBuff)
flgFound = 0

strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)

if flgFound = 0 then
exit function
end if

strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false

do while ExitLoop = False and lngPos \< lngSize

do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos \< lngSize
lngPos = lngPos + 1
loop

if asc(mid(strBuff, lngPos, 1)) \< 192 or asc(mid(strBuff, lngPos, 1)) \> 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize + 1
else
ExitLoop = True
end if

loop
'
if ExitLoop = False then

Width = -1
Height = -1
Depth = -1

else

Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) \* 8)
gfxSpex = True

end if

end if

end function

sub test(flnm)

if right(flnm, 3)="gif" then
Width = lngConvert(GetBytes(flnm, 7, 2))
Height = lngConvert(GetBytes(flnm, 9, 2))
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)

else

strBuff = GetBytes(flnm, 0, -1) 
lngSize = len(strBuff)
flgFound = 0

strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)

strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false

do while ExitLoop = False and lngPos \< lngSize

do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos \< lngSize
lngPos = lngPos + 1
loop

if asc(mid(strBuff, lngPos, 1)) \< 192 or asc(mid(strBuff, lngPos, 1)) \> 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize + 1
else
ExitLoop = True
end if

loop

if ExitLoop = "False" then
Width = -1
Height = -1
Depth = -1
else
Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) \* 8)
end if

end if
a=width
b=height
response.write("BREDDEN ÄR: " &a &" HÖJDEN ÄR: " &b)
end sub

call test(server.mappath("test/kamel.jpg"))
%\>

\--------------------------------------------------------------------------------

Man skickar alltså in vilken bild man vill kolla längst ner vid call sub(bild).

Permalänk: https://www.webforum.nu/p/268616

## #8 — kb00obfr, 2003-04-26T14:47Z

Hittade du något bra tillslut brw? Jag letar jag med...

Permalänk: https://www.webforum.nu/p/1025467

## #9 — Nickemannen, 2003-04-27T10:22Z

Vad säger man ?

ASP.NET :D

Permalänk: https://www.webforum.nu/p/1025972

## #10 — Skarre, 2003-04-27T11:42Z

> **Nickemannen skrev:**
>
> Vad säger man ?
> 
> ASP.NET :D

Det hjälper väl ändå inte i det här fallet. Fundera på varför han postade inlägget i ASP-forumet och inte i ASP.NET-forumet.

Permalänk: https://www.webforum.nu/p/1026050

## #11 — Pellefant, 2003-05-08T23:00Z

Jag undrar också....

Det bästa jag kommit på är att kolla bildstorleken och ha thumbnails tex 10 % av de måtten, och ställa in denna storleken med HTML kod när bilden visas. Nackdelen är ju att hela orginalbilden laddas ändå.

Permalänk: https://www.webforum.nu/p/1041411

## #12 — mrblonde, 2003-05-09T06:34Z

Det finns väl [massor](http://www.google.com/search?hl=en&lr=&ie=UTF-8&newwindow=1&safe=off&q=image+component+free+asp&spell=1)  av komponenter som kan göra detta? Bara att börja gå igneom och leta.

Permalänk: https://www.webforum.nu/p/1041461

## #13 — Calevan, 2003-09-21T18:02Z

Var det någon som hittade en bra komponent tillslut?

Permalänk: https://www.webforum.nu/p/1163748

---

Tråden på webben: https://www.webforum.nu/amne/asp/9470-thumbnailfunktion