Notifikationer

Markér alle som læst Log ud

jwulff Nybegynder

06. august 2007 - 19:52 Der er 7 kommentarer og
1 løsning

List billeder fra mappe med thumbnails

Hej Exp,

Jeg synes ikke rigtig jeg kan finde en kode der viser alle billeder fra en mappe, samt opretter thumbnails for at begrænse loading tiden.

Det eneste det skal gøre, er at udskrive billeder i mappen images, oprette thumbnail og gøre så man kan klikke på det.

På forhånd tak for hjælpen :)

Synes godt om

langthjem Nybegynder

07. august 2007 - 00:06 #1

Du skal bygge det op sådan her:

Visning (F.eks. default.asp)
Brug FileSystemObject til at gennemgå alle filer i mappen.
Når du støder på en fil med typenavn jpg eller gif kalder du "image.asp" med filens sti som querystring. Kaldet skal ske som SRC i et <IMG>-tag.

Billede loader (F.eks. image.asp)
Du modtager en sti til et billede som querystring. Du bruger den sti til at åbne billedet med f.eks. AspImage eller AspJpeg. Det eneste output skal være binært billeddate.
Det er også i denne fil du skalerer billedet ned for at nedsætte download tiden.

Voila! Du har nu en thumbnail visning.

Synes godt om

jwulff Nybegynder

07. august 2007 - 13:54 #2

Hej Langthjem,

Er det ikke muligt at få et link eller noget? - der burde være et sted hvor det er lavet.

Synes godt om

jwulff Nybegynder

07. august 2007 - 14:35 #3

Jeg er kommet så langt her nu:

<%@ Language=VBScript %>
<% Option Explicit %>
<%
Const ImageFilePath = "images"

Dim objFSO
Dim objFolder
Dim objFile

Dim strFileName
Dim strFileExtension
Dim imgID

%>
<html>
<head>
<title>ingen endnu...</title>
</head>
<body>

<table border="0">
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath))

imgID = 1

For Each objFile In objFolder.Files
strFileExtension = LCase(Mid(objFile.Name, _
InStrRev(objFile.Name, ".", -1, 1) + 1))

If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Then
%>
<tr>
<td>
<img id=<%=imgID%> class="thumbNormal" src="<%= ImageFilePath & "/" & objFile.Name %>" width=120>
</td>
</tr>

<%

imgID = imgID+1

End If
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>
</body>
</html>

Synes godt om

jwulff Nybegynder

07. august 2007 - 14:37 #4

jeg har ASPimage

Synes godt om

jwulff Nybegynder

07. august 2007 - 14:48 #5

Okay, går fremad nu... Har følgende thumbnail kode, men der kommer ikke noget billede på min alm. side.:

<%

FileName=request.querystring("FileName")

size=Cint(request.querystring("size"))

Response.ContentType = "image/jpeg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "images/" & FileName
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX

Image.ImageFormat = 1
Image.JPEGQuality = 80

if ImageHeight > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Synes godt om

langthjem Nybegynder

08. august 2007 - 09:52 #6

Det ser faktisk ud til at være gjort rigtigt. Det eneste problem er at du ikke får sendt din path til thumb scriptet. Du skal ændre dit <IMG>-tags SRC til "<%=ImageFilePath & "?FileName=" & objFile.Name%>" eller noget lignende, du er jo nødt til at lade thumbnail scriptet vide hvilken fil.

I dit thumbnail script skal du bruge en absolut path til Image.LoadImage.

Synes godt om

jwulff Nybegynder

13. august 2007 - 17:20 #7

Så lykkedes det.. Smid et svar :)

Synes godt om

langthjem Nybegynder

14. august 2007 - 09:37 #8

Et svar smidt!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS